AMERBAN.m

AMERBAN ;IHS/SET/FCJ - BANNER FOR ER MENU ; 

 ;;3.0;ER VISIT SYSTEM;;FEB 23, 2009

 ;

BAN ; ENTRY POINT FROM AMERMENU

 ; Display BANNER info on main menu.

 S AMERSVER=$$VERSION^XPDUTL("PIMS")

 S AMERVER=$$VERSION^XPDUTL("AMER")

 I AMERVER="" W !!,"THE VERSION FOR THE PACKAGE FILE ENTRY FOR THE 'EMERGENCY ROOM SYSTEM' IS INCOMPLETE!",!,"INFORM YOUR SITE MANAGER IMMEDIATELY!!" Q

 S AMERHD1="Emergency Room System"

 D DISPLAY

 Q

 ;

  ;IHS/OIT/SCR 10/01/08 - Removed all Export code from version 3.0

EXP ; ENTRY POINT FROM AMER EXPORT MENU

 ;; Display BANNER info on Export menu.

 ;S AMERHD1="Export Data Menu"

 ;D DISPLAY

 Q

INST ; ENTRY POINT FROM AMER PATIENT INSTRUCTION MENU

 ; Display BANNER info on Patient Instruction menu.

 S AMERHD1="Patient Instruction Material Menu"

 D DISPLAY

 Q

SET ; ENTRY POINT FROM AMER SET UP MENU

 ; Display BANNER info on Export menu.

 S AMERHD1="Facility Setup Menu"

 D DISPLAY

 Q

RPTS ; ENTRY POINT FROM AMER REPORTS MENU

 ; Display BANNER info on Export menu.

 S AMERHD1="Reports Menu"

 D DISPLAY

 Q

UP ; ENTRY POINT FROM [AMER EDIT VISIT] OPTION

 ; Display BANNER info on Edit menu.

 S AMERVER=$$VERSION^XPDUTL("AMER")

 S AMERHD1="Editing Interface"

 D DISPLAY

 Q

  ;IHS/OIT/SCR 10/01/08 - Removed all Export code from version 3.0

 ;EXPTA ; EP From EN^AMEREXPT

 ; Display BANNER info on Edit menu.

 ;S AMERVER=$$VERSION^XPDUTL("AMER")

 ;S AMERHD1="Pre-defined Exports"

 ;D DISPLAY

 ;Q

DISPLAY ;

 S L=18,R=61,D=R-L+1,N=R-L-1

 S AMERVER=$$VERSION^XPDUTL("AMER")

 S AMERHD2="Indian Health Service"

 W @IOF,!,$$C^XBFUNC($$REPEAT^XLFSTR("*",D))

 W !?L,"*",$$C^XBFUNC(AMERHD1,N),?R,"*"

 W !?L,"*",$$C^XBFUNC(AMERHD2,N),?R,"*"

 W !?L,"*",$$C^XBFUNC("Version "_AMERVER,N),?R,"*"

 W !,$$C^XBFUNC($$REPEAT^XLFSTR("*",D))

 W !,$$C^XBFUNC($P(^DIC(4,DUZ(2),0),U))

 K L,R,D,N

 Q

EXT ; ENTRY POINT FROM EXIT OF MAIN MENU AMERMENU

 ; KILL VAR     

 K AMERVER,AMERHD1,AMERHD2,AMERSVER

 Q

AMERBAN   ;IHS/SET/FCJ - BANNER FOR ER MENU ; 

 +1       ;;3.0;ER VISIT SYSTEM;;FEB 23, 2009

 +2       ;

BAN       ; ENTRY POINT FROM AMERMENU

 +1       ; Display BANNER info on main menu.

 +2        SET AMERSVER=$$VERSION^XPDUTL("PIMS")

 +3        SET AMERVER=$$VERSION^XPDUTL("AMER")

 +4        IF AMERVER=""

               WRITE !!,"THE VERSION FOR THE PACKAGE FILE ENTRY FOR THE 'EMERGENCY ROOM SYSTEM' IS INCOMPLETE!",!,"INFORM YOUR SITE MANAGER IMMEDIATELY!!"

               QUIT 

 +5        SET AMERHD1="Emergency Room System"

 +6        DO DISPLAY

 +7        QUIT 

 +8       ;

 +9       ;IHS/OIT/SCR 10/01/08 - Removed all Export code from version 3.0

EXP       ; ENTRY POINT FROM AMER EXPORT MENU

 +1       ;; Display BANNER info on Export menu.

 +2       ;S AMERHD1="Export Data Menu"

 +3       ;D DISPLAY

 +4        QUIT 

INST      ; ENTRY POINT FROM AMER PATIENT INSTRUCTION MENU

 +1       ; Display BANNER info on Patient Instruction menu.

 +2        SET AMERHD1="Patient Instruction Material Menu"

 +3        DO DISPLAY

 +4        QUIT 

SET       ; ENTRY POINT FROM AMER SET UP MENU

 +1       ; Display BANNER info on Export menu.

 +2        SET AMERHD1="Facility Setup Menu"

 +3        DO DISPLAY

 +4        QUIT 

RPTS      ; ENTRY POINT FROM AMER REPORTS MENU

 +1       ; Display BANNER info on Export menu.

 +2        SET AMERHD1="Reports Menu"

 +3        DO DISPLAY

 +4        QUIT 

UP        ; ENTRY POINT FROM [AMER EDIT VISIT] OPTION

 +1       ; Display BANNER info on Edit menu.

 +2        SET AMERVER=$$VERSION^XPDUTL("AMER")

 +3        SET AMERHD1="Editing Interface"

 +4        DO DISPLAY

 +5        QUIT 

 +6       ;IHS/OIT/SCR 10/01/08 - Removed all Export code from version 3.0

 +7       ;EXPTA ; EP From EN^AMEREXPT

 +8       ; Display BANNER info on Edit menu.

 +9       ;S AMERVER=$$VERSION^XPDUTL("AMER")

 +10      ;S AMERHD1="Pre-defined Exports"

 +11      ;D DISPLAY

 +12      ;Q

DISPLAY   ;

 +1        SET L=18

           SET R=61

           SET D=R-L+1

           SET N=R-L-1

 +2        SET AMERVER=$$VERSION^XPDUTL("AMER")

 +3        SET AMERHD2="Indian Health Service"

 +4        WRITE @IOF,!,$$C^XBFUNC($$REPEAT^XLFSTR("*",D))

 +5        WRITE !?L,"*",$$C^XBFUNC(AMERHD1,N),?R,"*"

 +6        WRITE !?L,"*",$$C^XBFUNC(AMERHD2,N),?R,"*"

 +7        WRITE !?L,"*",$$C^XBFUNC("Version "_AMERVER,N),?R,"*"

 +8        WRITE !,$$C^XBFUNC($$REPEAT^XLFSTR("*",D))

 +9        WRITE !,$$C^XBFUNC($PIECE(^DIC(4,DUZ(2),0),U))

 +10       KILL L,R,D,N

 +11       QUIT 

EXT       ; ENTRY POINT FROM EXIT OF MAIN MENU AMERMENU

 +1       ; KILL VAR     

 +2        KILL AMERVER,AMERHD1,AMERHD2,AMERSVER

 +3        QUIT