- 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