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 |  Caller 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: GMTSALG

Package: Health Summary

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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!
Info |  Source |  Call Graph |  Caller 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