©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
BUDEBAN ; IHS/CMI/LAB - Banner routine for uds ;
;;12.0;IHS/RPMS UNIFORM DATA SYSTEM;;NOV 22, 2017;Build 75
;
;Writes all menu banners.
EP ;EP
V ; GET VERSION
S BUD("VERSION")="",BUD("VERSION")=$O(^DIC(9.4,"C","BUD",BUD("VERSION"))),BUD("VERSION")=^DIC(9.4,BUD("VERSION"),"VERSION")
S BUD("VERSION")="12.0"
I $G(BUDTEXT)="" S BUDTEXT="TEXT",BUDLINE=4 G PRINT
S BUDTEXT="TEXT"_BUDTEXT
F BUDJ=1:1 S BUDX=$T(@BUDTEXT+BUDJ),BUDX=$P(BUDX,";;",2) Q:BUDX="QUIT"!(BUDX="") S BUDLINE=BUDJ
PRINT W:$D(IOF) @IOF
F BUDJ=1:1:BUDLINE S BUDX=$T(@BUDTEXT+BUDJ),BUDX=$P(BUDX,";;",2) W !?80-$L(BUDX)\2,BUDX K BUDX
S X=$P(^DIC(4,DUZ(2),0),U)
W !?80-$L(X)/2,X
W !?80-(8+$L(BUD("VERSION")))/2,"Version ",BUD("VERSION")
XIT ;
K DIC,DA,X,Y,%Y,%,BUDJ,BUDX,BUDTEXT,BUDLINE
Q
TEXT ;uds
;;********************************************
;;** RPMS UNIFORM DATA SYSTEM (UDS) **
;;** 2017 **
;;********************************************
;;QUIT
TEXTR ;
;;**************************************
;;** RPMS UNIFORM DATA SYSTEM (UDS) **
;;** 2017 Reports **
;;**************************************
;;QUIT
TEXTM ;manager utilities
;;**************************************
;;** RPMS UNIFORM DATA SYSTEM (UDS) **
;;** 2017 Manager Utilities **
;;**************************************
;;QUIT
TEXTL ;;
;;**************************************
;;** RPMS UNIFORM DATA SYSTEM (UDS) **
;;** 2017 Patient and Provider Lists **
;;**************************************
;;QUIT
TEXTA ;;
;;*******************************************************
;;** RPMS UNIFORM DATA SYSTEM (UDS) **
;;** 2017 Patient and Provider List **
;;** Lists for Tables Zip Code, 3A&3B, 4, 5, and 6A **
;;*******************************************************
;;QUIT
TEXTB ;;
;;**************************************
;;** RPMS UNIFORM DATA SYSTEM (UDS) **
;;** 2017 Patient and Provider Lists **
;;** Lists for Table 6B **
;;**************************************
;;QUIT
TEXTC ;;
;;**************************************
;;** RPMS UNIFORM DATA SYSTEM (UDS) **
;;** 2017 Patient and Provider Lists **
;;** Lists for Table 7 **
;;**************************************
;;QUIT
TEXTD ;;
;;**************************************
;;** RPMS UNIFORM DATA SYSTEM (UDS) **
;;** 2017 Patient and Provider Lists **
;;** Pregnant Patient Lists **
;;**************************************
;;QUIT
TEXTE ;;
;;**************************************
;;** RPMS UNIFORM DATA SYSTEM (UDS) **
;;** 2017 Patient and Provider Lists **
;;** Hypertension Patient Lists **
;;**************************************
;;QUIT
TEXTF ;;
;;**************************************
;;** RPMS UNIFORM DATA SYSTEM (UDS) **
;;** 2017 Patient and Provider Lists **
;;** Diabetes Patient Lists **
;;**************************************
;;QUIT
TEXTG ;;
;;*********************************************
;;** RPMS UNIFORM DATA SYSTEM (UDS) **
;;** 2017 Patient and Provider Lists **
;;** Lists for Table 6B Sections A through D **
;;*********************************************
;;QUIT
TEXTH ;;
;;**********************************************
;;** RPMS UNIFORM DATA SYSTEM (UDS) **
;;** 2017 Patient and Provider Lists **
;;** Lists for Table 6B Sections E through G2 **
;;**********************************************
;;QUIT
TEXTI ;;
;;*********************************************
;;** RPMS UNIFORM DATA SYSTEM (UDS) **
;;** 2017 Patient and Provider Lists **
;;** Lists for Table 6B Sections H through K **
;;*********************************************
;;QUIT
TEXTJ ;;
;;**************************************
;;** RPMS UNIFORM DATA SYSTEM (UDS) **
;;** 2017 Patient and Provider Lists **
;;** Lists for Table 6B-All **
;;**************************************
;;QUIT