Routine: GMTSPST2

Package	Total	Call Graph
Order Entry Results Reporting	5	($$PTR,GETDLG,GETORDER)^ORCD $$VALUE^ORCSAVE2 TEXT^ORQ12 COVER^ORWPS $$OI^ORX8
Outpatient Pharmacy	2	RX^PSO52API PSS^PSO59
Registration	2	(4,KVA)^VADPT $$SITE^VASITE
VA FileMan	2	$$GET1^DIQ ^DIWP
Health Summary	1	CKP^GMTSUP
Kernel	1	($$FMTE,$$NOW)^XLFDT
National Drug File	1	$$PROD2^PSNAPIS
Pharmacy Data Management	1	(DATA,NDF)^PSS50

Name	Comments	DBIA/ICR reference
TOOL2
SHOW(DFN)	;
NVA	;
GETOPORD(ORDLIST)	;
IPORD(LISTNODE)	;
CKSTATUS(LISTNODE)	;
GETRXDAT(RXS)	;
DRUGNAME(RXIEN)	;
GETPEND(RXSIEN)	;
GETTYPE(RXIEN)	;
PSOSITE()	;DETERMINE APPROPRIATE 'OUTPATIENT SITE' (FILE #59) ENTRY
GETDIV(STIN,TYPE)	;
HD	;
STATE	;strip statments from SIG
ADD	; -- Add text X to GMTSPST2()

Name	Field # of Occurrence
$$GET1^DIQ	PSOSITE+6
^DIWP	GETRXDAT+15
CKP^GMTSUP	TOOL2+27, NVA+17, NVA+18, NVA+19, NVA+20, NVA+21, NVA+22, NVA+23, NVA+24, NVA+25 , NVA+26, NVA+27
$$PTR^ORCD	STATE+2
GETDLG^ORCD	STATE+2
GETORDER^ORCD	STATE+2
$$VALUE^ORCSAVE2	GETPEND+4
TEXT^ORQ12	GETPEND+8
COVER^ORWPS	SHOW+2
$$OI^ORX8	GETPEND+3
$$PROD2^PSNAPIS	DRUGNAME+9
RX^PSO52API	DRUGNAME+2
PSS^PSO59	PSOSITE+2, HD+2
DATA^PSS50	GETPEND+6, GETTYPE+4
NDF^PSS50	DRUGNAME+6
4^VADPT	HD+1
KVA^VADPT	HD+12
$$SITE^VASITE	PSOSITE+8
$$FMTE^XLFDT	TOOL2+9, GETRXDAT+22
$$NOW^XLFDT	TOOL2+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,DRUGSEP Line Location: SHOW+9
Function Call: WRITE	Prompt: @EMPTYLN Line Location: SHOW+10
Function Call: WRITE	Prompt: !,"\|","SUPPLY ITEMS:"_$E(BLNKLN,14,PGWIDTH-2)_"\|" Line Location: SHOW+11
Function Call: WRITE	Prompt: !,DRUGSEP,@IOF Line Location: SHOW+17
Function Call: WRITE	Prompt: !,DRUGSEP,@IOF Line Location: SHOW+23
Function Call: WRITE	Prompt: !,"\|",PDRUG_$E(BLNKLN,$L(PDRUG),PGWIDTH-3)_"\|" Line Location: SHOW+26
Function Call: WRITE	Prompt: !,"\| ",LIST(ITYPE,IDRUG,ISIG),$E(BLNKLN,$L(LIST(ITYPE,IDRUG,ISIG)),PGWIDTH-8),"\|" Line Location: SHOW+30
Function Call: WRITE	Prompt: !,INSTSEP1,!,INSTSEP2 Line Location: SHOW+31
Function Call: WRITE	Prompt: !,DRUGSEP Line Location: NVA+3
Function Call: WRITE	Prompt: @EMPTYLN Line Location: NVA+4
Function Call: WRITE	Prompt: !,"\|","NON-VA Medications:"_$E(BLNKLN,20,PGWIDTH-2)_"\|" Line Location: NVA+5
Function Call: WRITE	Prompt: @EMPTYLN Line Location: NVA+6
Function Call: WRITE	Prompt: !,DRUGSEP,@IOF Line Location: NVA+11
Function Call: WRITE	Prompt: !,"\|",NVADRUG_$E(BLNKLN,$L(NVADRUG),PGWIDTH-3)_"\|" Line Location: NVA+12
Function Call: WRITE	Prompt: !,INSTSEP1 Line Location: NVA+14
Function Call: WRITE	Prompt: !!,"Any medication items listed as ""pending"" are those that have just been" Line Location: NVA+17
Function Call: WRITE	Prompt: !,"written by your provider(s). These medication orders will be reviewed" Line Location: NVA+18
Function Call: WRITE	Prompt: !,"by your pharmacist, prior to the prescription(s) being dispensed. When" Line Location: NVA+19
Function Call: WRITE	Prompt: !,"you receive your new prescription(s), by mail or from the pharmacy window," Line Location: NVA+20
Function Call: WRITE	Prompt: !,"be sure to follow the instructions on the prescription label. If you" Line Location: NVA+21
Function Call: WRITE	Prompt: !,"have any question about your medication, please call your provider or " Line Location: NVA+22
Function Call: WRITE	Prompt: !,"your pharmacist." Line Location: NVA+23
Function Call: WRITE	Prompt: !!,"Any medication items listed as ""NON-VA"" are Medications you do not get" Line Location: NVA+24
Function Call: WRITE	Prompt: !,"from a VA pharmacy that your provider recorded in your medical record." Line Location: NVA+25
Function Call: WRITE	Prompt: !,"This includes medication prescribed by VA or non VA providers, over the" Line Location: NVA+26
Function Call: WRITE	Prompt: !,"counter medications, herbals, samples or other medications you take." Line Location: NVA+27
Function Call: WRITE	Prompt: !,"Date: ",RPTDATE,?XPOS1,"PATIENT MEDICATION INFORMATION" Line Location: HD+3
Function Call: WRITE	Prompt: ?XPOS2,"Page: ",PAGE Line Location: HD+4
Function Call: WRITE	Prompt: !,?XPOS4,"PRINTED BY THE VA MEDICAL CENTER AT: "_$P(^TMP($J,"GMTSSITE",GMTS59,100),U,2) Line Location: HD+6
Function Call: WRITE	Prompt: !,?XPOS4,"FOR PRESCRIPTION REFILLS CALL ("_^TMP($J,"GMTSSITE",GMTS59,.03)_") "_^TMP($J,"GMTSSITE",GMTS59,.04) Line Location: HD+7
Function Call: WRITE	Prompt: !!,"Name: ",$E(VADM(1),1,28) Line Location: HD+8
Function Call: WRITE	Prompt: ?30," PHARMACY - "_^TMP($J,"GMTSSITE",GMTS59,.01)_" DIVISION" Line Location: HD+9
Function Call: WRITE	Prompt: " ("_^TMP($J,"GMTSSITE",GMTS59,.07)_")" Line Location: HD+10
Function Call: WRITE	Prompt: !!,INSTSEP1,!,DRUGHDR1 Line Location: HD+11

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^TMP("ORWORD"	STATE+6, STATE+9
^TMP($J	GETRXDAT+13, GETRXDAT+14, GETRXDAT+21, GETRXDAT+22, GETRXDAT+23!, DRUGNAME+3, DRUGNAME+4, DRUGNAME+5, DRUGNAME+7, DRUGNAME+8 , DRUGNAME+10!, GETPEND+7, GETPEND+15!, GETTYPE+3, GETTYPE+5, GETTYPE+6!, PSOSITE+1!, PSOSITE+9, GETDIV+4, GETDIV+5 , GETDIV+6, HD+6, HD+7, HD+9, HD+10, HD+13!
^UTILITY($J	GETRXDAT+11!, GETRXDAT+16, GETRXDAT+17, GETRXDAT+23!

Name	Line Occurrences
$$CKSTATUS	GETOPORD+5
$$DRUGNAME	GETRXDAT+7
$$GETDIV	PSOSITE+7, PSOSITE+8
$$GETTYPE	GETRXDAT+9
$$IPORD	GETOPORD+4
$$PSOSITE	TOOL2+6
ADD	STATE+9
GETOPORD	SHOW+3
GETPEND	GETRXDAT+4
GETRXDAT	SHOW+4
HD	TOOL2+28, SHOW+17, SHOW+23, NVA+11
SHOW	TOOL2+28
STATE	GETPEND+10

Name	Field # of Occurrence
^(0	STATE+6, STATE+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	GETPEND+1~, GETPEND+9*, GETPEND+10, GETPEND+11, GETPEND+12
BLNKLN	TOOL2+2~, TOOL2+13*, TOOL2+14, TOOL2+17, TOOL2+19, TOOL2+25, SHOW+11, SHOW+26, SHOW+30, NVA+5 , NVA+12
CLASS	GETTYPE+1~, GETTYPE+5*, GETTYPE+7, GETTYPE+8
DAYSEP	TOOL2~, TOOL2+15*, TOOL2+18, TOOL2+24
DFN	TOOL2+28, SHOW~, SHOW+2, GETRXDAT+13, GETRXDAT+14, GETRXDAT+21, GETRXDAT+22, DRUGNAME+2, DRUGNAME+3, DRUGNAME+4 , DRUGNAME+5, GETTYPE+3
DIV	GETDIV+2~, GETDIV+3, GETDIV+4, GETDIV+5, GETDIV+6
DIWF	GETRXDAT+10~, GETRXDAT+12*
DIWL	GETRXDAT+10~, GETRXDAT+12*
DLG	STATE+1~, STATE+2*
DRUG	GETTYPE+1~, GETTYPE+3*, GETTYPE+4, GETTYPE+5
DRUGHDR1	TOOL2~, TOOL2+16, TOOL2+17, HD+11
DRUGHDR2	TOOL2~, TOOL2+18, TOOL2+19
DRUGIEN	DRUGNAME+1~, DRUGNAME+4*, DRUGNAME+6, DRUGNAME+7, DRUGNAME+8
DRUGNAME	GETRXDAT+1~, GETRXDAT+7, GETRXDAT+8, GETRXDAT+18, GETRXDAT+20, GETRXDAT+22
DRUGND1	DRUGNAME+1~, DRUGNAME+7*, DRUGNAME+9
DRUGND3	DRUGNAME+1~, DRUGNAME+8*, DRUGNAME+9
DRUGNM	DRUGNAME+1~, DRUGNAME+5*, DRUGNAME+12
DRUGSEP	TOOL2~, TOOL2+20, TOOL2+21, SHOW+9, SHOW+17, SHOW+23, SHOW+24, NVA+3, NVA+11
DRUGVAPN	DRUGNAME+1~, DRUGNAME+9*, DRUGNAME+11
DUZ(2	PSOSITE+5, PSOSITE+6
EMPTYLN	TOOL2+1~, TOOL2+14*, SHOW+10, SHOW+24, NVA+4, NVA+6
FSIG	GETRXDAT+1~, GETRXDAT+6!, GETRXDAT+18
FSIG(	GETRXDAT+17*
GETDIV	GETDIV+2~, GETDIV+3, GETDIV+5, GETDIV+6*, GETDIV+7
GMTS59	TOOL2+3~, TOOL2+6, PSOSITE+3~, PSOSITE+4, PSOSITE+7, PSOSITE+8, PSOSITE+9*, PSOSITE+10, HD+2, HD+6 , HD+7, HD+9, HD+10
GMTSPST2	GETPEND+1~, GETPEND+8, STATE+6, STATE+8, ADD+1, ADD+2, ADD+3, ADD+4, ADD+5, ADD+6*
GMTSPST2(	GETPEND+11, GETPEND+14, STATE+4!, STATE+6, ADD+1, ADD+2, ADD+3, ADD+4, ADD+5*
GMTSPST2(" "	STATE+4
GMTSPST2(":"	GETPEND+11, GETPEND+14
GMTSPST2(2	GETPEND+13
>> GMTSQIT	TOOL2+27, NVA+17, NVA+18, NVA+19, NVA+20, NVA+21, NVA+22, NVA+23, NVA+24, NVA+25 , NVA+26, NVA+27
I	ADD+1~, ADD+4*
IDRUG	TOOL2+2~, SHOW+18, SHOW+19, SHOW+21, SHOW+25, SHOW+29, SHOW+30
INSTSEP1	TOOL2~, TOOL2+22, TOOL2+23, SHOW+31, NVA+14, HD+11
INSTSEP2	TOOL2~, TOOL2+24, TOOL2+25, SHOW+31
IOF	SHOW+17, SHOW+23, NVA+11
IOM	TOOL2+7
IOSL	TOOL2+7
ISIG	TOOL2+2~, SHOW+28, SHOW+29, SHOW+30
ITYPE	TOOL2+2~, SHOW+6, SHOW+7, SHOW+8, SHOW+12, SHOW+13, SHOW+15, SHOW+19, SHOW+21, SHOW+29 , SHOW+30
J	STATE+1~, STATE+5, STATE+6, STATE+8, STATE+9
K	STATE+1~, STATE+6, STATE+9
KILLORD	GETOPORD+1~, GETOPORD+4, GETOPORD+5, GETOPORD+6
LIST	SHOW+1~, SHOW+2, SHOW+3, SHOW+4
LIST(	SHOW+7, SHOW+15, SHOW+19, SHOW+21, SHOW+29, SHOW+30
LISTIEN	GETOPORD+1~, GETOPORD+2, GETOPORD+3, GETOPORD+4, GETOPORD+5, GETOPORD+6
LISTNODE	IPORD~, IPORD+3, CKSTATUS~, CKSTATUS+3, CKSTATUS+4
NVA	TOOL2+3~, SHOW+1~, NVA+1
NVA(	NVA+9
NVACNT	NVA+2~, NVA+7, NVA+10, NVA+11, NVA+13!
NVADRUG	NVA+2~, NVA+8, NVA+9, NVA+12, NVA+13!
ORDIALOG	STATE+1~
ORDIALOG("B"	STATE+3, STATE+7
ORDLIST	GETOPORD~
ORDLIST(	GETOPORD+3, GETOPORD+4, GETOPORD+5, GETOPORD+6!
ORIFN	GETPEND+1~, GETPEND+9*, STATE+2
PAGE	TOOL2+3~, TOOL2+26, HD+4, HD+5
PDRUG	TOOL2+2~, SHOW+25*, SHOW+26
PGLENGTH	TOOL2+3~, TOOL2+7*, SHOW+17, SHOW+23, NVA+11
PGWIDTH	TOOL2+3~, TOOL2+7*, TOOL2+8, TOOL2+10, TOOL2+11, TOOL2+12, TOOL2+13, TOOL2+14, TOOL2+17, TOOL2+19 , TOOL2+20, TOOL2+22, TOOL2+25, SHOW+11, SHOW+26, SHOW+30, NVA+5, NVA+12, GETRXDAT+12
PKG	IPORD+1~, IPORD+3*, IPORD+4
PRETYPE	TOOL2+1~, SHOW+5, SHOW+8, SHOW+12
PSOQ100	GETPEND+1~, GETPEND+2*, GETPEND+3, GETPEND+4, GETPEND+8
PSOQDIND	GETPEND+1~, GETPEND+4*, GETPEND+5, GETPEND+6, GETPEND+7
PSOQPDN	GETPEND+1~, GETPEND+3, GETPEND+7, GETPEND+11, GETPEND+13, GETPEND+14
PSOQPEND	TOOL2+1~, NVA+16, GETRXDAT+4*
PSOQSCT	GETPEND+1~, GETPEND+11, GETPEND+14, STATE+4*
PSOQSUB	GETRXDAT+19~, GETRXDAT+20*, GETRXDAT+22
PTR	STATE+1~, STATE+3, STATE+6, STATE+7, STATE+9
REFILLS	GETRXDAT+19~, GETRXDAT+21*, GETRXDAT+22, GETRXDAT+23!
RETURN	IPORD+1~, IPORD+2, IPORD+4, IPORD+8, CKSTATUS+1~, CKSTATUS+2, CKSTATUS+3, CKSTATUS+4, CKSTATUS+5, GETTYPE+1~ , GETTYPE+2, GETTYPE+7, GETTYPE+8, GETTYPE+9
RPTDATE	TOOL2+5~, TOOL2+9*, HD+3
RXIEN	TOOL2+4~, CKSTATUS+1~, GETRXDAT+5*, GETRXDAT+7, GETRXDAT+9, GETRXDAT+13, GETRXDAT+14, GETRXDAT+21, GETRXDAT+22, DRUGNAME~ , DRUGNAME+2, DRUGNAME+3, DRUGNAME+4, DRUGNAME+5, GETTYPE~, GETTYPE+3
RXS	GETRXDAT~
RXS(	GETRXDAT+3, GETRXDAT+4, GETRXDAT+5, GETRXDAT+8, GETRXDAT+18, GETRXDAT+20, GETRXDAT+22, GETPEND+2, GETPEND+9
RXS("D"	GETPEND+11, GETPEND+13, GETPEND+14*
RXSIEN	GETRXDAT+1~, GETRXDAT+2, GETRXDAT+3, GETRXDAT+4, GETRXDAT+5, GETRXDAT+8, GETPEND~, GETPEND+2, GETPEND+9
RXTYPE	GETRXDAT+1~, GETRXDAT+9*, GETRXDAT+18, GETRXDAT+20, GETRXDAT+22
SIGCNT	TOOL2+4~, SHOW+20, SHOW+22, SHOW+23
SIGLINE	GETRXDAT+10~, GETRXDAT+13, GETRXDAT+14, GETRXDAT+16, GETRXDAT+17
SIGPOS	TOOL2+4~, SHOW+20, SHOW+21
STANUM	PSOSITE+3~, PSOSITE+6*, PSOSITE+7
START	STATE+1~
STIN	GETDIV~, GETDIV+1, GETDIV+5, GETDIV+6
SUPCNT	TOOL2+5~, SHOW+14, SHOW+16, SHOW+17
SUPDRUG	TOOL2+5~, SHOW+14, SHOW+15
SUPTYPE	TOOL2+1~, SHOW+5, SHOW+13, SHOW+14, SHOW+24, SHOW+27
TYPE	GETDIV~, GETDIV+5, GETDIV+6
U	GETRXDAT+8, DRUGNAME+5, DRUGNAME+9, GETPEND+2, GETPEND+3, HD+6
VADM	TOOL2+5~
VADM(1	HD+8
X	GETRXDAT+10~, GETRXDAT+14, STATE+9, ADD+2*, ADD+3, ADD+4
XPOS1	TOOL2+4~, TOOL2+10*, HD+3
XPOS2	TOOL2+4~, TOOL2+11*, HD+4
XPOS4	TOOL2+4~, TOOL2+12*, HD+6, HD+7
Y	ADD+1~, ADD+2, ADD+3, ADD+4, ADD+5, ADD+6*
Z	ADD+1~, ADD+4, ADD+5

Customize PDF page

Package: Health Summary

Routine: GMTSPST2

Information

Source Information

Call Graph

Call Graph Total: 15

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: