APCHSBAN.m

APCHSBAN ; IHS/CMI/LAB - Banner routine for Health Summary ;

 ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 ;

V ; GET VERSION

 S APCH("VERSION")="",APCH("VERSION")=$O(^DIC(9.4,"C","BJPC",APCH("VERSION"))),APCH("VERSION")=^DIC(9.4,APCH("VERSION"),"VERSION")

 S APCHTEXT="TEXT"_APCHTEXT

 F APCHJ=1:1 S APCHX=$T(@APCHTEXT+APCHJ),APCHX=$P(APCHX,";;",2) Q:APCHX="QUIT"!(APCHX="")  S APCHLINE=APCHJ

PRINT W:$D(IOF) @IOF

 F APCHJ=1:1:APCHLINE S APCHX=$T(@APCHTEXT+APCHJ),APCHX=$P(APCHX,";;",2) W !?80-$L(APCHX)\2,APCHX K APCHX

 W !?80-(22+$L(APCH("VERSION")))/2,"IHS PCC Suite Version ",APCH("VERSION")

SITE G XIT:'$D(DUZ(2)) G:'DUZ(2) XIT S APCH("SITE")=$P(^DIC(4,DUZ(2),0),"^") W !!?80-$L(APCH("SITE"))\2,APCH("SITE")

XIT ;

 K DIC,DA,X,Y,%Y,%,APCHJ,APCHX,APCHTEXT,APCHLINE,APCH

 Q

TEXTH ;main menu

 ;;************************************

 ;;**        IHS Health Summary      **

 ;;************************************

 ;;QUIT

TEXTB ;build health summary menu

 ;;************************************

 ;;**        IHS Health Summary      **

 ;;**    Build Health Summary Menu   **

 ;;************************************

 ;;QUIT

TEXTM ;health summary maintenance menu

 ;;*************************************

 ;;**        IHS Health Summary       **

 ;;** Health Summary Maintenance Menu **

 ;;*************************************

 ;;QUIT

TEXTR ;health summary hmr menu

 ;;**************************************

 ;;**         IHS Health Summary       **

 ;;** Health Maintenance Reminder Menu **

 ;;**************************************

 ;;QUIT

TEXTP ;patient health summary menu

 ;;**************************************

 ;;**        IHS Health Summary        **

 ;;**   Patient Health Handouts Menu   **

 ;;**************************************

 ;;QUIT

APCHSBAN  ; IHS/CMI/LAB - Banner routine for Health Summary ;

 +1       ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 +2       ;

V         ; GET VERSION

 +1        SET APCH("VERSION")=""

           SET APCH("VERSION")=$ORDER(^DIC(9.4,"C","BJPC",APCH("VERSION")))

           SET APCH("VERSION")=^DIC(9.4,APCH("VERSION"),"VERSION")

 +2        SET APCHTEXT="TEXT"_APCHTEXT

 +3        FOR APCHJ=1:1

               SET APCHX=$TEXT(@APCHTEXT+APCHJ)

               SET APCHX=$PIECE(APCHX,";;",2)

               IF APCHX="QUIT"!(APCHX="")

                   QUIT 

               SET APCHLINE=APCHJ

PRINT      IF $DATA(IOF)

               WRITE @IOF

 +1        FOR APCHJ=1:1:APCHLINE

               SET APCHX=$TEXT(@APCHTEXT+APCHJ)

               SET APCHX=$PIECE(APCHX,";;",2)

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

               KILL APCHX

 +2        WRITE !?80-(22+$LENGTH(APCH("VERSION")))/2,"IHS PCC Suite Version ",APCH("VERSION")

SITE       IF '$DATA(DUZ(2))

               GOTO XIT

           IF 'DUZ(2)

               GOTO XIT

           SET APCH("SITE")=$PIECE(^DIC(4,DUZ(2),0),"^")

           WRITE !!?80-$LENGTH(APCH("SITE"))\2,APCH("SITE")

XIT       ;

 +1        KILL DIC,DA,X,Y,%Y,%,APCHJ,APCHX,APCHTEXT,APCHLINE,APCH

 +2        QUIT 

TEXTH     ;main menu

 +1       ;;************************************

 +2       ;;**        IHS Health Summary      **

 +3       ;;************************************

 +4       ;;QUIT

TEXTB     ;build health summary menu

 +1       ;;************************************

 +2       ;;**        IHS Health Summary      **

 +3       ;;**    Build Health Summary Menu   **

 +4       ;;************************************

 +5       ;;QUIT

TEXTM     ;health summary maintenance menu

 +1       ;;*************************************

 +2       ;;**        IHS Health Summary       **

 +3       ;;** Health Summary Maintenance Menu **

 +4       ;;*************************************

 +5       ;;QUIT

TEXTR     ;health summary hmr menu

 +1       ;;**************************************

 +2       ;;**         IHS Health Summary       **

 +3       ;;** Health Maintenance Reminder Menu **

 +4       ;;**************************************

 +5       ;;QUIT

TEXTP     ;patient health summary menu

 +1       ;;**************************************

 +2       ;;**        IHS Health Summary        **

 +3       ;;**   Patient Health Handouts Menu   **

 +4       ;;**************************************

 +5       ;;QUIT