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

Package: Health Summary

Routine: GMTSALG


Information

GMTSALG ; SLC/DLT,KER - Allergies ; 01/06/2003

Source Information

Source file <GMTSALG.m>

Call Graph

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  

Entry Points

Name Comments DBIA/ICR reference
ALLRG ; Allergies
ALLRGP ; Allergy Print
NKA ; No known allergies
GETALLRG ; Get Allergies
ALLAS ; Allergy Assessment
AUTOV ; Autoverify
TITLE ; Print title
TEXT ; Setup for print of allergy comments
FORMAT ; Formats each line
LINE ; Writes formatted lines of text
SIGBLK(GMTSALF) ; Signature block

External References

Name Field # of Occurrence
$$GET1^DIQ ALLAS+2, ALLAS+4, ALLAS+5, ALLAS+6, SIGBLK+1
^DIWP FORMAT+1
EN1^GMRADPT GETALLRG+1
$$WRAP^GMTSORC ALLRGP+5
REGDT4^GMTSU ALLAS+3
REGDTM4^GMTSU ALLRGP+18, ALLRGP+19
CKP^GMTSUP ALLRG+8, ALLRGP+2, ALLRGP+5, ALLRGP+9, ALLRGP+11, ALLRGP+15, ALLRGP+18, ALLRGP+19, NKA+1, NKA+2
, NKA+3, NKA+4, NKA+5, TITLE+1, TEXT+1, LINE+1, SIGBLK+2, SIGBLK+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "Unknown, please evaluate",!
  • Line Location: ALLRG+8
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+2
Function Call: WRITE
  • Prompt: !?5,JJ_": "
  • Line Location: ALLRGP+5
Function Call: WRITE
  • Prompt: ?24,$S($L(KK)>30:$P(WKK,"|"),1:KK)
  • Line Location: ALLRGP+5
Function Call: WRITE
  • Prompt: " (AV"
  • Line Location: ALLRGP+6
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+7
Function Call: WRITE
  • Prompt: $S($P($G(^GMR(120.8,GMTSALNM,0)),U,6)="h":"/Historical)",$P($G(^(0)),U,6)="o":"/Observed)",1:")")
  • Line Location: ALLRGP+8
Function Call: WRITE
  • Prompt: !,?24,$P(WKK,"|",2)
  • Line Location: ALLRGP+9
Function Call: WRITE
  • Prompt: !?27
  • Line Location: ALLRGP+11
Function Call: WRITE
  • Prompt: !,?27,N
  • Line Location: ALLRGP+15
Function Call: WRITE
  • Prompt: N
  • Line Location: ALLRGP+16
Function Call: WRITE
  • Prompt: !,?24,"Date/Time: "
  • Line Location: ALLRGP+18
Function Call: WRITE
  • Prompt: X,!
  • Line Location: ALLRGP+18
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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" ALLRG+4
^GMR(120.8 - [#120.8] ALLRGP+8, ALLRGP+19, AUTOV+1, TEXT+2
^UTILITY($J TEXT+2!, TEXT+3, TEXT+4!, LINE+1

Label References

Name Line Occurrences
ALLAS GETALLRG+2
ALLRGP ALLRG+6
AUTOV ALLRGP+5
FORMAT TEXT+2
GETALLRG ALLRG+6
LINE TEXT+3
NKA ALLRG+6
SIGBLK ALLRGP+17
TEXT ALLRGP+19
TITLE ALLRG+6

Naked Globals

Name Field # of Occurrence
^(0 ALLRGP+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ALL ALLRG+9!, ALLRGP+10*, ALLRGP+11, ALLRGP+15*, ALLRGP+16*
ALLRG ALLRG+3~*, ALLRG+6, ALLRG+7, ALLRG+8, ALLRG+9!, GETALLRG+1*, GETALLRG+2*, GETALLRG+11*
C ALLRG+2~
CC ALLRG+2~, ALLRG+9!, ALLRGP+19*
CCC ALLRG+9!, ALLRGP+19*, TEXT+2
CD ALLRG+9!, ALLRGP+19*, TEXT+1
>> DFN GETALLRG+2, ALLAS+2, ALLAS+4
DIWF ALLRG+9!, FORMAT+1*
DIWL ALLRG+9!, TEXT+3, FORMAT+1*, LINE+1
DIWR ALLRG+9!, FORMAT+1*
GMRA ALLRG+9!, GETALLRG+1*
GMRAL ALLRG+1~, ALLRG+9!, GETALLRG+1, GETALLRG+2, GETALLRG+3
GMRAL( GETALLRG+4, GETALLRG+5, GETALLRG+6, GETALLRG+7, GETALLRG+9, GETALLRG+10
GMTSA ALLRG+3!, ALLRG+9!
GMTSAFN ALLRG+1~, ALLRGP+17, ALLRGP+18, AUTOV+1*, AUTOV+2
GMTSAL ALLRG+1~, ALLRG+9!
GMTSAL( ALLRGP+1, ALLRGP+3, ALLRGP+4, ALLRGP+5, ALLRGP+7, ALLRGP+10, ALLRGP+14, GETALLRG+9*, GETALLRG+10*, AUTOV+1
GMTSALAD ALLRG+1~, NKA+1, NKA+3, ALLAS+1*, ALLAS+2*, ALLAS+3*
GMTSALAS ALLRG+1~, ALLRG+6, ALLRG+7, NKA+1, NKA+2, NKA+3, ALLAS+1*
GMTSALAT ALLRG+1~, NKA+5, ALLAS+6*, ALLAS+7*
GMTSALAW ALLRG+1~, NKA+3, NKA+4, NKA+5, ALLAS+1*, ALLAS+5*, ALLAS+7*
GMTSALF ALLRG+9!, SIGBLK~, SIGBLK+1
GMTSALG1 ALLAS+1~
GMTSALG2 ALLAS+1~, ALLAS+2
GMTSALG3 ALLAS+1~, ALLAS+7
GMTSALNM ALLRG+2~, ALLRG+9!, ALLRGP+8, ALLRGP+19, AUTOV+1*, TEXT+2
GMTSAU ALLAS+1~, ALLAS+4*, ALLAS+5, ALLAS+6
GMTSAV ALLRG+1~, ALLRGP+6, AUTOV+1*, AUTOV+2*
GMTSCNT ALLRG+2~, ALLRG+9!, GETALLRG+4*, GETALLRG+9, GETALLRG+10
GMTSEACT ALLRG+2~, ALLRG+9!, GETALLRG+6*, GETALLRG+9, GETALLRG+10
GMTSLN ALLRG+2~, ALLRG+9!, TEXT+2*, TEXT+3*, TEXT+5, LINE+1
GMTSMECH ALLRG+2~, ALLRG+9!, GETALLRG+7*, GETALLRG+8*, GETALLRG+9, GETALLRG+10
GMTSNODE ALLRG+9!
GMTSPFN ALLRG+9!
>> GMTSPNF ALLRG+8, TITLE+2
GMTSPRT ALLRG+2~, ALLRG+9!, TEXT+2*, FORMAT+1
>> GMTSQIT ALLRG+5, ALLRG+8, ALLRGP+2, ALLRGP+5, ALLRGP+9, ALLRGP+10, ALLRGP+11, ALLRGP+15, ALLRGP+18, ALLRGP+19
, NKA+1, NKA+2, NKA+3, NKA+4, NKA+5, TITLE+1, TEXT+1, TEXT+3, LINE+1, SIGBLK+2
, SIGBLK+3
GMTSSB SIGBLK+1~*, SIGBLK+2
GMTSSN SIGBLK+1~*, SIGBLK+2
GMTSST SIGBLK+1~*, SIGBLK+3
GMTSTY ALLRG+2~, ALLRG+9!, GETALLRG+5*, GETALLRG+9, GETALLRG+10
I ALLRG+9!, GETALLRG+4*, GETALLRG+5, GETALLRG+6, GETALLRG+7, GETALLRG+9, GETALLRG+10
II ALLRG+9!, ALLRGP+1*, ALLRGP+2, ALLRGP+3, ALLRGP+4, ALLRGP+5, ALLRGP+7, ALLRGP+10, ALLRGP+14, AUTOV+1
JJ ALLRG+3~, ALLRG+9!, ALLRGP+3*, ALLRGP+4, ALLRGP+5, ALLRGP+7, ALLRGP+10, ALLRGP+14, GETALLRG+10*, AUTOV+1
KK ALLRG+2~, ALLRG+9!, ALLRGP+4*, ALLRGP+5, ALLRGP+7, ALLRGP+10, ALLRGP+14, AUTOV+1
L ALLRG+9!, ALLRGP+5*, ALLRGP+7, ALLRGP+10, ALLRGP+14, AUTOV+1
M ALLRG+9!, ALLRGP+10*, ALLRGP+14
MX ALLRG+9!, ALLRGP+10*, ALLRGP+12*, ALLRGP+13
N ALLRG+9!, ALLRGP+14*, ALLRGP+15, ALLRGP+16
ODT ALLRG+9!, ALLRGP+18*
SEQ ALLRG+3*, ALLRG+9!
TITLE ALLRG+3~*, ALLRG+9!, TITLE+2, TITLE+3
U ALLRGP+7, ALLRGP+8, ALLRGP+17, ALLRGP+18, GETALLRG+5, GETALLRG+6, GETALLRG+7, AUTOV+1, AUTOV+2
WKK ALLRGP+4~, ALLRGP+5*, ALLRGP+9
X ALLRG+1~, ALLRG+4*, ALLRG+9!, ALLRGP+18*, ALLRGP+19*, ALLAS+1~, ALLAS+3*, FORMAT+1*
Z ALLRG+9!
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