APCLBAN ; IHS/CMI/LAB - Banner routine for Management RPTS ;
;;2.0;IHS PCC SUITE;**5,6**;MAY 14, 2009;Build 11
V ; GET VERSION
S APCL("VERSION")="",APCL("VERSION")=$O(^DIC(9.4,"C","BJPC",APCL("VERSION"))),APCL("VERSION")=^DIC(9.4,APCL("VERSION"),"VERSION")
I $G(APCLTEXT)="" S APCLTEXT="TEXT",APCLLINE=3 G PRINT
S APCLTEXT="TEXT"_APCLTEXT
F APCLJ=1:1 S APCLX=$T(@APCLTEXT+APCLJ),APCLX=$P(APCLX,";;",2) Q:APCLX="QUIT"!(APCLX="") S APCLLINE=APCLJ
PRINT W:$D(IOF) @IOF
F APCLJ=1:1:APCLLINE S APCLX=$T(@APCLTEXT+APCLJ),APCLX=$P(APCLX,";;",2) W !?80-$L(APCLX)\2,APCLX K APCLX
W !?80-(22+$L(APCL("VERSION")))/2,"IHS PCC Suite Version ",APCL("VERSION")
SITE G XIT:'$D(DUZ(2)) G:'DUZ(2) XIT S APCL("SITE")=$P(^DIC(4,DUZ(2),0),"^") W !!?80-$L(APCL("SITE"))\2,APCL("SITE")
XIT ;
K DIC,DA,X,Y,%Y,%,APCLJ,APCLX,APCLTEXT,APCLLINE,APCL
Q
TEXT ;
;;*********************************
;;** PCC Management Reports **
;;*********************************
;;QUIT
TEXTA ;apc reports
;;************************************
;;** PCC Management Reports **
;;** APC Reports **
;;************************************
;;QUIT
TEXTQ ;quality assurance reports
;;************************************
;;** PCC Management Reports **
;;** Quality Assurance Reports **
;;************************************
;;QUIT
TEXTR ;resource allocation/workload reports
;;********************************************
;;** PCC Management Reports **
;;** Resource Allocation/Workload Reports **
;;********************************************
;;QUIT
TEXTC ;activity reports by discipline group
;;************************************************
;;** PCC Management Reports **
;;** Activity Reports by Discipline Group **
;;************************************************
;;QUIT
TEXTV ;Ambulatory visit counts
;;**************************************
;;** PCC Management Reports **
;;** PCC Ambulatory Visit Counts **
;;**************************************
;;QUIT
TEXTI ;inpatient reports
;;***********************************
;;** PCC Management Reports **
;;** Inpatient Reports **
;;***********************************
;;QUIT
TEXTB ;billing reports
;;**********************************
;;** PCC Management Reports **
;;** Billing Reports **
;;**********************************
;;QUIT
TEXTP ;patient listings
;;********************************
;;** PCC Management Reports **
;;** Patient Listings **
;;********************************
;;QUIT
TEXTO ;EP
;;********************************
;;** PCC Management Reports **
;;** Operations Summary Menu **
;;********************************
;;QUIT
TEXTN ;EP
;;***********************************
;;** PCC Management Reports **
;;** Body Mass Index Reports **
;;***********************************
;;QUIT
TEXTM ;EP
;;********************************
;;** PCC Management Reports **
;;** Report Template **
;;********************************
;;QUIT
TEXTD ;EP
;;***********************************
;;** PCC Management Reports **
;;** Diabetes Audit Report Menu **
;;***********************************
;;QUIT
TEXTE ;;EP
;;***********************************
;;** PCC Management Reports **
;;** Immunization Report Menu **
;;***********************************
;;QUIT
TEXTF ;EP
;;***********************************
;;** PCC Management Reports **
;;** Count Summary Menu **
;;***********************************
;;QUIT
TEXTG ;EP
;;***********************************
;;** PCC Management Reports **
;;** Patient Single Visit Menu **
;;***********************************
;;
TEXTS ;EP
;;************************************
;;** PCC Management Reports **
;;** Suicide Form Data Reports Menu **
;;************************************
;;QUIT
TEXTJ ;;EP
;;*******************************************
;;** PCC Management Reports **
;;** Breastfeeding Statistical Reports **
;;*******************************************
;;QUIT
TEXTH ;
;;*******************************************
;;** PCC Management Reports **
;;** EPI Program HL7 Exports **
;;*******************************************
;;QUIT
TEXTK ;
;;********************************************
;;** PCC Management Reports **
;;** Meaningful Use Performance Reports **
;;********************************************
;;QUIT
APCLBAN ; IHS/CMI/LAB - Banner routine for Management RPTS ;
+1 ;;2.0;IHS PCC SUITE;**5,6**;MAY 14, 2009;Build 11
V ; GET VERSION
+1 SET APCL("VERSION")=""
SET APCL("VERSION")=$ORDER(^DIC(9.4,"C","BJPC",APCL("VERSION")))
SET APCL("VERSION")=^DIC(9.4,APCL("VERSION"),"VERSION")
+2 IF $GET(APCLTEXT)=""
SET APCLTEXT="TEXT"
SET APCLLINE=3
GOTO PRINT
+3 SET APCLTEXT="TEXT"_APCLTEXT
+4 FOR APCLJ=1:1
SET APCLX=$TEXT(@APCLTEXT+APCLJ)
SET APCLX=$PIECE(APCLX,";;",2)
IF APCLX="QUIT"!(APCLX="")
QUIT
SET APCLLINE=APCLJ
PRINT IF $DATA(IOF)
WRITE @IOF
+1 FOR APCLJ=1:1:APCLLINE
SET APCLX=$TEXT(@APCLTEXT+APCLJ)
SET APCLX=$PIECE(APCLX,";;",2)
WRITE !?80-$LENGTH(APCLX)\2,APCLX
KILL APCLX
+2 WRITE !?80-(22+$LENGTH(APCL("VERSION")))/2,"IHS PCC Suite Version ",APCL("VERSION")
SITE IF '$DATA(DUZ(2))
GOTO XIT
IF 'DUZ(2)
GOTO XIT
SET APCL("SITE")=$PIECE(^DIC(4,DUZ(2),0),"^")
WRITE !!?80-$LENGTH(APCL("SITE"))\2,APCL("SITE")
XIT ;
+1 KILL DIC,DA,X,Y,%Y,%,APCLJ,APCLX,APCLTEXT,APCLLINE,APCL
+2 QUIT
TEXT ;
+1 ;;*********************************
+2 ;;** PCC Management Reports **
+3 ;;*********************************
+4 ;;QUIT
TEXTA ;apc reports
+1 ;;************************************
+2 ;;** PCC Management Reports **
+3 ;;** APC Reports **
+4 ;;************************************
+5 ;;QUIT
TEXTQ ;quality assurance reports
+1 ;;************************************
+2 ;;** PCC Management Reports **
+3 ;;** Quality Assurance Reports **
+4 ;;************************************
+5 ;;QUIT
TEXTR ;resource allocation/workload reports
+1 ;;********************************************
+2 ;;** PCC Management Reports **
+3 ;;** Resource Allocation/Workload Reports **
+4 ;;********************************************
+5 ;;QUIT
TEXTC ;activity reports by discipline group
+1 ;;************************************************
+2 ;;** PCC Management Reports **
+3 ;;** Activity Reports by Discipline Group **
+4 ;;************************************************
+5 ;;QUIT
TEXTV ;Ambulatory visit counts
+1 ;;**************************************
+2 ;;** PCC Management Reports **
+3 ;;** PCC Ambulatory Visit Counts **
+4 ;;**************************************
+5 ;;QUIT
TEXTI ;inpatient reports
+1 ;;***********************************
+2 ;;** PCC Management Reports **
+3 ;;** Inpatient Reports **
+4 ;;***********************************
+5 ;;QUIT
TEXTB ;billing reports
+1 ;;**********************************
+2 ;;** PCC Management Reports **
+3 ;;** Billing Reports **
+4 ;;**********************************
+5 ;;QUIT
TEXTP ;patient listings
+1 ;;********************************
+2 ;;** PCC Management Reports **
+3 ;;** Patient Listings **
+4 ;;********************************
+5 ;;QUIT
TEXTO ;EP
+1 ;;********************************
+2 ;;** PCC Management Reports **
+3 ;;** Operations Summary Menu **
+4 ;;********************************
+5 ;;QUIT
TEXTN ;EP
+1 ;;***********************************
+2 ;;** PCC Management Reports **
+3 ;;** Body Mass Index Reports **
+4 ;;***********************************
+5 ;;QUIT
TEXTM ;EP
+1 ;;********************************
+2 ;;** PCC Management Reports **
+3 ;;** Report Template **
+4 ;;********************************
+5 ;;QUIT
TEXTD ;EP
+1 ;;***********************************
+2 ;;** PCC Management Reports **
+3 ;;** Diabetes Audit Report Menu **
+4 ;;***********************************
+5 ;;QUIT
TEXTE ;;EP
+1 ;;***********************************
+2 ;;** PCC Management Reports **
+3 ;;** Immunization Report Menu **
+4 ;;***********************************
+5 ;;QUIT
TEXTF ;EP
+1 ;;***********************************
+2 ;;** PCC Management Reports **
+3 ;;** Count Summary Menu **
+4 ;;***********************************
+5 ;;QUIT
TEXTG ;EP
+1 ;;***********************************
+2 ;;** PCC Management Reports **
+3 ;;** Patient Single Visit Menu **
+4 ;;***********************************
+5 ;;
TEXTS ;EP
+1 ;;************************************
+2 ;;** PCC Management Reports **
+3 ;;** Suicide Form Data Reports Menu **
+4 ;;************************************
+5 ;;QUIT
TEXTJ ;;EP
+1 ;;*******************************************
+2 ;;** PCC Management Reports **
+3 ;;** Breastfeeding Statistical Reports **
+4 ;;*******************************************
+5 ;;QUIT
TEXTH ;
+1 ;;*******************************************
+2 ;;** PCC Management Reports **
+3 ;;** EPI Program HL7 Exports **
+4 ;;*******************************************
+5 ;;QUIT
TEXTK ;
+1 ;;********************************************
+2 ;;** PCC Management Reports **
+3 ;;** Meaningful Use Performance Reports **
+4 ;;********************************************
+5 ;;QUIT
