Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BHSALG

Package: Health Summary Components

Routine: BHSALG


Information

BHSALG ; IHS/MSC/MGH - ALL Health Summary Allergies ;10-Jun-2013 16:43;DU

Source Information

Source file <BHSALG.m>

Call Graph

Call Graph Total: 9

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!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All