Routine: GMRA1007

Information

GMRA1007 ;IHS/MSC/PLS - Patch support;24-Mar-2014 12:10;DU

Package	Total	Call Graph
VA Fileman	4	DD^%DT C^%DTC UPDATE^DIE $$GET1^DIQ
Kernel	3	^%ZTLOAD ($$FMTE,$$NOW)^XLFDT $$ADD^XPDMENU
Adverse Reaction Tracking	1	BACKLOAD^GMRAZRXU
IHS Standard Terminology	1	$$ASSOC^BSTSAPI
MailMan	1	^XMD
Order Entry Results Reporting	1	$$CHECK^ORWDAL32

Package

Total

Call Graph

VA Fileman

DD^%DT C^%DTC UPDATE^DIE $$GET1^DIQ

Kernel

^%ZTLOAD ($$FMTE,$$NOW)^XLFDT $$ADD^XPDMENU

Adverse Reaction Tracking

BACKLOAD^GMRAZRXU

IHS Standard Terminology

$$ASSOC^BSTSAPI

MailMan

^XMD

Order Entry Results Reporting

$$CHECK^ORWDAL32

Entry Points

Name	Comments	DBIA/ICR reference
PRE	;EP -
STATUS	;check on status of VS xref indexing
ADD(IEN,MECH,TYPE)	;ADD the event code
INACT	;EP Remove duplicate toothpaste entries
ADDING	;Add new ingredient to the file
UPDATE	; Run the post-init
PATCH(X)	;return 1 if patch X was installed, X=aaaann.nnnnnn
INAC(IEN)	;Inactivate this entry
ENV	;EP -
EVENT	; EP Populate old allergies with event codes
MAIL	;Send completion message to user who initiated post-install
POST	;EP Run the post-init routines
ADDSYM	;Add new symptom to the file
EVENTS	;Enter old SNOMED event codes

External References

Name	Field # of Occurrence
DD^%DT	STATUS+4, STATUS+6
C^%DTC	EVENTS+8
^%ZTLOAD	EVENTS+4
$$ASSOC^BSTSAPI	ADDING+18
UPDATE^DIE	ADD+12, INAC+6, ADDSYM+9, ADDING+14, ADDING+28
$$GET1^DIQ	EVENT+4, EVENT+7, EVENT+8
BACKLOAD^GMRAZRXU	UPDATE+3
$$CHECK^ORWDAL32	INACT+4
$$FMTE^XLFDT	MAIL+6, MAIL+7
$$NOW^XLFDT	UPDATE+1, UPDATE+4, INAC+4
^XMD	MAIL+10
$$ADD^XPDMENU	POST+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You must first install "_PATCH_"." Line Location: ENV+7
Function Call: WRITE	Prompt: "Attempt to add GMRA menu option option failed." Line Location: POST+6
Function Call: WRITE	Prompt: !,"Data update completed!" Line Location: STATUS+3
Function Call: WRITE	Prompt: !,"Task started: "_Y Line Location: STATUS+5
Function Call: WRITE	Prompt: !,"Task ended: "_Y Line Location: STATUS+7
Function Call: WRITE	Prompt: !,"Still working on the update." Line Location: STATUS+9
Function Call: WRITE	Prompt: !,"You must have tasked it!" Line Location: STATUS+10
Function Call: WRITE	Prompt: !,IENS Line Location: INAC+7
Function Call: WRITE	Prompt: ERR("DIERR",1,"TEXT",1) Line Location: INAC+7
Function Call: WRITE	Prompt: ERR("DIERR",1,"TEXT",1) Line Location: INAC+7
Routine Call	DIE Line Location: ADD+12 INAC+6 ADDSYM+9 ADDING+14 ADDING+28

FileNo	Call Tags
^GMR(120.8 - [#120.8]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BEHOAR(90460.06 - [#90460.06]	ADD+8
^DIC(9.4 - [#9.4]	PATCH+4, PATCH+5, PATCH+7, PATCH+8
^GMR(120.8 - [#120.8]	EVENT+3, EVENT+6, ADDING+21, ADDING+22
^GMRD(120.82 - [#120.82]	INACT+3, ADDING+6, ADDING+11
^GMRD(120.83 - [#120.83]	ADDSYM+4, ADDSYM+5
^PS(50.416 - [#50.416]	ADDING+4
^XPD(9.7 - [#9.7]	ENV+10, ENV+12, ENV+13
^XTMP("GMRA1007"	EVENTS+6!, EVENTS+9, EVENTS+10, UPDATE+1, UPDATE+4, STATUS+1, STATUS+4, STATUS+6, STATUS+8, STATUS+10 , MAIL+6, MAIL+7

Name	Line Occurrences
$$PATCH	ENV+6
ADD	EVENT+11
ADDING	POST+4
ADDSYM	POST+3
EVENT	UPDATE+2
EVENTS	POST+1
INAC	INACT+6
INACT	POST+2
MAIL	UPDATE+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AIEN	ADD+10!, ADD+13!, INAC+3*, INAC+4, INAC+5
CNT	EVENT+1~, EVENT+2*
DIR	EVENTS+1~
DT	EVENTS+7, EVENTS+9
DUZ	MAIL+3
ECNT	EVENT+1~, EVENT+2*
EIE	EVENT+1~, EVENT+4*, EVENT+5
END	STATUS+2~
ERR	ADD+1~, ADD+10!, ADD+13!, INAC+1!, INAC+7, ADDSYM+1~, ADDING+1~, ADDING+10*, ADDING+15
ERR("DIERR"	INAC+7
FDA	ADD+1~, ADD+13!, INAC+1!, ADDSYM+1~, ADDING+1~, ADDING+23!
FDA(	ADD+11, INAC+4, INAC+5, ADDSYM+8, ADDING+13, ADDING+25, ADDING+26, ADDING+27
FILE	ADDSYM+1~, ADDSYM+6, ADDSYM+8, ADDING+1~, ADDING+8, ADDING+13
FNUM	INAC+1!, INAC+2*
GMRATXT	MAIL+1~
GMRATXT(1	MAIL+4*
GMRATXT(2	MAIL+5*
GMRATXT(3	MAIL+6*
GMRATXT(4	MAIL+7*
GMRATXT(5	MAIL+8*
I	PATCH+3~, PATCH+4*, PATCH+5, PATCH+7, PATCH+8
IEN	EVENT+1~, EVENT+3, EVENT+4, EVENT+6, EVENT+7, EVENT+8, EVENT+11, ADD~, ADD+9, INACT+1~ , INACT+3, INACT+4, INACT+6, INAC~, INAC+3, ADDSYM+1~
IEN2	ADDING+1~, ADDING+23!
IENS	ADD+1~, ADD+9, ADD+11, INAC+7, ADDSYM+1~, ADDSYM+7, ADDSYM+8, ADDING+1~, ADDING+12, ADDING+13 , ADDING+23!, ADDING+24, ADDING+25, ADDING+26, ADDING+27
IN	ENV+9, ENV+10, ENV+12, ADDING+1~, ADDING+17, ADDING+18
ING	ADDING+1~, ADDING+3*, ADDING+4, ADDING+17
INGIEN	ADDING+1~, ADDING+4*, ADDING+5, ADDING+11, ADDING+13, ADDING+22, ADDING+25
>> INSTDA	ENV+9, ENV+12, ENV+13
J	PATCH+3~, PATCH+5*, PATCH+7, PATCH+8
MECH	EVENT+1~, EVENT+8, EVENT+9, EVENT+11, ADD~, ADD+2, ADD+4, ADD+6
NIEN	INAC+1!
NUM	PATCH+3~, PATCH+8*, PATCH+9
PATCH	ENV+1~, ENV+5*, ENV+6, ENV+7
PT	ADDING+1~, ADDING+21*, ADDING+22, ADDING+24
RXNORM	ADDING+1~, ADDING+20*, ADDING+26
SAVE	INACT+1~, INACT+2, INACT+5, INACT+6
SIEN	ADDSYM+1~, ADDSYM+4*, ADDSYM+5, ADDSYM+7
SIGN	ADDSYM+1~, ADDSYM+2*, ADDSYM+4
SNO	ADD+1~, ADD+3, ADD+5, ADD+7*, ADD+8
SNOIEN	ADD+1~, ADD+8*, ADD+11
START	STATUS+2~
>> STAT	ENV+13*, ENV+14
SULFA	ADDING+1~, ADDING+2*, ADDING+6, ADDING+21
SULIEN	ADDING+1~, ADDING+6*, ADDING+7, ADDING+11, ADDING+12
SYN	ADDSYM+1~, ADDSYM+3*, ADDSYM+5, ADDSYM+8
SYNIEN	ADDSYM+1~, ADDSYM+5*
TXT	MAIL+1~
TYPE	EVENT+1~, EVENT+7, EVENT+10, EVENT+11, ADD~, ADD+3, ADD+5, ADD+7
U	ENV+13, EVENT+6, ADDING+17, ADDING+19, ADDING+20
UNII	ADDING+1~, ADDING+20*, ADDING+27
X	PATCH~, PATCH+2, PATCH+4, PATCH+5, PATCH+7, PATCH+8, PATCH+9, POST+5, POST+6, EVENTS+7~ , EVENTS+9, EVENTS+15~, STATUS+2~, INACT+1~, INACT+4, INACT+5, INACT+6, ADDING+1~, ADDING+18, ADDING+19 , ADDING+20
X1	EVENTS+7~*
X2	EVENTS+7~*
XMDUZ	MAIL+1~, MAIL+2*
XMMG	MAIL+1~
XMSUB	MAIL+1~, MAIL+9*
XMTEXT	MAIL+1~, MAIL+9*
XMY	MAIL+1~
XMY(	MAIL+2, MAIL+3
XMZ	MAIL+1~
>> XPDDIQ("XPZ1"	ENV+2, ENV+16
>> XPDDIQ("XPZ2"	ENV+2, ENV+16
>> XPDQUIT	ENV+7*
XUMF	ADDSYM+1~, ADDSYM+6, ADDING+8
Y	STATUS+2~, STATUS+4, STATUS+5, STATUS+6, STATUS+7
ZTDESC	EVENTS+1~, EVENTS+3*
ZTIO	EVENTS+1~, EVENTS+2*
ZTRTN	EVENTS+1~, EVENTS+2*
ZTSAVE	EVENTS+1~
ZTSAVE("DUZ"	EVENTS+2*
ZTSK	EVENTS+1~, EVENTS+5, EVENTS+12

Customize PDF page

Package: Adverse Reaction Tracking

Routine: GMRA1007

Information

Source Information