APCDBAN.m

APCDBAN ; IHS/CMI/LAB - Banner routine for Data Entry ;

 ;;2.0;IHS PCC SUITE;**11**;MAY 14, 2009;Build 58

V ; GET VERSION

 S APCD("VERSION")="2.0"

 I $G(APCDTEXT)="" S APCDTEXT="TEXT",APCDLINE=3 G PRINT

 S APCDTEXT="TEXT"_APCDTEXT

 F APCDJ=1:1 S APCDX=$T(@APCDTEXT+APCDJ),APCDX=$P(APCDX,";;",2) Q:APCDX="QUIT"!(APCDX="")  S APCDLINE=APCDJ

PRINT W:$D(IOF) @IOF

 ;W !,$$CTR("INDIAN HEALTH SERVICE",80)

 F APCDJ=1:1:APCDLINE S APCDX=$T(@APCDTEXT+APCDJ),APCDX=$P(APCDX,";;",2) W !?80-$L(APCDX)\2,APCDX K APCDX

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

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

 D ^APCDVAR

XIT ;

 K DIC,DA,X,Y,%Y,%,APCDJ,APCDX,APCDTEXT,APCDLINE

 Q

CTR(X,Y) ;EP - Center X in a field Y wide.

 Q $J("",$S($D(Y):Y,1:IOM)-$L(X)\2)_X

 ;----------

TEXT ;

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

 ;;**    PCC Data Entry Module    **

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

 ;;QUIT

TEXTA ;accept command menu text

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

 ;;**      PCC Data Entry Module     **

 ;;**     Process ACCEPT Commands    **

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

 ;;QUIT

TEXTF ;forms tracking menu text

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

 ;;**     PCC Data Entry Module      **

 ;;** Data Entry Forms Tracking Menu **

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

 ;;QUIT

TEXTI ;fix uncoded dx/proc menu text

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

 ;;**             PCC Data Entry Module           **

 ;;**  Fix UNCODED ICD Diagnoses/Operation Codes  **

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

 ;;QUIT

TEXTS ;supervisor menu text

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

 ;;**            PCC Data Entry Module            **

 ;;** Data Entry SUPERVISOR Options and Utilities **

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

 ;;QUIT

TEXTU ;date entry utilities menu text

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

 ;;**    PCC Data Entry Module    **

 ;;**  Data Entry Utilities Menu  **

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

 ;;QUIT

TEXTB ;date entry utilities menu text

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

 ;;**    PCC Data Entry Module    **

 ;;**  Enter/Edit Suicide Forms   **

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

 ;;QUIT

TEXTV ;visit review report menu text

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

 ;;**    PCC Data Entry Module    **

 ;;**    Visit Review Reports     **

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

 ;;QUIT

TEXTE ;error code menu

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

 ;;**    PCC Data Entry Module    **

 ;;**    Visit Review Reports     **

 ;;**                             **

 ;;**       Error Code Menu       **

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

 ;;QUIT

TEXTL ;link in-hospital menu

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

 ;;**            PCC Data Entry Module            **

 ;;** Data Entry SUPERVISOR Options and Utilities **

 ;;**            In-Hospital Link Menu            **

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

 ;;QUIT

TEXTP ;fix uncoded operations menu

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

 ;;**             PCC Data Entry Module           **

 ;;**       Fix UNCODED ICD Operation Codes       **

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

 ;;QUIT

TEXTC ;LOG ENTRY

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

 ;;**      PCC Data Entry Module     **

 ;;**       PCC LOG Data Entry       **

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

 ;;QUIT

TEXTT ;;local table maintenance

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

 ;;**        PCC Data Entry Module       **

 ;;**     PCC Local Table Maintenance    **

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

 ;;QUIT

TEXTM ;;print table maintenance

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

 ;;**           PCC Data Entry Module              **

 ;;**    PCC Local Table Maintenance Print Menu    **

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

 ;;QUIT

TEXTW ;;update patient related data

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

 ;;**          PCC Data Entry Module             **

 ;;**      Update Patient-Related Data           **

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

 ;;QUIT

TEXTX ;;edit site parameters

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

 ;;**          PCC Data Entry Module               **

 ;;**    PCC Data Entry Site Parameters Edit       **

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

 ;;QUIT

TEXTY ;;display site parameters

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

 ;;**         PCC Data Entry Module                **

 ;;**    PCC Data Entry Site Parameters Display    **

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

 ;;QUIT

TEXTZ ;;enter date menu

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

 ;;**        PCC Data Entry Module            **

 ;;**      Enter PCC Data Menu Options        **

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

 ;;QUIT

TEXTJ ;;modify data

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

 ;;**        PCC Data Entry Module            **

 ;;**      Modify PCC Data Menu Options       **

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

 ;;QUIT

TEXTH ;;modify data

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

 ;;**        PCC Data Entry Module         **

 ;;**      EHR/PCC Coding Audit Menu       **

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

 ;;QUIT

APCDBAN   ; IHS/CMI/LAB - Banner routine for Data Entry ;

 +1       ;;2.0;IHS PCC SUITE;**11**;MAY 14, 2009;Build 58

