Routine: BHSALG

Package	Total	Call Graph
Health Summary	3	$$WRAP^GMTSORC (REGDT4,REGDTM4)^GMTSU CKP^GMTSUP
Adverse Reaction Tracking	2	EN1^GMRADPT EN1^GMRAOR2
VA Fileman	2	$$GET1^DIQ ^DIWP
Kernel	1	$$FMTE^XLFDT
Patient Care Component Reports	1	($$LASTALR,$$LASTALU,$$LASTNAA)^APCLAPI6

Entry Points

Name	Comments	DBIA/ICR reference
NKA	; No known allergies
DATES	;Get verification data and last edited
INACCK(GMTSALNM)	;CHECK FOR INACTIVE
INACTIVE(IIEN)	;IHS/MSC/MGH Display the inactive data as needed
TITLE	; Print title
PRUN	;IHS/MSC/MGH Print unassessable
TEXT	; Setup for print of allergy comments
ALLRGP	; Allergy Print
FORMAT	; Formats each line
SIGBLK(GMTSALF)	; Signature block
COMMON1	;additional stuff for CHHIT bjpc 2.0 patch 5
GETALLRG	; Get Allergies
ALLRG	; Allergies
UNASS(DFN)	;IHS/MSC/MGH Check if patient is unassessable
AUTOV	; Autoverify
RECON(ADR)	;Get dates reconciled
ING	;Drug classes
LINE	; Writes formatted lines of text
ALLAS	; Allergy Assessment
CLS	;Drug classes

External References

Name	Field # of Occurrence
$$LASTALR^APCLAPI6	COMMON1+3
$$LASTALU^APCLAPI6	COMMON1+6
$$LASTNAA^APCLAPI6	COMMON1+9
$$GET1^DIQ	ALLAS+2, ALLAS+4, ALLAS+5, ALLAS+6, SIGBLK+1, INACTIVE+2, INACTIVE+3, UNASS+7, UNASS+8, UNASS+9 , UNASS+10, DATES+14, RECON+7, RECON+8
^DIWP	FORMAT+1
EN1^GMRADPT	GETALLRG+1
EN1^GMRAOR2	ALLRGP+14
$$WRAP^GMTSORC	ALLRGP+13
REGDT4^GMTSU	ALLAS+3
REGDTM4^GMTSU	ALLRGP+39, ALLRGP+47, ALLRGP+50
CKP^GMTSUP	ALLRG+10, ALLRGP+3, ALLRGP+9, ALLRGP+19, ALLRGP+29, ALLRGP+34, ALLRGP+40, ALLRGP+41, ALLRGP+47, ALLRGP+50 , COMMON1+4, COMMON1+7, COMMON1+10, NKA+2, NKA+3, NKA+4, NKA+5, NKA+6, TITLE+1, TEXT+1 , LINE+1, SIGBLK+2, SIGBLK+3, INACTIVE+4, INACTIVE+5, INACTIVE+6, UNASS+4, PRUN+1, PRUN+2, PRUN+3 , CLS+3, CLS+6, ING+3, ING+6, DATES+4, DATES+6, DATES+7, DATES+16
$$FMTE^XLFDT	COMMON1+5, COMMON1+8, COMMON1+11, DATES+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Unknown, please evaluate",! Line Location: ALLRG+10
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: ?15,$S($L(KK)>40:$P(WKK,"\|"),1:KK) Line Location: ALLRGP+13
Function Call: WRITE	Prompt: ?5,"(AV" Line Location: ALLRGP+16
Function Call: WRITE	Prompt: ?5,$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+17
Function Call: WRITE	Prompt: !,?15,$P(WKK,"\|",2) Line Location: ALLRGP+19
Function Call: WRITE	Prompt: !,?15,N Line Location: ALLRGP+34
Function Call: WRITE	Prompt: N Line Location: ALLRGP+35
Function Call: WRITE	Prompt: !,?15,"Date Noted: "_X Line Location: ALLRGP+40
Function Call: WRITE	Prompt: !,?15,"Reaction Source: "_GMTSSRC,! Line Location: ALLRGP+41
Function Call: WRITE	Prompt: !,?10,"Date/Time: " Line Location: ALLRGP+47
Function Call: WRITE	Prompt: X,! Line Location: ALLRGP+47
Function Call: WRITE	Prompt: !,"Allergy List Reviewed On: ",?36,$$FMTE^XLFDT($P(BHSX,U,1)) Line Location: COMMON1+5
Function Call: WRITE	Prompt: ?51,"By: ",?54,$E($S($P(BHSX,U,3):$P($G(^VA(200,$P(BHSX,U,3),0)),U),1:""),1,25),! Line Location: COMMON1+5
Function Call: WRITE	Prompt: "Allergy List Updated On: ",?36,$$FMTE^XLFDT($P(BHSX,U,1)) Line Location: COMMON1+8
Function Call: WRITE	Prompt: ?51,"By: ",?54,$E($S($P(BHSX,U,3):$P($G(^VA(200,$P(BHSX,U,3),0)),U),1:""),1,25),! Line Location: COMMON1+8
Function Call: WRITE	Prompt: "No Allergies Documented On: ",?36,$$FMTE^XLFDT($P(BHSX,U,1)) Line Location: COMMON1+11
Function Call: WRITE	Prompt: ?51,"By: ",$E($S($P(BHSX,U,3):$P($G(^VA(200,$P(BHSX,U,3),0)),U),1:""),1,25),! Line Location: COMMON1+11
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: !,?15,^UTILITY($J,"W",DIWL,GMTSLN,0) Line Location: LINE+1
Function Call: WRITE	Prompt: !,?15,"Inactivation: ",X_"( "_X2_" )" Line Location: INACTIVE+4
Function Call: WRITE	Prompt: !,?20,"Inactivated by: ",X3 Line Location: INACTIVE+5
Function Call: WRITE	Prompt: !,?15,"Reactivation: ",X4,?40,"by "_X5 Line Location: INACTIVE+6
Function Call: WRITE	Prompt: !,?1,"UNASSESSABLE DATA",! Line Location: UNASS+4
Function Call: WRITE	Prompt: !,?5,"Drug Classes: " Line Location: CLS+3
Function Call: WRITE	Prompt: ?25,$P($G(RXN("V",LP)),U,2),! Line Location: CLS+6
Function Call: WRITE	Prompt: !,?5,"Ingredients: " Line Location: ING+3
Function Call: WRITE	Prompt: ?25,$P($G(RXN("I",LP)),U,1),! Line Location: ING+6
Function Call: WRITE	Prompt: ?10,VERTX Line Location: DATES+4
Function Call: WRITE	Prompt: ?25,$$FMTE^XLFDT($P(RXN,U,9)),! Line Location: DATES+6
Function Call: WRITE	Prompt: ?10,"Verified by: "_$P(RXN,U,8),! Line Location: DATES+7
Function Call: WRITE	Prompt: ! Line Location: DATES+8
Function Call: WRITE	Prompt: ?10,"Last Modified: "_X,! Line Location: DATES+16
Function Call: WRITE	Prompt: ! Line Location: DATES+17
Function Call: WRITE	Prompt: !,?10,"Reconciliation Data",! Line Location: RECON+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	ALLRG+5
^BEHOAR(90460.05 - [#90460.05]	ALLRGP+22, ALLRGP+38
^BEHOAR(90460.06 - [#90460.06]	ALLRGP+26
^BEHOCIR("G"	RECON+2, RECON+4, RECON+5
^GMR(120.8 - [#120.8]	ALLRGP+18, ALLRGP+43, ALLRGP+50, AUTOV+1, TEXT+2, INACCK+3, INACCK+4, INACCK+5, DATES+11, DATES+12
^GMR(120.86 - [#120.86]	UNASS+3, UNASS+5
^UTILITY($J	TEXT+2!, TEXT+3, TEXT+4!, LINE+1
^VA(200 - [#200]	COMMON1+5, COMMON1+8, COMMON1+11

Label References

Name	Line Occurrences
$$INACCK	ALLRGP+8
ALLAS	GETALLRG+2
ALLRGP	ALLRG+7
AUTOV	ALLRGP+10
CLS	ALLRGP+15
DATES	ALLRGP+48
FORMAT	TEXT+2
GETALLRG	ALLRG+7
INACTIVE	ALLRGP+45
ING	ALLRGP+15
LINE	TEXT+3
NKA	ALLRG+7
PRUN	UNASS+11
RECON	ALLRGP+49
SIGBLK	ALLRGP+46
TEXT	ALLRGP+50
TITLE	ALLRG+7
UNASS	ALLRG+9, ALLRGP+1, NKA+1

Naked Globals

Name	Field # of Occurrence
^(0	ALLRGP+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADR	ALLRG+3~, ALLRGP+7*, ALLRGP+8, ALLRGP+14, ALLRGP+49, DATES+11, DATES+12, DATES+13, RECON~, RECON+2 , RECON+4, RECON+5
AIEN	RECON+1~, RECON+6*, RECON+7, RECON+8
ALL	ALLRG+11!, ALLRGP+28, ALLRGP+29, ALLRGP+34, ALLRGP+35*
ALLRG	ALLRG+3~, ALLRG+4, ALLRG+7, ALLRG+8, ALLRG+10, ALLRG+11!, GETALLRG+1, GETALLRG+2, GETALLRG+12
BHSX	COMMON1+2~, COMMON1+3, COMMON1+5, COMMON1+6, COMMON1+8, COMMON1+9*, COMMON1+11
BY	RECON+1~, RECON+8*, RECON+9
C	ALLRG+2~
CC	ALLRG+2~, ALLRG+11!, ALLRGP+50*
CCC	ALLRG+11!, ALLRGP+50*, TEXT+2
CD	ALLRG+11!, ALLRGP+50*, TEXT+1
CK	INACCK+1~, INACCK+2, INACCK+6, INACCK+7
CNT	CLS+1~, CLS+2, CLS+5, ING+1~, ING+2, ING+5
DFN	ALLRG+9, ALLRGP+1, COMMON1+3, COMMON1+6, COMMON1+9, NKA+1, GETALLRG+2, ALLAS+2, ALLAS+4, UNASS~ , UNASS+3, UNASS+5, UNASS+6
DIWF	ALLRG+11!, FORMAT+1*
DIWL	ALLRG+11!, TEXT+3, FORMAT+1*, LINE+1
DIWR	ALLRG+11!, FORMAT+1*
DT	COMMON1+3, COMMON1+6, COMMON1+9
GMRA	ALLRG+11!, GETALLRG+1*
GMRAIIEN	ALLRG+11!, ALLRGP+44*, ALLRGP+45
GMRAL	ALLRG+1~, ALLRG+11!, GETALLRG+1, GETALLRG+2, GETALLRG+3
GMRAL(	GETALLRG+4, GETALLRG+5, GETALLRG+6, GETALLRG+7, GETALLRG+9, GETALLRG+10, GETALLRG+11
GMRAUNDT	ALLRG+1~, UNASS+2, UNASS+7, PRUN+1
GMRAUNFX	ALLRG+2~, UNASS+2, UNASS+9, PRUN+3
GMRAUNRE	ALLRG+1~, UNASS+2, UNASS+8, PRUN+2
GMRAUOTH	ALLRG+1~, UNASS+10*, PRUN+2
GMTSA	ALLRG+4!, ALLRG+11!
GMTSAFN	ALLRG+1~, ALLRGP+46, ALLRGP+47, AUTOV+1*, AUTOV+2
GMTSAL	ALLRG+1~, ALLRG+11!
GMTSAL(	ALLRGP+2, ALLRGP+4, ALLRGP+5, ALLRGP+6, ALLRGP+7, ALLRGP+17, ALLRGP+21, ALLRGP+22, ALLRGP+24, ALLRGP+25 , ALLRGP+28, ALLRGP+33, ALLRGP+37, ALLRGP+38, ALLRGP+39, GETALLRG+9, GETALLRG+11, AUTOV+1
GMTSALAD	ALLRG+1~, NKA+2, NKA+4, ALLAS+1, ALLAS+2, ALLAS+3*
GMTSALAS	ALLRG+1~, ALLRG+7, ALLRG+8, 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+11!, SIGBLK~, SIGBLK+1
GMTSALG1	ALLAS+1~
GMTSALG2	ALLAS+1~, ALLAS+2
GMTSALG3	ALLAS+1~, ALLAS+7
GMTSALNM	ALLRG+2~, ALLRG+11!, ALLRGP+18, ALLRGP+43, ALLRGP+44, ALLRGP+50, AUTOV+1*, TEXT+2, INACCK~, INACCK+3 , INACCK+4, INACCK+5
GMTSAU	ALLAS+1~, ALLAS+4*, ALLAS+5, ALLAS+6
GMTSAV	ALLRG+1~, ALLRGP+16, AUTOV+1, AUTOV+2
GMTSCNT	ALLRG+2~, ALLRG+11!, GETALLRG+4*, GETALLRG+9, GETALLRG+11
GMTSEACT	ALLRG+2~, ALLRG+11!, GETALLRG+6*, GETALLRG+9, GETALLRG+11
GMTSLN	ALLRG+2~, ALLRG+11!, TEXT+2, TEXT+3, TEXT+5, LINE+1
GMTSMECH	ALLRG+2~, ALLRG+11!, GETALLRG+7, GETALLRG+8, GETALLRG+9, GETALLRG+11
GMTSN1	ALLRG+1~, ALLRGP+26*, ALLRGP+27
GMTSNO	ALLRG+1~, ALLRGP+25*, ALLRGP+26
GMTSNODE	ALLRG+11!
GMTSPFN	ALLRG+11!
>> GMTSPNF	TITLE+2
GMTSPRT	ALLRG+2~, ALLRG+11!, TEXT+2*, FORMAT+1
>> GMTSQIT	ALLRG+6, ALLRG+10, ALLRGP+3, ALLRGP+9, ALLRGP+19, ALLRGP+28, ALLRGP+29, ALLRGP+34, ALLRGP+40, ALLRGP+41 , ALLRGP+43, ALLRGP+47, ALLRGP+50, COMMON1+4, COMMON1+7, COMMON1+10, NKA+2, NKA+3, NKA+4, NKA+5 , NKA+6, TITLE+1, TEXT+1, TEXT+3, LINE+1, SIGBLK+2, SIGBLK+3, INACTIVE+4, INACTIVE+5, INACTIVE+6 , UNASS+4, PRUN+1, PRUN+2, PRUN+3, CLS+3, CLS+6, ING+3, ING+6, DATES+4, DATES+6 , DATES+7, DATES+16
GMTSRC	ALLRG+2~, ALLRGP+22, ALLRGP+23, GETALLRG+10
GMTSSB	SIGBLK+1~*, SIGBLK+2
GMTSSN	SIGBLK+1~*, SIGBLK+2
>> GMTSSRC	ALLRGP+38*, ALLRGP+41
GMTSST	SIGBLK+1~*, SIGBLK+3
GMTSSTM	ALLRG+2~, ALLRGP+39*
GMTSTY	ALLRG+2~, ALLRG+11!, GETALLRG+5*, GETALLRG+9, GETALLRG+11
I	ALLRG+11!, GETALLRG+4*, GETALLRG+5, GETALLRG+6, GETALLRG+7, GETALLRG+9, GETALLRG+10, GETALLRG+11
IEN	RECON+1~, RECON+5*, RECON+6
II	ALLRG+11!, ALLRGP+2*, ALLRGP+3, ALLRGP+4, ALLRGP+5, ALLRGP+6, ALLRGP+7, ALLRGP+15, ALLRGP+17, ALLRGP+21 , ALLRGP+22, ALLRGP+24, ALLRGP+25, ALLRGP+28, ALLRGP+33, ALLRGP+37, ALLRGP+38, ALLRGP+39, AUTOV+1
IIEN	INACTIVE~, INACTIVE+2, INACTIVE+3, UNASS+1~, DATES+10~, DATES+13*, DATES+14
IN	ALLRG+3~, ALLRGP+8*, ALLRGP+11, ALLRGP+12
INACT	ALLRG+2~, INACCK+1~, INACCK+4*, INACCK+6
INIEN	ALLRG+2~, UNASS+6*, UNASS+7, UNASS+8, UNASS+9, UNASS+10
JJ	ALLRG+3~, ALLRG+11!, ALLRGP+4, ALLRGP+5, ALLRGP+6, ALLRGP+7, ALLRGP+11, ALLRGP+12, ALLRGP+17, ALLRGP+21 , ALLRGP+22, ALLRGP+24, ALLRGP+25, ALLRGP+28, ALLRGP+33, ALLRGP+37, ALLRGP+38, ALLRGP+39, GETALLRG+11, AUTOV+1
JK	ALLRG+3~, ALLRGP+11, ALLRGP+12, ALLRGP+13
KK	ALLRG+2~, ALLRG+11!, ALLRGP+5*, ALLRGP+6, ALLRGP+7, ALLRGP+13, ALLRGP+17, ALLRGP+21, ALLRGP+22, ALLRGP+24 , ALLRGP+25, ALLRGP+28, ALLRGP+33, ALLRGP+37, ALLRGP+38, ALLRGP+39, AUTOV+1
L	ALLRG+11!, ALLRGP+6*, ALLRGP+7, ALLRGP+17, ALLRGP+21, ALLRGP+22, ALLRGP+24, ALLRGP+25, ALLRGP+28, ALLRGP+33 , ALLRGP+37, ALLRGP+38, ALLRGP+39, AUTOV+1
LP	CLS+1~, CLS+4, CLS+6, ING+1~, ING+4, ING+6, DATES+10~, DATES+11*, DATES+12, DATES+13
M	ALLRG+11!, ALLRGP+28, ALLRGP+33, ALLRGP+37, ALLRGP+38, ALLRGP+39, ALLRGP+43, ALLRGP+44, INACCK+1~, INACCK+3* , INACCK+4, INACCK+5
MOD	DATES+10~, DATES+12*
MX	ALLRG+11!, ALLRGP+28, ALLRGP+31
N	ALLRG+11!, ALLRGP+33*, ALLRGP+34, ALLRGP+35
ODT	ALLRG+11!, ALLRGP+47*
REACT	INACCK+1~, INACCK+5*, INACCK+6
REC	RECON+1~, RECON+3, RECON+4, RECON+5, RECON+6
RXN	ALLRG+3~, DATES+2, DATES+6, DATES+7
RXN("I"	ING+4, ING+6
RXN("V"	CLS+4, CLS+6
SEQ	ALLRG+4*, ALLRG+11!
TITLE	ALLRG+3~, ALLRG+4*, ALLRG+11!, TITLE+2, TITLE+3, CLS+1~, ING+1~
U	ALLRGP+7, ALLRGP+17, ALLRGP+18, ALLRGP+21, ALLRGP+22, ALLRGP+24, ALLRGP+25, ALLRGP+26, ALLRGP+37, ALLRGP+38 , ALLRGP+39, ALLRGP+46, ALLRGP+47, COMMON1+5, COMMON1+8, COMMON1+11, GETALLRG+5, GETALLRG+6, GETALLRG+7, GETALLRG+10 , AUTOV+1, AUTOV+2, INACCK+4, INACCK+5, CLS+6, ING+6, DATES+2, DATES+6, DATES+7
VBY	DATES+1~
VER	DATES+1~, DATES+2*, DATES+3, DATES+5
VERTX	DATES+1~, DATES+3*, DATES+4
WHEN	RECON+1~, RECON+7*, RECON+9
WKK	ALLRGP+5~, ALLRGP+13*, ALLRGP+19
X	ALLRG+1~, ALLRG+5, ALLRG+11!, ALLRGP+39, ALLRGP+40, ALLRGP+47, ALLRGP+50, ALLAS+1~, ALLAS+3, FORMAT+1 , INACTIVE+1~, INACTIVE+2, INACTIVE+4, DATES+10~, DATES+14, DATES+15*, DATES+16
X1	INACTIVE+1~
X2	INACTIVE+1~, INACTIVE+2*, INACTIVE+4
X3	INACTIVE+1~, INACTIVE+2*, INACTIVE+5
X4	INACTIVE+1~, INACTIVE+3*, INACTIVE+6
X5	INACTIVE+1~, INACTIVE+3*, INACTIVE+6
Y	UNASS+1~, UNASS+5, UNASS+6, DATES+10~, DATES+14, DATES+15
Z	ALLRG+11!

Customize PDF page

Package: Health Summary Components

Routine: BHSALG

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: