BPMVAR.m

BPMVAR ; IHS/OIT/LJF - MENU ENTRY & EXIT ACTIONS

 ;;1.0;IHS PATIENT MERGE;;MAR 01, 2010

 ;

ENTER ;EP; entry point called by main menu

 NEW I,X

 D ^XBCLS W @IOF W !?22,$$REPEAT^XLFSTR("*",34)

 W !?22,"-----> INDIAN HEALTH SERVICE"

 W !?31,"IHS PATIENT MERGE  ----->"

 W !?22,"----->      VERSION ",$$VERSION^XPDUTL("BPM")

 W !?22,$$REPEAT^XLFSTR("*",34)

 ;

 I '$D(DUZ(2)) D  S XQUIT=1 D PAUSE^BPMU Q

 . W !!,"YOU MUST SIGN ON PROPERLY THROUGH THE KERNEL TO USE ADT!"

 ;

 S X=$$GET1^DIQ(4,DUZ(2),.01) W !!?80-$L(X)\2,X

 I X="" D  S XQUIT=1 D PAUSE^BPMU Q

 . W !!,"INVALID FACILITY; NOTIFY YOUR SITE MANAGER!"

 ;

 I $D(XQUIT) D EXIT Q

 Q

 ;

EXIT ;EP; kill system wide variables

 D EN^XBVK("VALM")

 Q

 ;

MENU ;ENTRY POINT  >>> entry action for all submenus

 NEW BPM

 S BPM("TITLE")=$P($G(XQY0),U,2)

 I $L(BPM("TITLE"))>2 W @IOF,!!?80-$L(BPM("TITLE"))/2,BPM("TITLE")

 S X=$$GET1^DIQ(4,DUZ(2),.01)

 W !!?80-$L(X)\2,"(",X,")"

 Q

 ;

BPMVAR    ; IHS/OIT/LJF - MENU ENTRY & EXIT ACTIONS

 +1       ;;1.0;IHS PATIENT MERGE;;MAR 01, 2010

 +2       ;

ENTER     ;EP; entry point called by main menu

 +1        NEW I,X

 +2        DO ^XBCLS

           WRITE @IOF

           WRITE !?22,$$REPEAT^XLFSTR("*",34)

 +3        WRITE !?22,"-----> INDIAN HEALTH SERVICE"

 +4        WRITE !?31,"IHS PATIENT MERGE  ----->"

 +5        WRITE !?22,"----->      VERSION ",$$VERSION^XPDUTL("BPM")

 +6        WRITE !?22,$$REPEAT^XLFSTR("*",34)

 +7       ;

 +8        IF '$DATA(DUZ(2))

               Begin DoDot:1

 +9                WRITE !!,"YOU MUST SIGN ON PROPERLY THROUGH THE KERNEL TO USE ADT!"

               End DoDot:1

               SET XQUIT=1

               DO PAUSE^BPMU

               QUIT 

 +10      ;

 +11       SET X=$$GET1^DIQ(4,DUZ(2),.01)

           WRITE !!?80-$LENGTH(X)\2,X

 +12       IF X=""

               Begin DoDot:1

 +13               WRITE !!,"INVALID FACILITY; NOTIFY YOUR SITE MANAGER!"

               End DoDot:1

               SET XQUIT=1

               DO PAUSE^BPMU

               QUIT 

 +14      ;

 +15       IF $DATA(XQUIT)

               DO EXIT

               QUIT 

 +16       QUIT 

 +17      ;

EXIT      ;EP; kill system wide variables

 +1        DO EN^XBVK("VALM")

 +2        QUIT 

 +3       ;

MENU      ;ENTRY POINT  >>> entry action for all submenus

 +1        NEW BPM

 +2        SET BPM("TITLE")=$PIECE($GET(XQY0),U,2)

 +3        IF $LENGTH(BPM("TITLE"))>2

               WRITE @IOF,!!?80-$LENGTH(BPM("TITLE"))/2,BPM("TITLE")

 +4        SET X=$$GET1^DIQ(4,DUZ(2),.01)

 +5        WRITE !!?80-$LENGTH(X)\2,"(",X,")"

 +6        QUIT 

 +7       ;