V         ; GET VERSION

 +1        SET APCD("VERSION")="2.0"

 +2        IF $GET(APCDTEXT)=""

               SET APCDTEXT="TEXT"

               SET APCDLINE=3

               GOTO PRINT

 +3        SET APCDTEXT="TEXT"_APCDTEXT

 +4        FOR APCDJ=1:1

               SET APCDX=$TEXT(@APCDTEXT+APCDJ)

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

               IF APCDX="QUIT"!(APCDX="")

                   QUIT 

               SET APCDLINE=APCDJ

PRINT      IF $DATA(IOF)

               WRITE @IOF

 +1       ;W !,$$CTR("INDIAN HEALTH SERVICE",80)

 +2        FOR APCDJ=1:1:APCDLINE

               SET APCDX=$TEXT(@APCDTEXT+APCDJ)

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

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

               KILL APCDX

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

SITE       IF '$DATA(DUZ(2))

               GOTO XIT

           IF 'DUZ(2)

               GOTO XIT

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

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

 +1        DO ^APCDVAR

XIT       ;

 +1        KILL DIC,DA,X,Y,%Y,%,APCDJ,APCDX,APCDTEXT,APCDLINE

 +2        QUIT 

CTR(X,Y)  ;EP - Center X in a field Y wide.

 +1        QUIT $JUSTIFY("",$SELECT($DATA(Y):Y,1:IOM)-$LENGTH(X)\2)_X

 +2       ;----------

TEXT      ;

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

 +2       ;;**    PCC Data Entry Module    **

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

 +4       ;;QUIT

TEXTA     ;accept command menu text

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

 +2       ;;**      PCC Data Entry Module     **

 +3       ;;**     Process ACCEPT Commands    **

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

 +5       ;;QUIT

TEXTF     ;forms tracking menu text

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

 +2       ;;**     PCC Data Entry Module      **

 +3       ;;** Data Entry Forms Tracking Menu **

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

 +5       ;;QUIT

TEXTI     ;fix uncoded dx/proc menu text

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

 +2       ;;**             PCC Data Entry Module           **

 +3       ;;**  Fix UNCODED ICD Diagnoses/Operation Codes  **

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

 +5       ;;QUIT

TEXTS     ;supervisor menu text

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

 +2       ;;**            PCC Data Entry Module            **

 +3       ;;** Data Entry SUPERVISOR Options and Utilities **

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

 +5       ;;QUIT

TEXTU     ;date entry utilities menu text

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

 +2       ;;**    PCC Data Entry Module    **

 +3       ;;**  Data Entry Utilities Menu  **

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

 +5       ;;QUIT

TEXTB     ;date entry utilities menu text

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

 +2       ;;**    PCC Data Entry Module    **

 +3       ;;**  Enter/Edit Suicide Forms   **

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

 +5       ;;QUIT

TEXTV     ;visit review report menu text

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

 +2       ;;**    PCC Data Entry Module    **

 +3       ;;**    Visit Review Reports     **

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

 +5       ;;QUIT

TEXTE     ;error code menu

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

 +2       ;;**    PCC Data Entry Module    **

 +3       ;;**    Visit Review Reports     **

 +4       ;;**                             **

 +5       ;;**       Error Code Menu       **

 +6       ;;*********************************

 +7       ;;QUIT

TEXTL     ;link in-hospital menu

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

 +2       ;;**            PCC Data Entry Module            **

 +3       ;;** Data Entry SUPERVISOR Options and Utilities **

 +4       ;;**            In-Hospital Link Menu            **

 +5       ;;*************************************************

 +6       ;;QUIT

TEXTP     ;fix uncoded operations menu

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

 +2       ;;**             PCC Data Entry Module           **

 +3       ;;**       Fix UNCODED ICD Operation Codes       **

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

 +5       ;;QUIT

TEXTC     ;LOG ENTRY

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

 +2       ;;**      PCC Data Entry Module     **

 +3       ;;**       PCC LOG Data Entry       **

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

 +5       ;;QUIT

TEXTT     ;;local table maintenance

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

 +2       ;;**        PCC Data Entry Module       **

 +3       ;;**     PCC Local Table Maintenance    **

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

 +5       ;;QUIT

TEXTM     ;;print table maintenance

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

 +2       ;;**           PCC Data Entry Module              **

 +3       ;;**    PCC Local Table Maintenance Print Menu    **

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

 +5       ;;QUIT

TEXTW     ;;update patient related data

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

 +2       ;;**          PCC Data Entry Module             **

 +3       ;;**      Update Patient-Related Data           **

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

 +5       ;;QUIT

TEXTX     ;;edit site parameters

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

 +2       ;;**          PCC Data Entry Module               **

 +3       ;;**    PCC Data Entry Site Parameters Edit       **

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

 +5       ;;QUIT

TEXTY     ;;display site parameters

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

 +2       ;;**         PCC Data Entry Module                **

 +3       ;;**    PCC Data Entry Site Parameters Display    **

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

 +5       ;;QUIT

TEXTZ     ;;enter date menu

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

 +2       ;;**        PCC Data Entry Module            **

 +3       ;;**      Enter PCC Data Menu Options        **

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

 +5       ;;QUIT

TEXTJ     ;;modify data

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

 +2       ;;**        PCC Data Entry Module            **

 +3       ;;**      Modify PCC Data Menu Options       **

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

 +5       ;;QUIT

TEXTH     ;;modify data

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

 +2       ;;**        PCC Data Entry Module         **

 +3       ;;**      EHR/PCC Coding Audit Menu       **

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

 +5       ;;QUIT