Alert

Use this alert and example for a for loop :


         SET_ALERT_PROPERTY('ALT_TWO',ALERT_MESSAGE_TEXT,'Do you want to Send Requisition ?');
         V_ALERT:=SHOW_ALERT('ALT_TWO');
PICTURE 

       
      IF V_ALERT=ALERT_BUTTON1 THEN
           
            GO_BLOCK('SRV_REQUISITION');
            LAST_RECORD;

        IF :SRV_REQUISITION.TEST_NO IS NULL THEN
          DELETE_RECORD;
        END IF;

            V_TEST_COUNT:=:SYSTEM.CURSOR_RECORD;
       
            FIRST_RECORD;
         
       FOR I IN 1..V_TEST_COUNT LOOP
     
         IF :SRV_REQUISITION.TEST_NO IS NOT NULL THEN
                   --MSGBOX(:SRV_REQUISITION.TEST_NO);
                   LIST_TEST(I)        :=:SRV_REQUISITION.TEST_NO;
                   LIST_TEST_QTY(I)    :=NVL(:SRV_REQUISITION.QUANTITY,1) ;  --:CTRL_INVESTIGATIONINFO.QTY;
                   LIST_STATUS(I)      :=:SRV_REQUISITION.DELIVERY_STATUS;  --:CTRL_INVESTIGATIONINFO.DELIVERY_STATUS;
                   LIST_SERVICE(I)     :=:SRV_REQUISITION.TEST_TYPE;
                   LIST_REMARKS(I)     :=:SRV_REQUISITION.REMARKS;  --:CTRL_INVESTIGATIONINFO.REMARKS;
                   LIST_TEST_AMT(I)    :=:SRV_REQUISITION.RATE;
                   LIST_INSTRUCTION(I) :=:SRV_REQUISITION.INSTRUCTION;
                   LIST_SAMPLE(I)      :=:SRV_REQUISITION.SAMPLE_ID;
                   LIST_DELIVERY_DT(I) :=SYSDATE;
                  -- LIST_BILL_TYPE(I)   :=0; --HOLDS BILL TYPE
                   LIST_LETTER_NO(I)   :=:CTRL_CCPATIENT.REF_LETTERNO;
                   LIST_DISC(I)        :=NULL;
                   LIST_DISC_AMT(I)    :=0;     --HOLDS TEST'S DISCOUNT AMOUNT
                   LIST_VAT_AMT(I)     :=0;     --HOLDS TEST'S VAT AMOUT
                   LIST_DX_RX_NO(I)    :='';
                   --GRANT_DISCAMT       :=0;     --HOLDS TEST'S DISCOUNT TOTAL AMOUNT
                   --LIST_CLNT_ID(I)     :=NVL(:CTRL_CASHPOINT.CLIENT,1);---1 FRO SERVICE PROVIDER
                   LIST_RATEGRP(I)     :=NVL(:CTRL_CASHPOINT.RATE_GROUP,1) ;
                 
                   IF :CTRL_CCPATIENT.REF_LETTERNO is not null then
                      LIST_BILL_TYPE(I):=1;--- IF IT IS CORPORATE NEED NOT TO PAY
                      LIST_PATPAY(I)   :='N';
                      LIST_CLNT_ID(I)  :=:CTRL_CCPATIENT.CLNT_ID;
                   ELSE
                      LIST_BILL_TYPE(I):=0;
                      LIST_PATPAY(I)   :='Y';
                      LIST_CLNT_ID(I)  :=1;
                   END IF;

                  -- V_CHECKEXIST:=V_CHECKEXIST+1;
                 
                   NEXT_RECORD;
         ELSE
                       NEXT_RECORD;
         END IF;
           
       END LOOP;  

Read More

logon page center window.

Call procedure in when new form instance CENTER_FORM('WINDOW1',0); PROCEDURE CENTER_FORM(MyWindowName IN varchar2,UpperMargin IN number) IS x number(6); y number(6); BEGIN SET_WINDOW_PROPERTY(FORMS_MDI_WINDOW,TITLE,'India'); Set_window_property(forms_mdi_window,window_state,maximize); x:=((get_window_property(forms_mdi_window,width)-get_window_property(MyWindowName ,width))/2); y:=((get_window_property(forms_mdi_window,height)-get_window_property(MyWindowName ,height))/2+UpperMargin); set_window_property(MyWindowName , position,x,y); END;

Read More

HPMS SCREEN SHORT

https://www.bucksoftech.com/hms_screenshot.aspx

Read More

Hospital Management Software Menu Screens Video

Read More

Trigger

$$ Trigger with use when condition $$


CREATE OR REPLACE TRIGGER trg_hpms_room
   AFTER INSERT OR UPDATE
   ON hpms_room
   REFERENCING NEW AS NEW OLD AS OLD
   FOR EACH ROW
   WHEN (NEW.occupancy_service IN ('E', 'C', 'D'))
BEGIN
   IF INSERTING
   THEN
      IF :NEW.occupancy_service = 'C'
      THEN
         DECLARE
            sl   NUMBER (3);
         BEGIN
            SELECT MAX (view_sl) + 1
              INTO sl
              FROM op_patdisplay
             WHERE tvdisplay_id = 1;

            INSERT INTO op_patdisplay
                        (room_name, movement_type_no, room_no, view_sl,
                         show_fg, view_page, tvdisplay_id, check_inout
                        )
                 VALUES (:NEW.room_name, '5', :NEW.room_no, sl,
                         '1', '1', '1', '0'
                        );
         END;
      ELSIF :NEW.occupancy_service = 'E'
      THEN
         DECLARE
            sl   NUMBER (3);
         BEGIN
            SELECT MAX (view_sl) + 1
              INTO sl
              FROM op_patdisplay
             WHERE tvdisplay_id = 3;

            INSERT INTO op_patdisplay
                        (room_name, movement_type_no, room_no, view_sl,
                         show_fg, view_page, tvdisplay_id, check_inout
                        )
                 VALUES (:NEW.room_name, '5', :NEW.room_no, sl,
                         '1', '1', '3', '0'
                        );
         END;
      ELSIF :NEW.occupancy_service = 'D'
      THEN
         DECLARE
            sl   NUMBER (3);
         BEGIN
            SELECT MAX (view_sl) + 1
              INTO sl
              FROM op_patdisplay
             WHERE tvdisplay_id = 2;

            INSERT INTO op_patdisplay
                        (room_name, movement_type_no, room_no, view_sl,
                         show_fg, view_page, tvdisplay_id, check_inout
                        )
                 VALUES (:NEW.room_name, '5', :NEW.room_no, sl,
                         '1', '1', '2', '0'
                        );
         END;
      END IF;
   END IF;
EXCEPTION
   WHEN OTHERS
   THEN
      NULL;
END;
/

Read More

Hospital Management Software in Bangladesh Powered by Tally.ERP 9

Read More

Computer Basic

ALU: An arithmetic logic unit (ALU) is a digital circuit used to perform arithmetic and logic operations.It represents the fundamental building block of the central processing unit (CPU) of a computer. Modern CPUs contain very powerful and complex ALUs. The purpose of the ALU is to perform mathematical operations such as addition, subtraction, multiplication and division. Additionally, the ALU processes basic logical operations like AND/OR calculations

Read More