MCAREH.m

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 ---MCAREH   1308     printed  Dec 13, 2024@02:12:49                                                                                                                                                                                                      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 ""