| DFN |
Input |
IEN of PATIENT file
|
global |
Output |
Global containing a list of procedures for display in
OE/RR. Located at ^TMP("OR",$J,"MCAR", This temporary global is sorted by
either inverse date or Procedure Name, based on input parameters. Subscripts
S1 and S2 hold the sort values. The sorted version of the TMP global is used
for selection of procedures. The second version is used as input to produce
the report. $P(^TMP("OR",$J,"MCAR",S1,S2),U,1)=Gross Evaluation
...),U,2)=Pointer to Procedure
...),U,3)=Print Routine (Field #5 from file 697.2)
...),U,4)=Print Line (Field #6 from file 697.2)
...),U,5)=Print Name (Field #7 from file 697.2)
...),U,10)=Summary Title
...),U,11)=Procedure Name
...),U,12)=Print Name_"/"_Procedure Name
$P(^TMP("OR",$J,"MCAR","OT",L),U,1)=Print Name
...),U,2)=Pointer to Procedure
...),U,3)=Print Routine
...),U,4)=Print Line
...),U,5)=Print Name
...),U,6)=Date/time of procedure
...),U,7)=Gross Evaluation
...),U,10)=Summary Title
...),U,11)=Inverse date or Procedure (depends on sort)
...),U,12)=Procedure or Inverse date (depends on sort)^
Note: The global ^TMP("MCAR",$J) should be killed before and after the call to
EN^MCARPS2.
|
S5 |
Input |
S5 may be optionally set to return results from a
single file. Values may be:
"MCAR(691" for ECHO
"MCAR(691.1" for CARDIAC CATHETERIZATION
"MCAR(691.5" for ELECTROCARDIOGRAM
"MCAR(691.6" for HOLTER
"MCAR(691.7" for EXERCISE TOLERANCE
"MCAR(691.8" for ELECTROPHYSIOLOGY
"MCAR(694" for HEMATOLOGY
"MCAR(698" for GENERAL IMPLANT
"MCAR(698.1" for V LEAD IMPLANT
"MCAR(698.2" for A LEAD IMPLANT
"MCAR(698.3" for PACEMAKER SURVEILLANCE
"MCAR(699" for ENDOSCOPY/CONSULT
"MCAR(700" for PULMONARY FUNCTION TESTS
"MCAR(701" for RHEUMATOLOGY
|