Routine: GMRACMR4

Information

GMRACMR4 ;HIRMFO/WAA-PATIENT NOT ASKED ABOUT ALLERGIES ;10/1/92

Name	Comments	DBIA/ICR reference
EN1	;This is the main entry point for this program
DEV	; *** Select output device, force queuing
ENTSK
PRINT	;PRINT THE DATE
HEAD	;HEADER PAGE FOR PRINTOUT
EXIT	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: DEV+3
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):"Request queued...",1:"Request NOT queued please try later...") Line Location: DEV+10
Function Call: WRITE	Prompt: $E($P(^DPT(GMRADFN,0),U),1,30) Line Location: PRINT+19
Function Call: WRITE	Prompt: ?30,GMRAPID Line Location: PRINT+19
Function Call: WRITE	Prompt: ?66,$S(('GMRA("C")&'GMRA("I")):"ID BAND/CHART",('GMRA("C")):"CHART",('GMRA("I")):"ID BAND",1:"ERROR") Line Location: PRINT+21
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+1
Function Call: WRITE	Prompt: !,GMRAPDT,?22,"PATIENTS WITH UNMARKED ID BAND/CHART",?70,"PAGE ",GMRAPAGE Line Location: HEAD+7
Function Call: WRITE	Prompt: !,?(40-($L(GMRATL)/2)),GMRATL Line Location: HEAD+11
Function Call: WRITE	Prompt: !,?22,"FROM ",$$DATE^GMRAUTL1(GMRAST),?43,"TO ",$$DATE^GMRAUTL1(GMRAED) Line Location: HEAD+12
Function Call: WRITE	Prompt: !!,"PATIENT",?30,"SSN",?45,"ALLERGY",?66,"UNMARKED" Line Location: HEAD+13
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",79) Line Location: HEAD+14