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!

Customize PDF page

Package: Health Summary

Routine: GMTSPSHO

Call Graph Total: 4