Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: MCAREH

MCAREH.m

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