Routine: PSSMEDRQ

Information

PSSMEDRQ ;BIR/RTR-Request New Standard Medication Route ;10/17/07

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA Fileman	3	^DIC ^DIR EN^DIWE
Kernel	2	$$UP^XLFSTR $$PROD^XUPROD
MailMan	1	^XMD

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Pharmacy Data Management	2	PSS DOSE UNIT REQUEST PSS MEDICATION ROUTE REQUEST

Entry Points

Name	Comments	DBIA/ICR reference
WLINK	;Refer to website with patch PSS1147
MESS	;Exit Message
KLM	;Kill Med Route TMP global
REQ	;Request Med Route change
SEND	;Send Dose Unit Mail Message
KL	;Kill Dose Unit TMP global
SENDRT	;Send Med Route Mail Message
TEST	;
NEW	;New Dose Unit
DOSE	;Request Dose Unit change
NEWMR	;New Med Route

External References

Name	Field # of Occurrence
^DIC	REQ+12, DOSE+11
^DIR	REQ+9, REQ+17, REQ+21, REQ+26, REQ+29, REQ+30, NEWMR+3, DOSE+8, DOSE+15, DOSE+21 , DOSE+24, DOSE+25, MESS+2, NEW+3, WLINK+4
EN^DIWE	REQ+22, DOSE+16
$$UP^XLFSTR	REQ+19, NEWMR+5, NEW+5
^XMD	SENDRT+16, SEND+14
$$PROD^XUPROD	TEST+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: REQ+12
Function Call: WRITE	Prompt: ! Line Location: REQ+15
Function Call: WRITE	Prompt: !!,"You'll now be prompted for a reason or references for this request (optional).",! Line Location: REQ+20
Function Call: WRITE	Prompt: ! Line Location: REQ+22
Function Call: WRITE	Prompt: ! Line Location: REQ+23
Function Call: WRITE	Prompt: !!,"Mail message only sent to you in Vista Mail.",! Line Location: REQ+29
Function Call: WRITE	Prompt: !!,"Mail message transmitted for review.",! Line Location: REQ+30
Function Call: WRITE	Prompt: ! Line Location: NEWMR+1
Function Call: WRITE	Prompt: ! Line Location: DOSE+11
Function Call: WRITE	Prompt: !!,"You must now enter a reason or references for this request.",! Line Location: DOSE+14
Function Call: WRITE	Prompt: ! Line Location: DOSE+16
Function Call: WRITE	Prompt: !!,"No data was entered." Line Location: DOSE+17
Function Call: WRITE	Prompt: ! Line Location: DOSE+18
Function Call: WRITE	Prompt: !!,"Mail message only sent to you in Vista Mail.",! Line Location: DOSE+24
Function Call: WRITE	Prompt: !!,"Mail message transmitted for review.",! Line Location: DOSE+25
Function Call: WRITE	Prompt: !!,"No Action Taken.",! Line Location: MESS+1
Function Call: WRITE	Prompt: ! Line Location: NEW+1
Function Call: WRITE	Prompt: !!,"NOTE: This is a test account. Regardless of your response to the 'Transmit'",!,"prompt, this request will NOT be sent forward for national review.",! Line Location: TEST+2
Function Call: WRITE	Prompt: !!!,"Standard Medication Route requests must now be made at the following website:",! Line Location: WLINK+2
Function Call: WRITE	Prompt: !?3,"http://vista.med.va.gov/ntrt/",! Line Location: WLINK+3
Routine Call	DIC Line Location: REQ+12 DOSE+11
Routine Call	DIR Line Location: REQ+9 REQ+17 REQ+21 REQ+26 REQ+29 REQ+30 NEWMR+3 DOSE+8 DOSE+15 DOSE+21 DOSE+24 DOSE+25 MESS+2 NEW+3 WLINK+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(51.23 - [#51.23]	REQ+13, NEWMR+10, NEWMR+13, NEWMR+15
^PS(51.24 - [#51.24]	DOSE+12, NEW+10, NEW+13, NEW+15, NEW+17, NEW+18
^TMP($J	REQ+22!, SENDRT+2!, SENDRT+3, SENDRT+4, SENDRT+5, SENDRT+6, SENDRT+7, SENDRT+8, SENDRT+9, SENDRT+10! , SENDRT+17!, KLM+1!, DOSE+16!, DOSE+17, KL+1!, SEND+2!, SEND+3, SEND+4, SEND+5, SEND+7* , SEND+8!, SEND+15!

Label References

Name	Line Occurrences
KL	DOSE+17, DOSE+22
KLM	REQ+27
MESS	REQ+9, REQ+10, REQ+12, REQ+14, REQ+17, REQ+21, REQ+27, DOSE+8, DOSE+9, DOSE+11 , DOSE+13, DOSE+15, DOSE+17, DOSE+22
NEW	DOSE+13, NEW+6
NEWMR	REQ+14, NEWMR+6
SEND	DOSE+24, DOSE+25
SENDRT	REQ+29, REQ+30
TEST	REQ+23, DOSE+18
WLINK	REQ+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	REQ+3~, DOSE+2~
D0	REQ+3~, DOSE+2~
D1	REQ+3~, DOSE+2~
D2	REQ+3~, DOSE+2~
DDWAUTO	REQ+2~, DOSE+1~
DDWC	REQ+2~, DOSE+1~
DDWFLAGS	REQ+2~, DOSE+1~
DDWLMAR	REQ+2~, DOSE+1~
DDWRMAR	REQ+2~, DOSE+1~
DDWRW	REQ+2~, DOSE+1~
DDWTAB	REQ+2~, DOSE+1~
DG	REQ+3~, DOSE+2~
DIC	REQ+3~, REQ+12!, REQ+22!, DOSE+2~, DOSE+11!, DOSE+16!
DIC(0	REQ+12, DOSE+11
DIFROM	SENDRT+1~, SEND+1~
DIR	REQ+3~, REQ+6!, REQ+9!, REQ+15!, REQ+17!, REQ+21!, REQ+23!, REQ+26!, REQ+29!, REQ+30! , NEWMR+1!, NEWMR+3!, DOSE+2~, DOSE+5!, DOSE+8!, DOSE+15!, DOSE+18!, DOSE+21!, DOSE+24!, DOSE+25! , MESS+2!, NEW+1!, NEW+3!, WLINK+1~, WLINK+4!
DIR("?"	REQ+7, REQ+8, REQ+15, REQ+16, REQ+24, REQ+25, NEWMR+1, NEWMR+2, DOSE+6, DOSE+7 , DOSE+19, DOSE+20, NEW+1, NEW+2
DIR("A"	REQ+6, REQ+15, REQ+21, REQ+23, REQ+29, REQ+30, NEWMR+1, DOSE+5, DOSE+15, DOSE+18 , DOSE+24, DOSE+25, MESS+2, NEW+1, WLINK+4*
DIR("B"	REQ+6, REQ+23, DOSE+5, DOSE+18
DIR(0	REQ+6, REQ+15, REQ+21, REQ+23, REQ+29, REQ+30, NEWMR+1, DOSE+5, DOSE+15, DOSE+18 , DOSE+24, DOSE+25, MESS+2, NEW+1, WLINK+4*
DIROUT	REQ+3~, DOSE+2~, WLINK+1~
DIRUT	REQ+3~, NEWMR+3, DOSE+2~, NEW+3, WLINK+1~
DIWEPSE	REQ+2~, DOSE+1~
DIWESUB	REQ+3~, REQ+22, DOSE+2~, DOSE+16
DIWETXT	REQ+2~, DOSE+1~
DTOUT	REQ+3~, REQ+9, REQ+12, REQ+17, REQ+27, NEWMR+3, DOSE+2~, DOSE+8, DOSE+11, DOSE+22 , NEW+3, WLINK+1~
DUOUT	REQ+3~, REQ+9, REQ+12, REQ+17, REQ+27, NEWMR+3, DOSE+2~, DOSE+8, DOSE+11, DOSE+22 , NEW+3, WLINK+1~
DUZ	SENDRT+12, SENDRT+14, SEND+10, SEND+12
DWDISABL	REQ+2~, DOSE+1~
DWLW	REQ+3~, REQ+22, DOSE+2~, DOSE+16
DWPK	REQ+3~, REQ+22, DOSE+2~, DOSE+16
J	REQ+3~, DOSE+2~
PSSMQANS	REQ+3~, REQ+4!, REQ+11*, REQ+12, REQ+13, REQ+14, REQ+16, SENDRT+3, SENDRT+4
PSSMQCNT	SENDRT+1~, SENDRT+8, SENDRT+9
PSSMQFDB	REQ+3~, REQ+4!, NEWMR+13*, NEWMR+15
PSSMQIEN	REQ+3~, REQ+4!, REQ+12*, REQ+13
PSSMQLP	SENDRT+1~, SENDRT+9*
PSSMQMED	REQ+3~, REQ+4!, REQ+15!, REQ+18, REQ+19, SENDRT+7
PSSMQNDU	REQ+3~, REQ+4!, SENDRT+4, NEWMR+1!, NEWMR+4, NEWMR+5, NEWMR+6, NEWMR+10, NEWMR+11, NEWMR+13 , NEWMR+14
PSSMQNME	REQ+3~, REQ+4!, REQ+13*, SENDRT+4
PSSMQOUT	REQ+3~, REQ+4!, REQ+5, REQ+14, REQ+17, NEWMR+3, NEWMR+10, NEWMR+13*
PSSMQTXT	REQ+3~, REQ+4!
PSSMQVIS	REQ+3~, REQ+4!, REQ+28, REQ+29, SENDRT+15
PSSRQANS	DOSE+2~, DOSE+3!, DOSE+10*, DOSE+11, DOSE+12, DOSE+13, SEND+3, SEND+4
PSSRQCNT	SEND+1~, SEND+6, SEND+7
PSSRQFDB	DOSE+2~, DOSE+3!, NEW+17*, NEW+18
PSSRQIEN	DOSE+2~, DOSE+3!, DOSE+11*, DOSE+12
PSSRQLP	SEND+1~, SEND+7*
PSSRQNDU	DOSE+2~, DOSE+3!, NEW+1!, NEW+4, NEW+5, NEW+6, NEW+10, NEW+11, NEW+13, NEW+14 , NEW+17, NEW+18, SEND+4
PSSRQNME	DOSE+2~, DOSE+3!, DOSE+12*, SEND+4
PSSRQOUT	DOSE+2~, DOSE+3!, DOSE+4, DOSE+13, NEW+3, NEW+10, NEW+13, NEW+17*
PSSRQSYN	DOSE+2~, DOSE+3!, NEW+13*, NEW+15
PSSRQVIS	DOSE+2~, DOSE+3!, DOSE+23, DOSE+24, SEND+13
PSSTACCT	REQ+2~, SENDRT+15, DOSE+1~, SEND+13, TEST+1, TEST+2
X	REQ+3~, DOSE+2~, WLINK+1~
XMDUN	SENDRT+1~, SEND+1~
XMDUZ	SENDRT+1~, SENDRT+12, SEND+1~, SEND+10
XMMG	SENDRT+1~, SEND+1~
XMROU	SENDRT+1~, SEND+1~
XMSTRIP	SENDRT+1~, SEND+1~
XMSUB	SENDRT+1~, SENDRT+11, SEND+1~, SEND+9
XMTEXT	SENDRT+1~, SENDRT+13, SEND+1~, SEND+11
XMY	SENDRT+1~, SEND+1~
XMY(	SENDRT+14, SEND+12
XMY("VAOITVHITHDSSTSPEPSNTRT@va.gov"	SENDRT+15*
XMY("VAOITVHITPSDOSEUNITREQ@va.gov"	SEND+13*
XMYBLOB	SENDRT+1~, SEND+1~
XMZ	SENDRT+1~, SEND+1~
Y	REQ+3~, REQ+10, REQ+11, REQ+12, REQ+18, REQ+21, REQ+29, NEWMR+4, DOSE+2~, DOSE+9 , DOSE+10, DOSE+11, DOSE+15, DOSE+24, NEW+4, WLINK+1~

Customize PDF page

Package: Pharmacy Data Management

Routine: PSSMEDRQ

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: