Routine: PSODISP1

Information

PSODISP1 ;BHAM ISC/SAB,PDW - Rx released/unrelease report ;Dec 13, 2021@07:59:07

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
VA FileMan	5	(,DD)^%DT C^%DTC ^DIC $$GET1^DIQ ^DIR
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
Outpatient Pharmacy	3	CMOP^PSOCMOPA $$ERXIEN^PSOERXUT ^PSOLSET

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Outpatient Pharmacy	2	PSO RELEASE REPORT PSODISP2

Entry Points

Name	Comments	DBIA/ICR reference
AC
CS	; ask CS selection criteria - store in DUD1
BC
EXIT
RPT
RPT2
REF	;
CP1
HD
TEST	;
TESTX
CSDEA(X)	;CS Criteria .. returns a 1 if both DEA on drug & criteria 'N/C/B' are satisfied
SCH(X)	;Schedule conversion

External References

Name	Field # of Occurrence
^%DT	CS+13, CS+15
DD^%DT	CS+16
C^%DTC	CS+11
^%ZIS	CS+19
^%ZISC	EXIT
^%ZTLOAD	CS+23
^DIC	AC+6
$$GET1^DIQ	RPT2+9, RPT2+14, REF+10, REF+16, CSDEA+2
^DIR	AC+5, AC+8, CS+4, CS+9
CMOP^PSOCMOPA	RPT+1
$$ERXIEN^PSOERXUT	RPT2+7, REF+8
^PSOLSET	PSODISP1+4
$$FMTE^XLFDT	RPT2+11, REF+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"Pharmacy Division must be selected!",! Line Location: PSODISP1+4
Function Call: WRITE	Prompt: @IOF,!?15,"Report of Released and UnReleased Prescriptions",! Line Location: AC+2
Function Call: WRITE	Prompt: ! Line Location: AC+6
Function Call: WRITE	Prompt: ! Line Location: AC+7
Function Call: WRITE	Prompt: ! Line Location: AC+8
Function Call: WRITE	Prompt: !!,"Select controlled substance schedules" Line Location: CS+7
Function Call: WRITE	Prompt: ! Line Location: CS+11
Function Call: WRITE	Prompt: !!,"& Indicates eRx Prescription" Line Location: BC+1
Function Call: WRITE	Prompt: !!,"# of Released Fills - "_REL_" # of Unreleased Fills - "_UNREL_" # of Copay Fills - "_CP Line Location: BC+2
Function Call: WRITE	Prompt: !,@IOF Line Location: BC+3
Function Call: WRITE	Prompt: ?52,$P($$FMTE^XLFDT(Y,"2Z"),"@"),?62,$$SCH($P(CSDEA,"^",2)) Line Location: RPT2+11
Function Call: WRITE	Prompt: ?52,$P($$FMTE^XLFDT(Y,"2Z"),"@"),?62,$$SCH($P(CSDEA,"^",2)) Line Location: REF+11
Function Call: WRITE	Prompt: !,$S(ERXIND'="":"&",1:" "),$P(^PSRX(RXN,0),"^"),?16,$E($$GET1^DIQ(50,$P(^PSRX(RXN,0),"^",6),.01),1,30),?48,$S('$G(PAR):"",1:"P"),NODE,?62,$$SCH($P(CSDEA,"^",2)) Line Location: REF+16
Function Call: WRITE	Prompt: ?68,$S(XY=1:"NV",XY=2:"Ref",XY=3!(XY=16):"HLD",XY=5:"SUSP",XY=10:"DONE",XY=11:"EXP",XY=12!(XY=14)!(XY=15):"DC",1:"ACT") Line Location: CP1+0
Function Call: WRITE	Prompt: ?68,"PARKED" Line Location: CP1+1
Function Call: WRITE	Prompt: ?77,"Y" Line Location: CP1+2
Function Call: WRITE	Prompt: ?85,"Y",?95,$S(PSX(NODE)=0:"Transmitted",PSX(NODE)=1:"Dispensed",PSX(NODE)=2:"Retransmitted",PSX(NODE)=3:"Not Dispensed",1:"Unknown") Line Location: CP1+3
Function Call: WRITE	Prompt: @IOF,?$S('DUD:17,1:20),$S('DUD:"Release/",1:"")_"Unreleased Report for "_$P(^PS(59,SITE,0),"^",1),! Line Location: HD+0
Function Call: WRITE	Prompt: ?13,"Non-controlled Substance Prescriptions Only" Line Location: HD+1
Function Call: WRITE	Prompt: ?8,"Controlled Substance Prescriptions (",$S(SCH=1:"Schedules I - II",SCH=2:"Schedules III - V",SCH=3:"Schedules I - V",1:"")_")" Line Location: HD+2
Function Call: WRITE	Prompt: !?18,PSDATE_" to "_PEDATE,?70,"Page: "_PG,!!,?47,"Fill/",?54,"Date",!,"Rx #",?16,"Drug",?47,"Ref#",?54,"Rel",?62,"Sch",?67,"Status",?75,"Copay " Line Location: HD+3
Function Call: WRITE	Prompt: "CMOP CMOP Status" Condition for execution: $G(PSXSYS) Line Location: HD+3
Function Call: WRITE	Prompt: ! Line Location: HD+3
Function Call: WRITE	Prompt: ! Line Location: HD+3
Function Call: WRITE	Prompt: ! Line Location: HD+4
Routine Call	DIC Line Location: AC+6
Routine Call	DIR Line Location: AC+5 AC+8 CS+4 CS+9
Routine Call	%ZIS Line Location: CS+19

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	CS+13, CS+14
^PS(59 - [#59]	AC+1, AC+4, HD
^PS(59.7 - [#59.7]	AC
^PSRX - [#52]	RPT+1, RPT+2, RPT+4, RPT2, RPT2+1, RPT2+2, RPT2+3, RPT2+5, RPT2+8, RPT2+9 , RPT2+10, RPT2+14, RPT2+15, REF+1, REF+2, REF+3, REF+4, REF+6, REF+9, REF+10 , REF+11, REF+12, REF+13, REF+16, CP1+2, TEST+2, TEST+4, TEST+5, TEST+6, TEST+7
^PSRX("AD"	RPT
^PSRX("ADP"	RPT+3

Label References

Name	Line Occurrences
$$CSDEA	RPT2+4, REF+5
$$SCH	RPT2+11, RPT2+14, REF+11, REF+16
@(	RPT+2
CP1	RPT2+13, RPT2+14, REF+9
EXIT	PSODISP1+4, AC+3, AC+8, CS+4, CS+6, CS+13, CS+15, CS+19, CS+20
HD	BC, RPT, RPT+3
REF	RPT+4
RPT	BC
TEST	REF+15
TESTX	TEST+3

Naked Globals

Name	Field # of Occurrence
^(	TEST+2
^(0	RPT2+15
^(2	RPT2+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	CS+13*, CS+15!, EXIT+1!
%DT("A"	CS+13, CS+15
%DT("B"	CS+13, CS+15
%DT(0	CS+11, CS+13
%ZIS	CS+18!*
%ZIS("A"	CS+18*
%ZIS("B"	CS+18*
%ZIS("S"	CS+18*
BDT	EXIT!, RPT, RPT+3
BEG	CS+13*, EXIT!
BEGDT	CS+11, CS+12, CS+13*, CS+16, EXIT!, RPT, RPT+3
CP	BC, BC+2, EXIT+1!, CP1+2
CSDEA	EXIT!, RPT2+4, RPT2+11, RPT2+14, REF+5, REF+11, REF+16
DEA	CSDEA+1~, CSDEA+2*, CSDEA+3, CSDEA+5, CSDEA+7
DIC	AC+6*!, EXIT+1!
DIC("A"	AC+6*
DIC(0	AC+6*
DIR	AC+5!, AC+8!, CS+1!, CS+4!, CS+6!, CS+7!, EXIT!
DIR("?"	AC+4, AC+5, AC+8*
DIR("A"	AC+4, AC+5, AC+8, CS+3, CS+8*
DIR("B"	AC+5, AC+8, CS+3, CS+8
DIR(0	AC+5, AC+8, CS+2, CS+8
DIRUT	AC+5, AC+6, CS+6, EXIT!
DR	EXIT!
DRUGDA	CSDEA+1~, CSDEA+2*
DT	CS+11, CS+14
DTOUT	AC+8, CS+4, EXIT+1!
DUD	AC+8*, EXIT+1!, RPT2, REF+1, HD
DUD1	CS+4!, CS+5*, CS+6, EXIT+1!, HD+1, HD+2, CSDEA+3, CSDEA+5
DUOUT	AC+8, CS+4, EXIT!
END	CS+14*, CS+15, EXIT!
ENDDT	CS+15*, CS+16, EXIT!, RPT, RPT+3
ERXIND	RPT2+7~, RPT2+9, RPT2+14, REF+8~, REF+10, REF+16
G	CS+22*, EXIT!
I	AC, AC+1, CS+6!, CS+10*, EXIT!
IO	BC
IO("Q"	CS+18!, CS+20, CS+23!
IOF	AC+2, BC+3, HD
ION	CS+18
IOP	CS+18!, CS+19*!
IOSL	RPT, RPT+3
IOST	BC+3
J	CS+6!, CS+10*
K	CS+6!, CS+10*
LB	RPT+2!, RPT+4!, RPT2+15, REF+13
LBLP	RPT+2!, RPT+4!, RPT2+14, RPT2+15, REF+13, REF+14, REF+15
LIN	EXIT!, HD+3*
MUL	AC, AC+1, AC+3, EXIT+1!
ND	EXIT+1!, RPT, RPT+3
NODE	EXIT!, RPT, RPT+2, RPT+3, REF+1, REF+2, REF+3, REF+9, REF+10, REF+11 , REF+12, REF+13, REF+14, REF+16, CP1+3
PAR	EXIT!, RPT+4*, REF+1, REF+2, REF+3, REF+9, REF+10, REF+11, REF+12, REF+13 , REF+16, CP1+2
>> PARKED	RPT2+5, REF+6, CP1, CP1+1
PEDATE	CS+16*, EXIT+1!, HD+3
PG	BC, EXIT!, HD+3, HD+4
>> POP	CS+19
PSDATE	CS+16*, EXIT+1!, HD+3
PSIN	AC*, CS+11, CS+12, CS+13, EXIT+1!
PSOION	CS+18*, CS+19!, CS+20!
PSOLCMF	EXIT+1!, REF+15, TEST+1, TEST+4, TEST+6, TEST+7*
PSOLCMR	TEST+1, TEST+2, TEST+3, TEST+6, TEST+7, TESTX!
PSOLCMRZ	TEST+7*!
PSOLCR	TEST+2, TEST+4, TEST+5, TEST+6, TEST+7, TESTX!
>> PSOPAR	PSODISP1+4
>> PSOSITE	AC, AC+4
PSX	EXIT!, RPT+1!
PSX(	REF+14, CP1+3
PSX(0	RPT2+14
>> PSXSYS	RPT+1, HD+3
PSXZ	EXIT!
REC	EXIT!
REL	BC, BC+2, EXIT!, RPT2+12, REF+10*
RPT	EXIT!, REF+12, REF+16
RXN	EXIT!, RPT, RPT+1, RPT+2, RPT+3, RPT+4, RPT2, RPT2+1, RPT2+2, RPT2+3 , RPT2+4, RPT2+5, RPT2+7, RPT2+8, RPT2+9, RPT2+10, RPT2+14, RPT2+15, REF+1, REF+2 , REF+3, REF+4, REF+5, REF+6, REF+8, REF+9, REF+10, REF+11, REF+12, REF+13 , REF+16, CP1+2, TEST+2, TEST+4, TEST+5, TEST+6, TEST+7
SCH	CS+10*, EXIT!, HD+2
SCH(	CS+10*, CSDEA+5
SITE	AC, AC+7, EXIT+1!, RPT2+2, REF+2, HD
STOP	AC+3, AC+5, AC+6, EXIT+1!
TYPE	EXIT+1!
UNDERL	EXIT+1!
UNREL	BC, BC+2, EXIT!, RPT2+14, REF+16*
X	CS+6!, CS+11, CS+13, CS+15, EXIT!, CSDEA~, CSDEA+2, SCH~, SCH+1, SCH+2
X1	CS+11*, EXIT!
X2	CS+11*, EXIT!
XY	EXIT+1!, RPT2+3, RPT2+5, REF+4, REF+6, CP1
Y	AC+6, AC+7, AC+8, CS+5, CS+6!, CS+10, CS+11, CS+12, CS+13, CS+14* , CS+15, CS+16, EXIT!, RPT2+10, RPT2+11, REF+11*
ZTDESC	CS+21*, EXIT+1!
ZTQUEUED	EXIT+1!
>> ZTREQ	EXIT+1*
ZTRTN	CS+21*, EXIT+1!
ZTSAVE	EXIT+1!
ZTSAVE(	CS+22*
ZTSAVE("SCH("	CS+21*
ZTSK	CS+18!, CS+23!

Customize PDF page

Package: Outpatient Pharmacy