Routine: GMTSALG

Information

GMTSALG ; SLC/DLT,KER - Allergies ;08-Mar-2011 08:39;DU

Source Information

Source file <GMTSALG.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Health Summary	3	$$WRAP^GMTSORC (REGDT4,REGDTM4)^GMTSU CKP^GMTSUP
VA Fileman	2	$$GET1^DIQ ^DIWP
Adverse Reaction Tracking	1	EN1^GMRADPT

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Health Summary	1	GMTSALGB

Entry Points

Name	Comments	DBIA/ICR reference
ALLAS	; Allergy Assessment
NKA	; No known allergies
TEXT	; Setup for print of allergy comments
ALLRGP	; Allergy Print
TITLE	; Print title
SIGBLK(GMTSALF)	; Signature block
GETALLRG	; Get Allergies
ALLRG	; Allergies
PRUN	;IHS/MSC/MGH Print unassessable
AUTOV	; Autoverify
UNASS(DFN)	;IHS/MSC/MGH Check if patient is unassessable
FORMAT	; Formats each line
LINE	; Writes formatted lines of text
INACTIVE(NODE)	;IHS/MSC/MGH Display the inactive data as needed

External References

Name	Field # of Occurrence
$$GET1^DIQ	ALLAS+2, ALLAS+4, ALLAS+5, ALLAS+6, SIGBLK+1, UNASS+6, UNASS+7
^DIWP	FORMAT+1
EN1^GMRADPT	GETALLRG+2
$$WRAP^GMTSORC	ALLRGP+6
REGDT4^GMTSU	ALLAS+3
REGDTM4^GMTSU	ALLRGP+25, ALLRGP+29, ALLRGP+30
CKP^GMTSUP	ALLRG+9, ALLRGP+3, ALLRGP+6, ALLRGP+10, ALLRGP+16, ALLRGP+20, ALLRGP+26, ALLRGP+27, ALLRGP+29, ALLRGP+30 , NKA+2, NKA+3, NKA+4, NKA+5, NKA+6, PRUN+1, PRUN+2, TITLE+1, TEXT+1, LINE+1 , SIGBLK+2, SIGBLK+3, INACTIVE+2, INACTIVE+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "Unknown, please evaluate",! Line Location: ALLRG+9
Function Call: WRITE	Prompt: !?2,$S(II="D":"Drug:",II="DF":"Drug/Food:",II="DFO":"Drug/Food/Other:",II="DO":"Drug/Other:",II="F":"Food:",II="FO":"Food/Other:",II="O":"Other:",1:II_":") Line Location: ALLRGP+3
Function Call: WRITE	Prompt: !?5,JJ_": " Line Location: ALLRGP+6
Function Call: WRITE	Prompt: ?24,$S($L(KK)>30:$P(WKK,"\|"),1:KK) Line Location: ALLRGP+6
Function Call: WRITE	Prompt: " (AV" Line Location: ALLRGP+7
Function Call: WRITE	Prompt: $S($P(GMTSAL(II,JJ,KK,L),U,5)=1:" (V",$P(GMTSAL(II,JJ,KK,L),U,5)=0:" (NV",1:"") Line Location: ALLRGP+8
Function Call: WRITE	Prompt: !,?24,$P(WKK,"\|",2) Line Location: ALLRGP+10
Function Call: WRITE	Prompt: !?27 Line Location: ALLRGP+16
Function Call: WRITE	Prompt: !,?27,N Line Location: ALLRGP+20
Function Call: WRITE	Prompt: N Line Location: ALLRGP+21
Function Call: WRITE	Prompt: !,?27,"Date Noted: "_X Line Location: ALLRGP+26
Function Call: WRITE	Prompt: !,?27,"Reaction Source: "_GMTSSRC Line Location: ALLRGP+27
Function Call: WRITE	Prompt: !,?24,"Date/Time: " Line Location: ALLRGP+29
Function Call: WRITE	Prompt: X,! Line Location: ALLRGP+29
Function Call: WRITE	Prompt: ?21,TITLE,! Line Location: TITLE+2
Function Call: WRITE	Prompt: ?21,"Title: ",TITLE,! Line Location: TITLE+3
Function Call: WRITE	Prompt: ?31,CD Line Location: TEXT+1
Function Call: WRITE	Prompt: ! Line Location: TEXT+6
Function Call: WRITE	Prompt: !,?24,^UTILITY($J,"W",DIWL,GMTSLN,0) Line Location: LINE+1
Function Call: WRITE	Prompt: !,?15,"Inactivation: ",$P(NODE,U,1)_"( "_$P(NODE,U,2)_" )" Line Location: INACTIVE+2
Function Call: WRITE	Prompt: !,?15,"Reactivation: ",$P(NODE,U,4) Line Location: INACTIVE+3

