- MCAREH ;WISC/MLH-ENTER/EDIT CARDIAC PROCEDURES-HELP ;5/2/96 10:26
- ;;2.3;Medicine;;09/13/1996
- DATE ; provide guidance for the date prompt
- N HEADING
- W @$G(IOF)
- S HEADING=MCARDE_" PROCEDURES"
- I $G(IOST)?1"C-VT100".E F I=3,4 W *27,"#",I,$$CENTER(HEADING,40),!
- E W $$CENTER(HEADING,80),!
- W !,"TO ENTER A NEW PROCEDURE:"
- W !!?5,"Enter the date and time when the procedure was performed."
- W !!,"TO EDIT AN EXISTING PROCEDURE:"
- W !!?5,"Enter the patient's name, last name first, or 1st initial of the"
- W !,?5,"last name and the last 4 digits of the social security number.",!
- W !?5,"A partial name may be entered"_$S($G(MCESON)=1:" or a release status",1:"")_"."
- W !?5,"This will bring up all entries matching that part of the name."
- W !!?5,"Or you may enter the date and time when the procedure was"
- W !?5,"performed. This must be an exact match."
- W !!?5,"Or enter a ? to choose from a list of procedures."
- W !!?5,"Release Control is "_$S($G(MCESON)=1:"available",1:"not available")_". "
- I $G(MCESON)=1 D
- .W "You can ",$S($G(MCESSEC)=1:"",1:"not "),"release the reports."
- .W !?5,"You currently "_$S($G(MCESSEC)=1:"have",1:"don't have")_" the "
- .W:$G(MCESKEY)'="" "'"_MCESKEY_"' "
- .W "Key."
- W !
- Q
- ;
- CENTER(TEXT,MGN) ;
- W $J("",MGN-$L(TEXT)/2),TEXT
- Q ""
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMCAREH 1308 printed Jan 18, 2025@03:14:01 Page 2
- MCAREH ;WISC/MLH-ENTER/EDIT CARDIAC PROCEDURES-HELP ;5/2/96 10:26
- +1 ;;2.3;Medicine;;09/13/1996
- DATE ; provide guidance for the date prompt
- +1 NEW HEADING
- +2 WRITE @$GET(IOF)
- +3 SET HEADING=MCARDE_" PROCEDURES"
- +4 IF $GET(IOST)?1"C-VT100".E
- FOR I=3,4
- WRITE *27,"#",I,$$CENTER(HEADING,40),!
- +5 IF '$TEST
- WRITE $$CENTER(HEADING,80),!
- +6 WRITE !,"TO ENTER A NEW PROCEDURE:"
- +7 WRITE !!?5,"Enter the date and time when the procedure was performed."
- +8 WRITE !!,"TO EDIT AN EXISTING PROCEDURE:"
- +9 WRITE !!?5,"Enter the patient's name, last name first, or 1st initial of the"
- +10 WRITE !,?5,"last name and the last 4 digits of the social security number.",!
- +11 WRITE !?5,"A partial name may be entered"_$SELECT($GET(MCESON)=1:" or a release status",1:"")_"."
- +12 WRITE !?5,"This will bring up all entries matching that part of the name."
- +13 WRITE !!?5,"Or you may enter the date and time when the procedure was"
- +14 WRITE !?5,"performed. This must be an exact match."
- +15 WRITE !!?5,"Or enter a ? to choose from a list of procedures."
- +16 WRITE !!?5,"Release Control is "_$SELECT($GET(MCESON)=1:"available",1:"not available")_". "
- +17 IF $GET(MCESON)=1
- Begin DoDot:1
- +18 WRITE "You can ",$SELECT($GET(MCESSEC)=1:"",1:"not "),"release the reports."
- +19 WRITE !?5,"You currently "_$SELECT($GET(MCESSEC)=1:"have",1:"don't have")_" the "
- +20 if $GET(MCESKEY)'=""
- WRITE "'"_MCESKEY_"' "
- +21 WRITE "Key."
- End DoDot:1
- +22 WRITE !
- +23 QUIT
- +24 ;
- CENTER(TEXT,MGN) ;
- +1 WRITE $JUSTIFY("",MGN-$LENGTH(TEXT)/2),TEXT
- +2 QUIT ""