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