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 |  Local Variables |  All
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>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 2 DD^%DT  $$GET1^DIQ  
Health Summary 1 CKP^GMTSUP  
Outpatient Pharmacy 1 ^PSOHCSUM  

Entry Points

Name Comments DBIA/ICR reference
HDR ; Prints Header
DEGREE ; Gets degree of 'Documented by' individual & converts to upper case
LINESET ; Used by LINES for setting variables
WRT ; Write Data
CKFORM ; Checks to determine whether to do a form feed or not
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
;
MAIN ; Herbal/Over-the-Counter/Non-VA Medications

External References

Name Field # of Occurrence
DD^%DT WRT+8, WRT+13, WRT+17
$$GET1^DIQ DEGREE+1
CKP^GMTSUP CKFORM+1, HDR+2, HDR+3
^PSOHCSUM MAIN+15

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("PSOO" MAIN+17, MAIN+22, MAIN+23, MAIN+24, MAIN+26!, WRT+29

Label References

Name Line Occurrences
CKFORM MAIN+8, MAIN+10, MAIN+12, MAIN+17, WRT+1, WRT+3, WRT+5, WRT+10, WRT+14, WRT+18
, WRT+21, WRT+25, WRT+27, WRT+32, LINESOUT+3
DEGREE WRT+12
HDR MAIN+12, WRT+2
LINES WRT+31
LINESET LINES+37, LINES+38, LINES+40
LINESOUT WRT+31
WRT MAIN+25

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CHAW MAIN+1~, LINES+29~, LINES+36*
CLL MAIN+1~, LINES+29~, LINES+31*, LINES+36, LINES+37, LINES+38, LINESET+1*
CT MAIN+1~, MAIN+6*, MAIN+22, MAIN+24*
>> DFN MAIN+8
DGR MAIN+1~, WRT+12, DEGREE+1*, DEGREE+2*
G1 MAIN+1~, MAIN+23*, WRT+4, WRT+6, WRT+8, WRT+9, WRT+11, WRT+12, WRT+13, WRT+17
, DEGREE+1
G2 MAIN+1~, MAIN+24*, WRT+16, WRT+19, WRT+20, WRT+22, WRT+23
GMTOP MAIN+1~, MAIN+13*, HDR+1*
>> GMTSNPG MAIN+12, WRT+2, HDR+3
>> GMTSQIT MAIN+10, MAIN+12, MAIN+22, WRT+1, WRT+2, WRT+3, WRT+5, WRT+10, WRT+14, WRT+18
, WRT+21, WRT+25, WRT+27, LINESOUT+1, LINESOUT+3, CKFORM+1, HDR+2, HDR+3
GMX MAIN+1~, MAIN+6*, MAIN+12, MAIN+13*, WRT+2, HDR+2
I MAIN+1~, LINES+31*, LINES+33*, LINES+34, LINES+39*, LINES+40
ILFD MAIN+1~, MAIN+3*, MAIN+22*, MAIN+23, MAIN+24, WRT+29
ILN MAIN+1~, LINES+29~, LINES+31*, LINES+32*, LINES+33, LINES+34, LINES+35, LINES+36
JOB MAIN+1~, MAIN+3*, MAIN+17, MAIN+22, MAIN+23, MAIN+24, WRT+29
LINE MAIN+1~
LL MAIN+1~, LINES~, LINES+31, LINESET+1
LL5 MAIN+2~, MAIN+3*, WRT+31
LP MAIN+2~, LINES+29~, LINES+32*, LINES+36*
MAX MAIN+2~, MAIN+6*, MAIN+22
NL MAIN+2~, WRT+24*, LINESOUT+1*, LINESOUT+2, LINESOUT+3
OLN MAIN+2~, LINES+29~, LINES+31*, LINES+35*, LINES+37, LINES+38, LINES+40, LINES+41, LINESET+1*
PLN MAIN+2~, LINES+29~, LINES+31*, LINESET+1*
T1 MAIN+2~, MAIN+4*, WRT+4, WRT+6, WRT+11, WRT+16, WRT+19, WRT+22
T2 MAIN+2~, MAIN+4*, WRT+9, WRT+13, WRT+17, WRT+20, WRT+23
T3 MAIN+2~, MAIN+4*, WRT+28
T4 MAIN+2~, MAIN+4*, LINESOUT+3
T5 MAIN+2~, MAIN+4*, WRT+31
TN LINESOUT~, LINESOUT+2
U WRT+4, WRT+6, WRT+8, WRT+9, WRT+11, WRT+12, WRT+13, WRT+16, WRT+17, WRT+19
, WRT+20, WRT+22, WRT+23, LINES+31, LINESET+1, DEGREE+1
V MAIN+2~, WRT+4*, WRT+6*, WRT+9*, WRT+11*, WRT+13*, WRT+15*, WRT+16, WRT+17*, WRT+19*
, WRT+20*, WRT+22*, WRT+23*, WRT+24*, WRT+28, WRT+29!*, WRT+31!, LINES~
V( LINES+32, LINES+33, LINES+34*, LINES+35, LINES+36
VARY MAIN+2~
VO MAIN+2~, WRT+33!, LINES+30!
VO( LINESOUT+1, LINESOUT+2, LINESOUT+3, LINES+35*, LINES+37*, LINES+38*, LINES+40*, LINES+41*
X MAIN+2~, WRT+33!, LINES+31*, LINES+35*, LINES+36*, LINES+37*, LINES+38*, LINES+39, LINES+40*, LINES+41
Y MAIN+2~, WRT+8*, WRT+13*, WRT+17*, WRT+33!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All