FileNo	Call Tags
^GMR(120.86 - [#120.86]	GET1^DIQ
120.869999911	GET1^DIQ
^VA(200 - [#200]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	ALLRG+4
^BEHOAR(90460.05 - [#90460.05]	ALLRGP+13, ALLRGP+24
^GMR(120.8 - [#120.8]	ALLRGP+9, ALLRGP+30, AUTOV+1, TEXT+2
^GMR(120.86 - [#120.86]	UNASS+3, UNASS+4
^UTILITY($J	TEXT+2!, TEXT+3, TEXT+4!, LINE+1

Name	Line Occurrences
ALLAS	GETALLRG+3
ALLRGP	ALLRG+6
AUTOV	ALLRGP+6
FORMAT	TEXT+2
GETALLRG	ALLRG+6
LINE	TEXT+3
NKA	ALLRG+6
PRUN	ALLRG+8, ALLRGP+1, NKA+1
SIGBLK	ALLRGP+28
TEXT	ALLRGP+30
TITLE	ALLRG+6
UNASS	GETALLRG+1

Name	Field # of Occurrence
^(0	ALLRGP+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ALL	ALLRG+10!, ALLRGP+15, ALLRGP+16, ALLRGP+20, ALLRGP+21*, INACTIVE+1~
ALLRG	ALLRG+3~, ALLRG+6, ALLRG+7, ALLRG+9, ALLRG+10!, GETALLRG+2, GETALLRG+3, GETALLRG+13
C	ALLRG+2~
CC	ALLRG+2~, ALLRG+10!, ALLRGP+30*
CCC	ALLRG+10!, ALLRGP+30*, TEXT+2
CD	ALLRG+10!, ALLRGP+30*, TEXT+1
DFN	GETALLRG+1, GETALLRG+3, ALLAS+2, ALLAS+4, UNASS~, UNASS+3, UNASS+4, UNASS+5
DIWF	ALLRG+10!, FORMAT+1*
DIWL	ALLRG+10!, TEXT+3, FORMAT+1*, LINE+1
DIWR	ALLRG+10!, FORMAT+1*
GMRA	ALLRG+10!, GETALLRG+2*
GMRAL	ALLRG+1~, ALLRG+10!, GETALLRG+2, GETALLRG+3, GETALLRG+4
GMRAL(	GETALLRG+5, GETALLRG+6, GETALLRG+7, GETALLRG+8, GETALLRG+10, GETALLRG+11, GETALLRG+12
GMRAUNDT	ALLRG+1~, ALLRGP+1, NKA+1, PRUN+1, UNASS+2, UNASS+6
GMRAUNRE	ALLRG+1~, PRUN+2, UNASS+2, UNASS+7
GMRSRC	ALLRG+2~
GMTSA	ALLRG+3!, ALLRG+10!
GMTSAFN	ALLRG+1~, ALLRGP+28, ALLRGP+29, AUTOV+1*, AUTOV+2
GMTSAL	ALLRG+1~, ALLRG+10!
GMTSAL(	ALLRGP+2, ALLRGP+4, ALLRGP+5, ALLRGP+6, ALLRGP+8, ALLRGP+12, ALLRGP+13, ALLRGP+15, ALLRGP+19, ALLRGP+23 , ALLRGP+24, ALLRGP+25, GETALLRG+10, GETALLRG+12, AUTOV+1
GMTSALAD	ALLRG+1~, NKA+2, NKA+4, ALLAS+1, ALLAS+2, ALLAS+3*
GMTSALAS	ALLRG+1~, ALLRG+6, ALLRG+7, NKA+2, NKA+3, NKA+4, ALLAS+1*
GMTSALAT	ALLRG+1~, NKA+6, ALLAS+6, ALLAS+7
GMTSALAW	ALLRG+1~, NKA+4, NKA+5, NKA+6, ALLAS+1, ALLAS+5, ALLAS+7*
GMTSALF	ALLRG+10!, SIGBLK~, SIGBLK+1
GMTSALG1	ALLAS+1~
GMTSALG2	ALLAS+1~, ALLAS+2
GMTSALG3	ALLAS+1~, ALLAS+7
GMTSALNM	ALLRG+2~, ALLRG+10!, ALLRGP+9, ALLRGP+30, AUTOV+1*, TEXT+2
GMTSAU	ALLAS+1~, ALLAS+4*, ALLAS+5, ALLAS+6
GMTSAV	ALLRG+1~, ALLRGP+7, AUTOV+1, AUTOV+2
GMTSCNT	ALLRG+2~, ALLRG+10!, GETALLRG+5*, GETALLRG+10, GETALLRG+12
GMTSEACT	ALLRG+2~, ALLRG+10!, GETALLRG+7*, GETALLRG+10, GETALLRG+12
GMTSLN	ALLRG+2~, ALLRG+10!, TEXT+2, TEXT+3, TEXT+5, LINE+1
GMTSMECH	ALLRG+2~, ALLRG+10!, GETALLRG+8, GETALLRG+9, GETALLRG+10, GETALLRG+12
GMTSNODE	ALLRG+10!
GMTSPFN	ALLRG+10!
>> GMTSPNF	ALLRG+9, TITLE+2
GMTSPRT	ALLRG+2~, ALLRG+10!, TEXT+2*, FORMAT+1
>> GMTSQIT	ALLRG+5, ALLRG+9, ALLRGP+3, ALLRGP+6, ALLRGP+10, ALLRGP+15, ALLRGP+16, ALLRGP+20, ALLRGP+26, ALLRGP+27 , ALLRGP+29, ALLRGP+30, NKA+2, NKA+3, NKA+4, NKA+5, NKA+6, PRUN+1, PRUN+2, TITLE+1 , TEXT+1, TEXT+3, LINE+1, SIGBLK+2, SIGBLK+3, INACTIVE+2, INACTIVE+3
>> GMTSRC	ALLRGP+13, ALLRGP+14, GETALLRG+11
GMTSSB	SIGBLK+1~*, SIGBLK+2
GMTSSN	SIGBLK+1~*, SIGBLK+2
GMTSSRC	ALLRG+2~, ALLRGP+24*, ALLRGP+27
GMTSST	SIGBLK+1~*, SIGBLK+3
GMTSSTM	ALLRG+2~, ALLRGP+25*
GMTSTY	ALLRG+2~, ALLRG+10!, GETALLRG+6*, GETALLRG+10, GETALLRG+12
I	ALLRG+10!, GETALLRG+5*, GETALLRG+6, GETALLRG+7, GETALLRG+8, GETALLRG+10, GETALLRG+11, GETALLRG+12
II	ALLRG+10!, ALLRGP+2*, ALLRGP+3, ALLRGP+4, ALLRGP+5, ALLRGP+6, ALLRGP+8, ALLRGP+12, ALLRGP+13, ALLRGP+15 , ALLRGP+19, ALLRGP+23, ALLRGP+24, ALLRGP+25, AUTOV+1
IIEN	UNASS+1~
INACTIVE	ALLRG+2~
INIEN	UNASS+1~, UNASS+5*, UNASS+6, UNASS+7
JJ	ALLRG+3~, ALLRG+10!, ALLRGP+4, ALLRGP+5, ALLRGP+6, ALLRGP+8, ALLRGP+12, ALLRGP+13, ALLRGP+15, ALLRGP+19 , ALLRGP+23, ALLRGP+24, ALLRGP+25, GETALLRG+12, AUTOV+1
KK	ALLRG+2~, ALLRG+10!, ALLRGP+5*, ALLRGP+6, ALLRGP+8, ALLRGP+12, ALLRGP+13, ALLRGP+15, ALLRGP+19, ALLRGP+23 , ALLRGP+24, ALLRGP+25, AUTOV+1
L	ALLRG+10!, ALLRGP+6*, ALLRGP+8, ALLRGP+12, ALLRGP+13, ALLRGP+15, ALLRGP+19, ALLRGP+23, ALLRGP+24, ALLRGP+25 , AUTOV+1
M	ALLRG+10!, ALLRGP+15*, ALLRGP+19, ALLRGP+23, ALLRGP+24, ALLRGP+25
MX	ALLRG+10!, ALLRGP+15, ALLRGP+17, ALLRGP+18, INACTIVE+1~
N	ALLRG+10!, ALLRGP+19*, ALLRGP+20, ALLRGP+21, INACTIVE+1~
NODE	INACTIVE~, INACTIVE+2, INACTIVE+3
ODT	ALLRG+10!, ALLRGP+29*
SEQ	ALLRG+3*, ALLRG+10!
TITLE	ALLRG+3~*, ALLRG+10!, TITLE+2, TITLE+3
U	ALLRGP+8, ALLRGP+9, ALLRGP+12, ALLRGP+13, ALLRGP+23, ALLRGP+24, ALLRGP+25, ALLRGP+28, ALLRGP+29, GETALLRG+6 , GETALLRG+7, GETALLRG+8, GETALLRG+11, AUTOV+1, AUTOV+2, INACTIVE+2, INACTIVE+3, UNASS+4
WKK	ALLRGP+5~, ALLRGP+6*, ALLRGP+10
X	ALLRG+1~, ALLRG+4, ALLRG+10!, ALLRGP+25, ALLRGP+26, ALLRGP+29, ALLRGP+30, ALLAS+1~, ALLAS+3, FORMAT+1
Y	UNASS+1~, UNASS+3*, UNASS+4, UNASS+5
Z	ALLRG+10!

Customize PDF page

Package: Health Summary

Routine: GMTSALG

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: