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
