Routine: GMRANKA

Information

GMRANKA ;HIRMFO/WAA-ALLERGY/ADVERSE REACTION PATIENT NKA DRIVE ;01-Aug-2013 16:39;DU

Source file <GMRANKA.m>

Package	Total	Call Graph
VA Fileman	4	^DIC ^DIE ^DIK ^DIR
Adverse Reaction Tracking	2	WRITE^GMRADSP8 ($$NKA,CLN)^GMRANKA

Package	Total	Caller Graph
Adverse Reaction Tracking	10	GMRA2PRE GMRAFX3 GMRAGUI1 GMRANKA GMRAPEE0 GMRAPEM0 GMRAY21 GMRAY29 GMRAY40 GMRAZNAS
IHS Mods To Patient Care Encounter	2	BPXRMAL1 BPXRMALL

Name	Comments	DBIA/ICR reference
INFO	; Info string
NKAASK(DFN,GMRAOUT)	; Ask a Patient if patient has any known allergens ; Input Variables ; DFN = Patient Internal entry number ; GMRAOUT = Up Caret or time out flag
CLN	; Clean out entries that have not been answered.
NKASCR(DFN)	; Is Patient NKA (No Known Allergy) ; Input Variable: ; DFN = Patient DFN in Patient file
DELNKA	;Remove assessment of NKA for a selected patient
NKA(DFN)	;See if patient has reaction on file ; Input Variables: ; DFN = Patient Internal Entry Number

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DELNKA+4
Function Call: WRITE	Prompt: !,"This patient doesn't currently have an assessment of NKA." Line Location: DELNKA+5
Function Call: WRITE	Prompt: "...Done" Line Location: DELNKA+9
Routine Call	DIE Line Location: NKAASK+25
Routine Call	DIC Line Location: DELNKA+2
Routine Call	DIR Line Location: NKAASK+12 DELNKA+8

Name	Line Occurrences (* Changed, ! Killed)
^GMR(120.8 - [#120.8]	NKASCR+12, NKASCR+13
^GMR(120.86 - [#120.86]	NKA+9, NKAASK+7, NKAASK+10

Name	Field # of Occurrence
DA	NKAASK+20~, NKAASK+23, CLN+1!
DFN	NKA~, NKA+9, NKAASK~, NKAASK+7, NKAASK+10, NKAASK+23, NKAASK+24, CLN+1, NKASCR~, NKASCR+12 , DELNKA+1~, DELNKA+3*, DELNKA+5
DIC	DELNKA+1~, DELNKA+2*
DIC("A"	DELNKA+2*
DIC(0	DELNKA+2*
DIE	NKAASK+20~, NKAASK+23*
DIK	CLN+1*!
DIR	NKAASK+6~, DELNKA+1~
DIR("?"	NKAASK+11, DELNKA+7
DIR("A"	NKAASK+9, DELNKA+6
DIR("B"	NKAASK+10!, DELNKA+6
DIR(0	NKAASK+8, DELNKA+6
DIROUT	NKAASK+6~, NKAASK+14
DIRUT	NKAASK+6~
DR	NKAASK+20~, NKAASK+24*
DTOUT	NKAASK+6~, NKAASK+14
DUOUT	NKAASK+6~, NKAASK+15
DUZ	NKAASK+24
>> GMA	NKA+8, NKA+9, NKA+10, NKASCR+9, NKASCR+12, NKASCR+14, NKASCR+16
GMAOLD	NKAASK+6~, NKAASK+7*, NKAASK+11, NKAASK+13, NKAASK+17, NKAASK+18, NKAASK+24
GMASTR	INFO+1~, INFO+8
GMASTR(1	INFO+2*
GMASTR(2	INFO+3*
GMASTR(3	INFO+4*
GMASTR(4	INFO+5*
GMASTR(5	INFO+6*
GMAX	NKASCR+10~, NKASCR+11, NKASCR+12, NKASCR+13
GMRAOUT	NKAASK~, NKAASK+14, NKAASK+15
SNOMED	NKAASK+6~, NKAASK+21, NKAASK+22, NKAASK+24
U	NKA+9, NKAASK+7, NKAASK+10
>> X	NKAASK+13
Y	NKAASK+6~, NKAASK+17, NKAASK+18, NKAASK+21, NKAASK+22, NKAASK+24, DELNKA+1~, DELNKA+2, DELNKA+3, DELNKA+9
Y(0	DELNKA+6