Routine: MCARP

Information

MCARP ;WISC/TJK,WAA-PRINT ROUTINES ;12/15/97 14:54

Source file <MCARP.m>

Name	Comments	DBIA/ICR reference
CATH	;
ECHO
ECG
EP
HOLTER
RHFULL
ETT
LOOK	;
DEVQUE	; Device Control and Queuing Control
PRINT	; Print Report
RHPRT	;
CALLTEM	;
EXIT	;
LOOK2	;
CATH1
CATHB
ECHO1
ECHOB
ECG1
ECGB
EPB
EP1
VT
EPEND
ETT1
ETTB
HOLTER1
HOLTERB
GENERIC
GENERICB
GI	;I $D(^DIC(120.8)) D ^MCAROGM I 1 ; new allergy info
PARAC
GIB
PULM
PULMB
NONENDO
NONENDOB
CONSULT
CONSULTB
GENIMP
GENIMPB
ALEAD
ALEADB
VLEAD
VLEADB
SURV
SURVB
RHFULL1	;
RHFULL2	;
RHB
DTIME	; Setup Date/Time
HEAD	;
HEDSTAR(X,X1)	; surround text string X with asterisks to length X1
MCPPROC	; Get require variables
XTRCT(FULL)	;Extrinsic Function use to determine Full reporting or brief
MCPROP(MCPROP)	; Medicine Procedure file entry validator

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Pg. "_PG,?30,HOSP,?79-$L(MCARDTM),MCARDTM Line Location: HEAD+6
Function Call: WRITE	Prompt: ! Line Location: HEAD+7
Function Call: WRITE	Prompt: !,$$HEDSTAR("CONFIDENTIAL "_MCARZ,77) Line Location: HEAD+11
Function Call: WRITE	Prompt: !,MCARGNM_" "_SSN_" " Line Location: HEAD+12
Function Call: WRITE	Prompt: ?39-($L(MCARWARD_" "_MCARRB)\2),MCARWARD_" "_MCARRB,?79-$L(" DOB: "_MCARDOB)," DOB: "_MCARDOB Line Location: HEAD+12
Function Call: WRITE	Prompt: !,$$HEDSTAR(MCARZ,77) Line Location: HEAD+14
Function Call: WRITE	Prompt: !,?39-($L("PROCEDURE DATE/TIME: "_MCARGDT2)\2),"PROCEDURE DATE/TIME: ",MCARGDT2 Line Location: HEAD+15
Function Call: WRITE	Prompt: !,FFF,! Line Location: HEAD+16