Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call