Routine: GMRAPL

Information

GMRAPL ;HIRMFO/WAA- PRINT ALLERGY LIST BY LOCATION ;5/2/97 14:13

Source file <GMRAPL.m>

Package	Total	Call Graph
Kernel	4	^%ZTLOAD $$FMTE^XLFDT $$REPEAT^XLFSTR KILL^XUSCLEAN
Adverse Reaction Tracking	2	(CLOSE,DEV)^GMRAUTL ($$PRDTST,VAD)^GMRAUTL1
VA Fileman	2	NOW^%DTC ^DIR

Package	Total	Caller Graph
Adverse Reaction Tracking	9	GMRA PRINT SIGN BY LOC/DATE GMRAPFT GMRAPST1 GMRAPST2 GMRAPST3 GMRAPST4 GMRAPST5 GMRAPST6 GMRAPST7

Name	Comments	DBIA/ICR reference
HEAD	; Header
DEVICE	; Select a device to print on
GET	; This sub routine is to find all the reaction with in this observed ; date range.
EN1	; This routine will loop through the GMRA patient allergy file ; to find all patient within the date range that meet the criteria ; and then display all the data for those patients first by location ; then by date/time range of the reaction. ; First select a starting date. ; then select an end date. ; then select a print device. ; GMAST = START DATE ; GMAEN = END DATE
EXIT	;EXIT ROUTINE DATA
PRINT	; Print data in the reaction global
DT	; Get dates
DATE(PROMPT,GMADATE)	; Date sub routine

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"One moment please...",! Line Location: PRINT+1
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+2
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+8
Function Call: WRITE	Prompt: $$FMTE^XLFDT(GMRAPDT,"1"),?70,"Page: ",GMAPG Line Location: HEAD+9
Function Call: WRITE	Prompt: !,?15,"From ",$$FMTE^XLFDT(GMAST,"1")," to ",$$FMTE^XLFDT(GMAEN,"1") Line Location: HEAD+11
Function Call: WRITE	Prompt: !,"Date",?20,"Originator",?45,"Type",?50,"Causative Agent" Line Location: HEAD+12
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",79) Line Location: HEAD+13
Function Call: WRITE	Prompt: ! Line Location: DEVICE+2
Function Call: WRITE	Prompt: !,"PLEASE TRY LATER" Line Location: DEVICE+2
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):"Request queued...",1:"Request NOT queued please try Later.") Line Location: DEVICE+6
Routine Call	DIR Line Location: HEAD+4 DATE+5

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	GET+17
^GMR(120.8 - [#120.8]	GET+4, GET+6, GET+7, GET+11, PRINT+11
^SC - [#44]	GET+17
^TMP($J	GET+2!, GET+21*, PRINT+3, PRINT+5, PRINT+6, PRINT+9, PRINT+10, EXIT+1!
^VA(200 - [#200]	PRINT+13

Name	Field # of Occurrence
>> DATE	DATE+2, DATE+5, DATE+6*, DATE+7
DIR	HEAD+4~, DATE+3~
DIR("A"	DATE+4*
DIR(0	HEAD+4, DATE+4
>> DIRUT	DATE+5
GMADATE	DATE~, DATE+1*, DATE+4
GMADT	GET+3~, GET+4, GET+6
>> GMAEN	GET+4, HEAD+11, DT+2, DT+3
>> GMAPG	EN1+12, HEAD+2, HEAD+3, HEAD+8, HEAD+9
>> GMAST	GET+3, HEAD+11, DT+1*, DT+2
>> GMRALOC	GET+14, GET+16, GET+17, GET+18, GET+21, PRINT+3, PRINT+5, PRINT+6, PRINT+9, PRINT+10 , HEAD+10
>> GMRANAM	GET+14, GET+16, GET+21, PRINT+5, PRINT+6, PRINT+8, PRINT+9, PRINT+10
>> GMRAOUT	EN1+10, EN1+11, PRINT+3, PRINT+4, PRINT+5, PRINT+6, PRINT+7, PRINT+9, PRINT+10, HEAD+1 , HEAD+3, HEAD+4, DEVICE+2, DT+1, DT+2*
GMRAPA	GET+5~, GET+6, GET+7, GET+11, GET+21, PRINT+10*, PRINT+11
GMRAPA(0	GET+7, GET+9, GET+10, GET+13, GET+15, GET+16, PRINT+11, PRINT+12, PRINT+13, PRINT+15
>> GMRAPDT	HEAD+9, DEVICE+1*
>> GMRATYP	GET+13, GET+21, PRINT+9, PRINT+10, PRINT+14
>> GMRAVIP	GET+14, GET+16, GET+21, PRINT+6, PRINT+8, PRINT+9, PRINT+10
GMRAZIS	DEVICE+2!
IO	DEVICE+8
IO("Q"	DEVICE+3
IO(0	DEVICE+8
IOF	HEAD+2, HEAD+8
IOSL	PRINT+7, PRINT+16
IOST	PRINT+1, HEAD+1
>> POP	DEVICE+2
PROMPT	DATE~, DATE+4
U	GET+10, GET+11, GET+13, GET+15, GET+16, GET+17, PRINT+12, PRINT+13, PRINT+15
>> X	DEVICE+1
Y	HEAD+4, HEAD+5!, DATE+6
>> ZTDESC	DEVICE+5*
>> ZTRTN	DEVICE+4*
>> ZTSAVE("GMAEN"	DEVICE+4*
>> ZTSAVE("GMAPG"	DEVICE+4*
>> ZTSAVE("GMAST"	DEVICE+4*
>> ZTSAVE("GMRAOUT"	DEVICE+4*
>> ZTSAVE("GMRAPDT"	DEVICE+4*
>> ZTSK	DEVICE+6