BGP3BAN ; IHS/CMI/LAB - BANNER FOR CRS 13 13 Aug 2010 11:31 AM ; 30 Jul 2012 10:06 AM
;;13.0;IHS CLINICAL REPORTING;**1**;NOV 20, 2012;Build 7
;
;
BANNER ;EP
V ; GET VERSION
NEW BGPV,BGPL,BGPJ,BGPX
S BGPV="13.0 patch 1"
I $G(BGPTEXT)="" S BGPTEXT="TEXT",BGPL=3 G PRINT
S BGPTEXT="TEXT"_BGPTEXT
F BGPJ=1:1 S BGPX=$T(@BGPTEXT+BGPJ),BGPX=$P(BGPX,";;",2) Q:BGPX="QUIT"!(BGPX="") S BGPL=BGPJ
PRINT W:$D(IOF) @IOF
F BGPJ=1:1:BGPL S BGPX=$T(@BGPTEXT+BGPJ),BGPX=$P(BGPX,";;",2) W !,$$CTR(BGPX,80)
W !,$$CTR("Version "_BGPV,80)
SITE W !!,$$CTR($$LOC,80)
K BGPTEXT
Q
RPTVER() ;EP
Q "CRS 2013, Version 13.0 patch 1"
TEXT ;
;;****************************************************
;;** IHS/RPMS CLINICAL REPORTING SYSTEM (CRS) **
;;****************************************************
;;QUIT
;
TEXTN ;
;;*********************************
;;** IHS/RPMS CRS 2013 **
;;** National GPRA Reports **
;;*********************************
;;QUIT
;
TEXTL ;
;;******************************************************
;;** IHS/RPMS CRS 2013 **
;;** Reports for Local Use: IHS Clinical Measures **
;;******************************************************
;;QUIT
;
TEXTO ;
;;*********************************
;;** IHS/RPMS CRS 2013 **
;;** Other National Reports **
;;*********************************
;;QUIT
;
TEXTC ;
;;*********************************
;;** IHS/RPMS CRS 2013 **
;;** CMS Performance Report **
;;*********************************
;;QUIT
;
TEXT6 ;
;;*********************************
;;** IHS/RPMS CRS 2013 **
;;** Clinical Reporting System **
;;*********************************
;;QUIT
;
TEXTA ;;
;;***************************
;;** IHS/RPMS CRS 2013 **
;;** Report Automation **
;;***************************
;;QUIT
;
TEXTR ;
;;**************************
;;** IHS/RPMS CRS 2013 **
;;** Reports Menu **
;;**************************
;;QUIT
TEXTX ;;
;;***************************
;;** IHS/RPMS CRS 2013 **
;;** Area Office Options **
;;***************************
;;QUIT
;
TEXTS ;;
;;**************************
;;** IHS/RPMS CRS 2013 **
;;** Setup Menu **
;;**************************
;;QUIT
;
TEXTT ;;
;;***************************
;;** IHS/RPMS CRS 2013 **
;;** Taxonomy Setup Menu **
;;***************************
;;QUIT
;
TEXTZ ;;
;;***************************
;;** IHS/RPMS CRS 2013 **
;;** Taxonomy Check Menu **
;;***************************
;;QUIT
;
TEXTU ;;
;;*****************************
;;** IHS/RPMS CRS 2013 **
;;** Taxonomy Reports Menu **
;;*****************************
;;QUIT
;;
TEXTG ;;
;;*********************************
;;** IHS/RPMS CRS 2013 **
;;** Lab Taxonomy Reports Menu **
;;*********************************
;;QUIT
;;
TEXTP ;;
;;**************************************
;;** IHS/RPMS CRS 2013 **
;;** Patient Education Reports Menu **
;;**************************************
;;QUIT
TEXTM ;;
;;****************************************
;;** IHS/RPMS CRS 2013 **
;;** Medication Taxonomy Reports Menu **
;;****************************************
;;QUIT
TEXTMU ;
;;***********************************
;;** IHS/RPMS CRS 2013 **
;;** Meaningful Use Reports Menu **
;;***********************************
;;QUIT
;;
CTR(X,Y) ;EP - Center X in a field Y wide.
Q $J("",$S($D(Y):Y,1:IOM)-$L(X)\2)_X
;----------
USR() ;EP - Return name of current user from ^VA(200.
Q $S($G(DUZ):$S($D(^VA(200,DUZ,0)):$P(^(0),U),1:"UNKNOWN"),1:"DUZ UNDEFINED OR 0")
;----------
LOC() ;EP - Return location name from file 4 based on DUZ(2).
Q $S($G(DUZ(2)):$S($D(^DIC(4,DUZ(2),0)):$P(^(0),U),1:"UNKNOWN"),1:"DUZ(2) UNDEFINED OR 0")
;----------
XTMP(N,D) ;EP - set xtmp 0 node
Q:$G(N)=""
S ^XTMP(N,0)=$$FMADD^XLFDT(DT,14)_"^"_DT_"^"_$G(D)
Q
BGP3BAN ; IHS/CMI/LAB - BANNER FOR CRS 13 13 Aug 2010 11:31 AM ; 30 Jul 2012 10:06 AM
+1 ;;13.0;IHS CLINICAL REPORTING;**1**;NOV 20, 2012;Build 7
+2 ;
+3 ;
BANNER ;EP
V ; GET VERSION
+1 NEW BGPV,BGPL,BGPJ,BGPX
+2 SET BGPV="13.0 patch 1"
+3 IF $GET(BGPTEXT)=""
SET BGPTEXT="TEXT"
SET BGPL=3
GOTO PRINT
+4 SET BGPTEXT="TEXT"_BGPTEXT
+5 FOR BGPJ=1:1
SET BGPX=$TEXT(@BGPTEXT+BGPJ)
SET BGPX=$PIECE(BGPX,";;",2)
IF BGPX="QUIT"!(BGPX="")
QUIT
SET BGPL=BGPJ
PRINT IF $DATA(IOF)
WRITE @IOF
+1 FOR BGPJ=1:1:BGPL
SET BGPX=$TEXT(@BGPTEXT+BGPJ)
SET BGPX=$PIECE(BGPX,";;",2)
WRITE !,$$CTR(BGPX,80)
+2 WRITE !,$$CTR("Version "_BGPV,80)
SITE WRITE !!,$$CTR($$LOC,80)
+1 KILL BGPTEXT
+2 QUIT
RPTVER() ;EP
+1 QUIT "CRS 2013, Version 13.0 patch 1"
TEXT ;
+1 ;;****************************************************
+2 ;;** IHS/RPMS CLINICAL REPORTING SYSTEM (CRS) **
+3 ;;****************************************************
+4 ;;QUIT
+5 ;
TEXTN ;
+1 ;;*********************************
+2 ;;** IHS/RPMS CRS 2013 **
+3 ;;** National GPRA Reports **
+4 ;;*********************************
+5 ;;QUIT
+6 ;
TEXTL ;
+1 ;;******************************************************
+2 ;;** IHS/RPMS CRS 2013 **
+3 ;;** Reports for Local Use: IHS Clinical Measures **
+4 ;;******************************************************
+5 ;;QUIT
+6 ;
TEXTO ;
+1 ;;*********************************
+2 ;;** IHS/RPMS CRS 2013 **
+3 ;;** Other National Reports **
+4 ;;*********************************
+5 ;;QUIT
+6 ;
TEXTC ;
+1 ;;*********************************
+2 ;;** IHS/RPMS CRS 2013 **
+3 ;;** CMS Performance Report **
+4 ;;*********************************
+5 ;;QUIT
+6 ;
TEXT6 ;
+1 ;;*********************************
+2 ;;** IHS/RPMS CRS 2013 **
+3 ;;** Clinical Reporting System **
+4 ;;*********************************
+5 ;;QUIT
+6 ;
TEXTA ;;
+1 ;;***************************
+2 ;;** IHS/RPMS CRS 2013 **
+3 ;;** Report Automation **
+4 ;;***************************
+5 ;;QUIT
+6 ;
TEXTR ;
+1 ;;**************************
+2 ;;** IHS/RPMS CRS 2013 **
+3 ;;** Reports Menu **
+4 ;;**************************
+5 ;;QUIT
TEXTX ;;
+1 ;;***************************
+2 ;;** IHS/RPMS CRS 2013 **
+3 ;;** Area Office Options **
+4 ;;***************************
+5 ;;QUIT
+6 ;
TEXTS ;;
+1 ;;**************************
+2 ;;** IHS/RPMS CRS 2013 **
+3 ;;** Setup Menu **
+4 ;;**************************
+5 ;;QUIT
+6 ;
TEXTT ;;
+1 ;;***************************
+2 ;;** IHS/RPMS CRS 2013 **
+3 ;;** Taxonomy Setup Menu **
+4 ;;***************************
+5 ;;QUIT
+6 ;
TEXTZ ;;
+1 ;;***************************
+2 ;;** IHS/RPMS CRS 2013 **
+3 ;;** Taxonomy Check Menu **
+4 ;;***************************
+5 ;;QUIT
+6 ;
TEXTU ;;
+1 ;;*****************************
+2 ;;** IHS/RPMS CRS 2013 **
+3 ;;** Taxonomy Reports Menu **
+4 ;;*****************************
+5 ;;QUIT
+6 ;;
TEXTG ;;
+1 ;;*********************************
+2 ;;** IHS/RPMS CRS 2013 **
+3 ;;** Lab Taxonomy Reports Menu **
+4 ;;*********************************
+5 ;;QUIT
+6 ;;
TEXTP ;;
+1 ;;**************************************
+2 ;;** IHS/RPMS CRS 2013 **
+3 ;;** Patient Education Reports Menu **
+4 ;;**************************************
+5 ;;QUIT
TEXTM ;;
+1 ;;****************************************
+2 ;;** IHS/RPMS CRS 2013 **
+3 ;;** Medication Taxonomy Reports Menu **
+4 ;;****************************************
+5 ;;QUIT
TEXTMU ;
+1 ;;***********************************
+2 ;;** IHS/RPMS CRS 2013 **
+3 ;;** Meaningful Use Reports Menu **
+4 ;;***********************************
+5 ;;QUIT
+6 ;;
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 ;----------
USR() ;EP - Return name of current user from ^VA(200.
+1 QUIT $SELECT($GET(DUZ):$SELECT($DATA(^VA(200,DUZ,0)):$PIECE(^(0),U),1:"UNKNOWN"),1:"DUZ UNDEFINED OR 0")
+2 ;----------
LOC() ;EP - Return location name from file 4 based on DUZ(2).
+1 QUIT $SELECT($GET(DUZ(2)):$SELECT($DATA(^DIC(4,DUZ(2),0)):$PIECE(^(0),U),1:"UNKNOWN"),1:"DUZ(2) UNDEFINED OR 0")
+2 ;----------
XTMP(N,D) ;EP - set xtmp 0 node
+1 IF $GET(N)=""
QUIT
+2 SET ^XTMP(N,0)=$$FMADD^XLFDT(DT,14)_"^"_DT_"^"_$GET(D)
+3 QUIT
