Routine: PSOQUAP2

Package	Total	Call Graph
Kernel	3	(RMDEV,SAVDEV,USE)^%ZISUTL $$FMTE^XLFDT ($$REPEAT,$$UP)^XLFSTR
Outpatient Pharmacy	3	($$DAYSSUPP,$$EXPDATE,$$LRDFUNC,$$REFILLS)^PSOQ0076 NVADT^PSOQCF04 ($$LSIG,WRAPTEXT)^PSOQUTIL
Order Entry Results Reporting	2	($$GET,$$HAVEHDR)^ORRDI1 COVER^ORWPS
VA FileMan	2	C^%DTC ($$GET1,Y)^DIQ
Health Summary	1	CKP^GMTSUP
Inpatient Medications	1	$$BCMALG^PSJUTL2
Toolkit	1	$$GET^XPAR

Entry Points

Name	Comments	DBIA/ICR reference
EN	;ENTRY POINT FOR HEALTH SUMMARY
HEADER
OUTPUT
FOOTER
ADDREM	;6-21-07 ADD ACTIVE MEDS VIA REMOTE DATA INTEROPERABILITY
OPTFOOT
INPDISP
OPTDISP
RDIDISP
NVADISP

External References

Name	Field # of Occurrence
C^%DTC	OPTFOOT+2
RMDEV^%ZISUTL	ADDREM+13
SAVDEV^%ZISUTL	ADDREM+10
USE^%ZISUTL	ADDREM+12
$$GET1^DIQ	OPTFOOT+7
Y^DIQ	OPTDISP+11
CKP^GMTSUP	HEADER+2, HEADER+4, HEADER+6, HEADER+9, HEADER+11, FOOTER, FOOTER+4, ADDREM+6, ADDREM+8, ADDREM+15 , ADDREM+17, OPTFOOT+4, OPTFOOT+7, OPTFOOT+9, OPTFOOT+10, INPDISP, INPDISP+1, INPDISP+4, INPDISP+5, INPDISP+6 , OPTDISP+1, OPTDISP+15, OPTDISP+16, OPTDISP+17, OPTDISP+18, RDIDISP, RDIDISP+1, RDIDISP+5, RDIDISP+11, RDIDISP+13 , RDIDISP+14, NVADISP, NVADISP+1, NVADISP+4, NVADISP+5
$$GET^ORRDI1	ADDREM+11
$$HAVEHDR^ORRDI1	ADDREM+2
COVER^ORWPS	EN+2
$$BCMALG^PSJUTL2	INPDISP+5
$$DAYSSUPP^PSOQ0076	OPTFOOT+7, OPTDISP+16
$$EXPDATE^PSOQ0076	OPTDISP+4
$$LRDFUNC^PSOQ0076	OPTFOOT+3, OPTDISP+3
$$REFILLS^PSOQ0076	OPTDISP+5
NVADT^PSOQCF04	HEADER+1
$$LSIG^PSOQUTIL	INPDISP+4
WRAPTEXT^PSOQUTIL	INPDISP+4, RDIDISP+4, NVADISP+4
$$FMTE^XLFDT	HEADER+8, OPTFOOT+7, OPTDISP+16, OPTDISP+17
$$REPEAT^XLFSTR	HEADER+3, HEADER+10, FOOTER+2
$$UP^XLFSTR	EN+6
$$GET^XPAR	ADDREM+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("-",IOM),!,"Alphabetized list of outpatient Rx's, inpatient orders, remote 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: !,"WARNING: Connection to Remote Data Currently Down",! Line Location: ADDREM+7
Function Call: WRITE	Prompt: !,"WARNING: Connection to Remote Data Not Available",! Line Location: ADDREM+16
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,$$BCMALG^PSJUTL2(DFN,ORDNUM) Line Location: INPDISP+5
Function Call: WRITE	Prompt: ! Line Location: INPDISP+6
Function Call: WRITE	Prompt: !,"OPT "_DRUGNM_" (Status = "_PSOQSTA_")" Line Location: OPTDISP+13
Function Call: WRITE	Prompt: !?5,$G(^PSRX(PACKREF,"SIG1",SIGLINE,0)) Line Location: OPTDISP+15
Function Call: WRITE	Prompt: !?10,"Last Released: "_$$FMTE^XLFDT(PSOQLRD,"2D"),?55,"Days Supply: "_$$DAYSSUPP^PSOQ0076(PACKREF) Line Location: OPTDISP+16
Function Call: WRITE	Prompt: !?10,"Rx Expiration Date: ",$$FMTE^XLFDT(PSOQEXP,"2D"),?55,"Refills Remaining: ",PSOQREF Line Location: OPTDISP+17
Function Call: WRITE	Prompt: ! Line Location: OPTDISP+18
Function Call: WRITE	Prompt: !,"Remote "_DRUGNM Line Location: RDIDISP+1
Function Call: WRITE	Prompt: !?10,"Last Filled: "_$G(^XTMP("ORRDI","PSOO",DFN,+ORDNUM,9,0))_" ("_PSOQSTAT_" at "_$G(^XTMP("ORRDI","PSOO",DFN,+ORDNUM,1,0))_") " Line Location: RDIDISP+8
Function Call: WRITE	Prompt: ?55,"Days Supply: "_$P($P($G(^XTMP("ORRDI","PSOO",DFN,+ORDNUM,6,0)),";",2),"D",2) Line Location: RDIDISP+10
Function Call: WRITE	Prompt: !?10,"Rx Expiration Date: ",$G(^XTMP("ORRDI","PSOO",DFN,+ORDNUM,7,0)),?55,"Refills Remaining: ",$G(^XTMP("ORRDI","PSOO",DFN,+ORDNUM,10,0)) Line Location: RDIDISP+12
Function Call: WRITE	Prompt: ! Line Location: RDIDISP+14
Function Call: WRITE	Prompt: !,"Non VA "_DRUGNM Line Location: NVADISP+1
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)
^DD(52	OPTDISP+10
^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+9, OPTDISP+12, OPTDISP+14, OPTDISP+15
^XTMP("ORRDI"	ADDREM+4, ADDREM+5, ADDREM+18, ADDREM+19, ADDREM+20, ADDREM+23, ADDREM+24, RDIDISP+3, RDIDISP+6, RDIDISP+8 , RDIDISP+10, RDIDISP+12

Label References

Name	Line Occurrences
ADDREM	EN+12
FOOTER	EN+15
HEADER	EN+13
INPDISP	OUTPUT+7
NVADISP	OPTDISP+6
OPTDISP	OUTPUT+8
OPTFOOT	FOOTER+11
OUTPUT	EN+14
RDIDISP	OUTPUT+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADATE	HEADER~, HEADER+1, HEADER+8
ALPHA	EN+1~
ALPHA(	EN+11, OUTPUT+3, OUTPUT+4, OUTPUT+5, ADDREM+26
ATEST	HEADER~, HEADER+1
ATEXT	HEADER~, HEADER+1
AVALUE	HEADER~, HEADER+1
BLINE	FOOTER+1~, FOOTER+2*, FOOTER+3
C	OPTDISP+8~, OPTDISP+10*
>> DFN	EN+2, HEADER+1, ADDREM+11, ADDREM+18, ADDREM+19, ADDREM+20, ADDREM+23, ADDREM+24, INPDISP+5, RDIDISP+3 , RDIDISP+6, RDIDISP+8, RDIDISP+10, RDIDISP+12
DRUGNM	EN+1~, EN+6, EN+8, EN+9, EN+11, OUTPUT~, OUTPUT+3, OUTPUT+4, OUTPUT+5, FOOTER+5~ , FOOTER+7*, FOOTER+8, FOOTER+9, OPTFOOT+7, INPDISP+1, OPTDISP+13, RDIDISP+1, NVADISP+1
DT	OPTFOOT+2
>> GMTSQIT	HEADER+2, HEADER+4, HEADER+6, HEADER+9, HEADER+11, FOOTER, FOOTER+4, ADDREM+6, ADDREM+8, ADDREM+15 , ADDREM+17, OPTFOOT+4, OPTFOOT+7, OPTFOOT+9, OPTFOOT+10, INPDISP, INPDISP+1, INPDISP+4, INPDISP+5, INPDISP+6 , OPTDISP+1, OPTDISP+15, OPTDISP+16, OPTDISP+17, OPTDISP+18, RDIDISP, RDIDISP+1, RDIDISP+5, RDIDISP+11, RDIDISP+13 , RDIDISP+14, 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+9, EN+11, 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, RDIDISP+3, RDIDISP+6, RDIDISP+8, RDIDISP+10, RDIDISP+12
OTLINE	OUTPUT+2~, INPDISP+3, INPDISP+4, NVADISP+3, NVADISP+4
PACK	OUTPUT+1~, OUTPUT+6, OUTPUT+7, OUTPUT+8, OUTPUT+9, 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+9, OPTDISP+12, OPTDISP+14, OPTDISP+15, OPTDISP+16
PSNUM	EN+1~, EN+5, EN+8, EN+9, EN+11, OUTPUT~, OUTPUT+5, OUTPUT+6, FOOTER+5~, FOOTER+9* , FOOTER+10, OPTFOOT+6, OPTDISP+6
PSOQDOWN	ADDREM+1~, ADDREM+3, ADDREM+5*
PSOQEXP	OPTDISP~, OPTDISP+4*, OPTDISP+17
PSOQLRD	OPTFOOT~, OPTFOOT+3, OPTFOOT+5, OPTFOOT+7, OPTDISP+3, OPTDISP+16
PSOQMED	ADDREM+1~, ADDREM+19*, ADDREM+20, ADDREM+23, ADDREM+24, ADDREM+26
PSOQRDI	ADDREM+1~, ADDREM+11*, ADDREM+14
PSOQREF	OPTDISP~, OPTDISP+5*, OPTDISP+17
PSOQRNAM	ADDREM+1~, ADDREM+23*, ADDREM+25, ADDREM+26
PSOQRNUM	ADDREM+1~, ADDREM+24*, ADDREM+25, ADDREM+26
PSOQSIG	RDIDISP+2~, RDIDISP+3*, RDIDISP+4
PSOQSTA	OPTDISP~, OPTDISP+12*, OPTDISP+13
PSOQSTAT	ADDREM+1~, ADDREM+20, ADDREM+21, ADDREM+22, RDIDISP+2~, RDIDISP+6, RDIDISP+7*, RDIDISP+8
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+10
RPCT	EN+1~, EN+3*, EN+4
SAVE	EN+1~
SAVE(	EN+9!*, OUTPUT+3!, FOOTER+7, FOOTER+8, FOOTER+9
SIGLINE	OUTPUT+1~, FOOTER+6~, OPTFOOT+8, OPTFOOT+9, OPTDISP+14, OPTDISP+15
U	OPTDISP+10
>> X	OPTFOOT+2
>> X1	OPTFOOT+2*
>> X2	OPTFOOT+2*
Y	OPTDISP+8~, OPTDISP+9*, OPTDISP+12

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOQUAP2

Information

Source Information

Call Graph

Call Graph Total: 13

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: