Routine: PSOQUAP

Package	Total	Call Graph
Outpatient Pharmacy	3	($$DAYSSUPP,$$EXPDATE,$$LRDFUNC,$$REFILLS)^PSOQ0076 NVADT^PSOQCF04 $$LSIG^PSOQUTIL
Kernel	2	$$FMTE^XLFDT ($$REPEAT,$$UP)^XLFSTR
VA Fileman	2	C^%DTC $$GET1^DIQ
Health Summary	1	CKP^GMTSUP
Inpatient Medications	1	$$BCMALG^PSJUTL2
Order Entry Results Reporting	1	COVER^ORWPS

Entry Points

External References

Name	Field # of Occurrence
C^%DTC	OPTFOOT+2
$$GET1^DIQ	OPTFOOT+7
CKP^GMTSUP	HEADER+2, HEADER+4, HEADER+6, HEADER+9, HEADER+11, FOOTER, FOOTER+4, OPTFOOT+4, OPTFOOT+7, OPTFOOT+9 , OPTFOOT+10, INPDISP, INPDISP+1, INPDISP+4, INPDISP+5, INPDISP+6, OPTDISP+1, OPTDISP+9, OPTDISP+10, OPTDISP+11 , OPTDISP+12, NVADISP, NVADISP+1, NVADISP+4, NVADISP+5
COVER^ORWPS	EN+2
$$BCMALG^PSJUTL2	INPDISP+5
$$DAYSSUPP^PSOQ0076	OPTFOOT+7, OPTDISP+10
$$EXPDATE^PSOQ0076	OPTDISP+4
$$LRDFUNC^PSOQ0076	OPTFOOT+3, OPTDISP+3
$$REFILLS^PSOQ0076	OPTDISP+5
NVADT^PSOQCF04	HEADER+1
$$LSIG^PSOQUTIL	INPDISP+4
$$FMTE^XLFDT	HEADER+8, OPTFOOT+7, OPTDISP+10, OPTDISP+11
$$REPEAT^XLFSTR	HEADER+3, HEADER+10, FOOTER+2
$$UP^XLFSTR	EN+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("-",IOM),!,"Alphabetical list of all prescriptions, inpatient orders and Non-VA meds" Line Location: HEADER+3
Function Call: WRITE	Prompt: !,"Legend: OPT = VA issued outpatient prescription, INP = VA issued inpatient order" Line Location: HEADER+5
Function Call: WRITE	Prompt: !,"Non-VA Meds Last Documented On: " Line Location: HEADER+7
Function Call: WRITE	Prompt: $S(+ADATE:$$FMTE^XLFDT(ADATE,"D"),1:" Data not found ") Line Location: HEADER+8
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",IOM) Line Location: HEADER+10
Function Call: WRITE	Prompt: !,BLINE,!,"Other medications previously dispensed in the last year:",! Line Location: FOOTER+3
Function Call: WRITE	Prompt: !,"OPT "_DRUGNM_" ("_$$GET1^DIQ(52,+PACKREF,100,"E")_"/"_$$DAYSSUPP^PSOQ0076(PACKREF)_" Days Supply Last Released: "_$$FMTE^XLFDT(PSOQLRD,"2D")_")" Line Location: OPTFOOT+7
Function Call: WRITE	Prompt: !?5,$G(^PSRX(PACKREF,"SIG1",SIGLINE,0)) Line Location: OPTFOOT+9
Function Call: WRITE	Prompt: ! Line Location: OPTFOOT+10
Function Call: WRITE	Prompt: !,"INP "_DRUGNM Line Location: INPDISP+1
Function Call: WRITE	Prompt: !?5,$$LSIG^PSOQUTIL($G(^OR(100,+ORDER,8,LASTACT,.1,OTLINE,0))) Line Location: INPDISP+4
Function Call: WRITE	Prompt: !?5,$$BCMALG^PSJUTL2(DFN,ORDNUM) Line Location: INPDISP+5
Function Call: WRITE	Prompt: ! Line Location: INPDISP+6
Function Call: WRITE	Prompt: !,"OPT "_DRUGNM Line Location: OPTDISP+7
Function Call: WRITE	Prompt: !?5,$G(^PSRX(PACKREF,"SIG1",SIGLINE,0)) Line Location: OPTDISP+9
Function Call: WRITE	Prompt: !?15,"Last Released: "_$$FMTE^XLFDT(PSOQLRD,"2D"),?55,"Days Supply: "_$$DAYSSUPP^PSOQ0076(PACKREF) Line Location: OPTDISP+10
Function Call: WRITE	Prompt: !?15,"Rx Expiration Date: ",$$FMTE^XLFDT(PSOQEXP,"2D"),?55,"Refills Remaining: ",PSOQREF Line Location: OPTDISP+11
Function Call: WRITE	Prompt: ! Line Location: OPTDISP+12
Function Call: WRITE	Prompt: !,"Non VA "_DRUGNM Line Location: NVADISP+1
Function Call: WRITE	Prompt: !?5,$G(^OR(100,ORDER,8,LASTACT,.1,OTLINE,0)) Line Location: NVADISP+4
Function Call: WRITE	Prompt: ! Line Location: NVADISP+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSRX - [#52]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^OR(100 - [#100]	OPTFOOT+1, INPDISP+2, INPDISP+3, INPDISP+4, OPTDISP+2, NVADISP+2, NVADISP+3, NVADISP+4
^PSRX - [#52]	OPTFOOT+8, OPTFOOT+9, OPTDISP+8, OPTDISP+9

Label References

Name	Line Occurrences
FOOTER	EN+13
HEADER	EN+11
INPDISP	OUTPUT+7
NVADISP	OPTDISP+6
OPTDISP	OUTPUT+8
OPTFOOT	FOOTER+11
OUTPUT	EN+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADATE	HEADER~, HEADER+1, HEADER+8
ALPHA	EN+1~
ALPHA(	EN+10*, OUTPUT+3, OUTPUT+4, OUTPUT+5
ATEST	HEADER~, HEADER+1
ATEXT	HEADER~, HEADER+1
AVALUE	HEADER~, HEADER+1
BLINE	FOOTER+1~, FOOTER+2*, FOOTER+3
>> DFN	EN+2, HEADER+1, INPDISP+5
DRUGNM	EN+1~, EN+6, EN+8, EN+10, OUTPUT~, OUTPUT+3, OUTPUT+4, OUTPUT+5, FOOTER+5~, FOOTER+7* , FOOTER+8, FOOTER+9, OPTFOOT+7, INPDISP+1, OPTDISP+7, NVADISP+1
DT	OPTFOOT+2
>> GMTSQIT	HEADER+2, HEADER+4, HEADER+6, HEADER+9, HEADER+11, FOOTER, FOOTER+4, OPTFOOT+4, OPTFOOT+7, OPTFOOT+9 , OPTFOOT+10, INPDISP, INPDISP+1, INPDISP+4, INPDISP+5, INPDISP+6, OPTDISP+1, OPTDISP+9, OPTDISP+10, OPTDISP+11 , OPTDISP+12, NVADISP, NVADISP+1, NVADISP+4, NVADISP+5
IOM	HEADER+3, HEADER+10, FOOTER+2
LASTACT	OUTPUT+2~, INPDISP+2, INPDISP+3, INPDISP+4, NVADISP+2, NVADISP+3, NVADISP+4
ORDER	EN+1~, EN+7, EN+8, EN+10, OUTPUT~, OUTPUT+4, OUTPUT+5, FOOTER+5~, FOOTER+8*, FOOTER+9 , OPTFOOT+1, INPDISP+2, INPDISP+3, INPDISP+4, OPTDISP+2, NVADISP+2, NVADISP+3, NVADISP+4
ORDNUM	OUTPUT+1~, OUTPUT+6*, INPDISP+5
OTLINE	OUTPUT+2~, INPDISP+3, INPDISP+4, NVADISP+3, NVADISP+4
PACK	OUTPUT+1~, OUTPUT+6, OUTPUT+7, OUTPUT+8, FOOTER+6~, FOOTER+10, FOOTER+11
PACKREF	OUTPUT+1~, FOOTER+6~, OPTFOOT+1, OPTFOOT+3, OPTFOOT+7, OPTFOOT+8, OPTFOOT+9, OPTDISP+2, OPTDISP+3, OPTDISP+4 , OPTDISP+5, OPTDISP+8, OPTDISP+9, OPTDISP+10
PSNUM	EN+1~, EN+5, EN+8, EN+10, OUTPUT~, OUTPUT+5, OUTPUT+6, FOOTER+5~, FOOTER+9*, FOOTER+10 , OPTFOOT+6, OPTDISP+6
PSOQEXP	OPTDISP~, OPTDISP+4*, OPTDISP+11
PSOQLRD	OPTFOOT~, OPTFOOT+3, OPTFOOT+5, OPTFOOT+7, OPTDISP+3, OPTDISP+10
PSOQREF	OPTDISP~, OPTDISP+5*, OPTDISP+11
PSOQYEAR	OPTFOOT~, OPTFOOT+2*, OPTFOOT+5
RPC	EN+1~, EN+2
RPC(	EN+3, EN+4
RPCNODE	EN+1~, EN+4*, EN+5, EN+6, EN+7, EN+9
RPCT	EN+1~, EN+3*, EN+4
SAVE	EN+1~
SAVE(	EN+8!*, OUTPUT+3!, FOOTER+7, FOOTER+8, FOOTER+9
SIGLINE	OUTPUT+1~, FOOTER+6~, OPTFOOT+8, OPTFOOT+9, OPTDISP+8, OPTDISP+9
>> X	OPTFOOT+2
>> X1	OPTFOOT+2*
>> X2	OPTFOOT+2*

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOQUAP

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
EN	;ENTRY POINT FOR HEALTH SUMMARY
NVADISP
FOOTER
OPTFOOT
HEADER
INPDISP
OUTPUT
OPTDISP