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

Package: Health Summary

Routine: GMTSPSHO


Information

GMTSPSHO ; SLC OIFO/GS - Herbal/OTC Medications Health Summary; 01/26/2004

Source Information

Source file <GMTSPSHO.m>

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Herbal/Over-the-Counter/Non-VA Medications
WRT ; Write Data
LINESOUT(TN) ;WRITE LINES
LINES(LL,V) ;BREAK LINES OF AN ARRAY INTO APPROPRIATE MAX LENGTHS
;
; Input:
; LL = line lengths, e.g., 20^30^40 where last remains default
; V = input array w/ no null lines, use " " for blank line
;
LINESET ; Used by LINES for setting variables
CKFORM ; Checks to determine whether to do a form feed or not
HDR ; Prints Header
DEGREE ; Gets degree of 'Documented by' individual & converts to upper case

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?8,"No patient selected"
  • Line Location: MAIN+8
Function Call: WRITE
  • Prompt: !,?8,"No Non-VA Meds Extracted"
  • Line Location: MAIN+17
Function Call: WRITE
  • Prompt: !?T1-$L(V),V,$P(G1,U)
  • Line Location: WRT+4
Function Call: WRITE
  • Prompt: !?T1-$L(V),V,$P(G1,U,2)
  • Line Location: WRT+6
Function Call: WRITE
  • Prompt: " (",$P(Y,"@"),")"
  • Line Location: WRT+8
Function Call: WRITE
  • Prompt: ?T2-$L(V),V,$P(G1,U,4)
  • Line Location: WRT+9
Function Call: WRITE
  • Prompt: !?T1-$L(V),V,$P($P(G1,U,6),";",2)
  • Line Location: WRT+11
Function Call: WRITE
  • Prompt: ?T2-$L(V),V,Y
  • Line Location: WRT+13
Function Call: WRITE
  • Prompt: !?T1-$L(V),V,$P($P(G2,U,5),";"),"-",$P($P(G2,U,5),";",2)
  • Line Location: WRT+16
Function Call: WRITE
  • Prompt: ?T2-$L(V),V,Y
  • Line Location: WRT+17
Function Call: WRITE
  • Prompt: !?T1-$L(V),V,$P($P(G2,U,4),";",2)
  • Line Location: WRT+19
Function Call: WRITE
  • Prompt: ?T2-$L(V),V,$P(G2,U)
  • Line Location: WRT+20
Function Call: WRITE
  • Prompt: !?T1-$L(V),V,$P(G2,U,2)
  • Line Location: WRT+22
Function Call: WRITE
  • Prompt: ?T2-$L(V),V,$P(G2,U,3)
  • Line Location: WRT+23
Function Call: WRITE
  • Prompt: !
  • Line Location: WRT+26
Function Call: WRITE
  • Prompt: !?T3-$L(V),V
  • Line Location: WRT+28
Function Call: WRITE
  • Prompt: !
  • Line Location: WRT+32
Function Call: WRITE
  • Prompt: ?$P(TN,","),VO(NL)
  • Line Location: LINESOUT+2
Function Call: WRITE
  • Prompt: !?$P(T4,",",2),VO(NL)
  • Line Location: LINESOUT+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call