Routine: PSODISP1

Package	Total	Call Graph
VA Fileman	5	(,DD)^%DT C^%DTC ^DIC $$GET1^DIQ ^DIR
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Outpatient Pharmacy	2	CMOP^PSOCMOPA ^PSOLSET
Text Integration Utility	1	$$HRCN^TIUR2

Package	Total	Caller Graph
Outpatient Pharmacy	2	PSO RELEASE REPORT PSODISP2

Entry Points

External References

Name	Field # of Occurrence
^%DT	CS+8, CS+10
DD^%DT	CS+11
C^%DTC	CS+6
^%ZIS	CS+14
^%ZISC	EXIT
^%ZTLOAD	CS+18
^DIC	AC+6
$$GET1^DIQ	CSDEA+3, PTDATA1+5, PTDATA1+6, PTDATA1+11, PTDATA1+13, PTDATA1+15, PTDATA1+16
^DIR	AC+5, AC+8, CS+4
CMOP^PSOCMOPA	RPT+1
^PSOLSET	PSODISP1+5
$$HRCN^TIUR2	PTDATA1+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"Pharmacy Division must be selected!",! Line Location: PSODISP1+5
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: ! Line Location: CS+6
Function Call: WRITE	Prompt: !!," # of Unreleased Fills - "_UNREL_" # of Copay Fills - "_CP Line Location: BC+1
Function Call: WRITE	Prompt: !,@IOF Line Location: BC+2
Function Call: WRITE	Prompt: !,$P(^PSRX(RXN,0),"^"),?16,"Original" Line Location: RPT2+6
Function Call: WRITE	Prompt: ?29,$S(Y["@":$P(Y,"@"),1:Y),?50,"YES" Line Location: RPT2+6
Function Call: WRITE	Prompt: ?25,$S(Y["@":$P(Y,"@"),1:Y) Line Location: RPT2+9
Function Call: WRITE	Prompt: ?39,$S(Y["@":$P(Y,"@"),1:Y),?52,"YES" Line Location: RPT2+10
Function Call: WRITE	Prompt: !,$P(^PSRX(RXN,0),"^"),?16,"Original",?50,"No" Line Location: RPT2+11
Function Call: WRITE	Prompt: ?85,"YES",?95,$S(PSX(0)=0:"Transmitted",PSX(0)=1:"DISPENSED",PSX(0)=2:"Retransmitted",PSX(0)=3:"Not Dispensed",1:"Unknown") Line Location: RPT2+13
Function Call: WRITE	Prompt: ?25,$S(Y["@":$P(Y,"@"),1:Y) Line Location: REF+8
Function Call: WRITE	Prompt: ?39,$S(Y["@":$P(Y,"@"),1:Y),?52,"Yes" Line Location: REF+9
Function Call: WRITE	Prompt: ?60,$S(XY=1:"Non-verified",XY=2:"Refill",XY=3!(XY=16):"Hold",XY=5:"Suspended",XY=10:"Done",XY=11:"Expired",XY=12!(XY=14)!(XY=15):"Discontinued",1:"Active") Line Location: CP1+0
Function Call: WRITE	Prompt: ?75,"Yes" Line Location: CP1+3
Function Call: WRITE	Prompt: ?85,"Yes",?95,$S(PSX(NODE)=0:"Transmitted",PSX(NODE)=1:"Dispensed",PSX(NODE)=2:"Retransmitted",PSX(NODE)=3:"Not Dispensed",1:"Unknown") Line Location: CP1+4
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: ?17,"Controlled Substance Prescriptions Only" Line Location: HD+2
Function Call: WRITE	Prompt: !?18,PSDATE_" to "_PEDATE,?70,"Page: "_PG,!!,?12,"Fill/",?25,"Date",?39,"Date" Line Location: HD+3
Function Call: WRITE	Prompt: !,"Rx #",?12,"Refill",?25,"Filled",?39,"Released",?52,"Released",?61,"Status",?74,"Copay " Line Location: HD+4
Function Call: WRITE	Prompt: "CMOP CMOP Status" Condition for execution: $G(PSXSYS) Line Location: HD+4
Function Call: WRITE	Prompt: !?2,"Pt Name",?23,"DOB",?36,"HRN",?46,"Pharmacist",?66,"Finisher" Line Location: HD+6
Function Call: WRITE	Prompt: ! Line Location: HD+7
Function Call: WRITE	Prompt: "-" Line Location: HD+7
Function Call: WRITE	Prompt: ! Line Location: HD+8
Function Call: WRITE	Prompt: !,?2,$E(NAME,1,19),?23,DOB,?36,HRCN,?46,$E(PHARM,1,19),?66,$E(FILL,U,14),! Line Location: PTDATA1+17
Routine Call	DIC Line Location: AC+6
Routine Call	DIR Line Location: AC+5 AC+8 CS+4
Routine Call	%ZIS Line Location: CS+14

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^PSDRUG - [#50]	GET1^DIQ
^PSRX - [#52]	GET1^DIQ
52.1	GET1^DIQ
52.2	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	HRCN+1
^DD("DD"	CS+8, CS+9, RPT2+9, RPT2+10, REF+8, REF+9
^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+7, RPT2+8, RPT2+9 , RPT2+10, RPT2+11, RPT2+12, REF+1, REF+2, REF+3, REF+4, REF+6, REF+7, REF+8 , REF+9, REF+10, REF+11, CP1+3, TEST+2, TEST+4, TEST+5, TEST+6, TEST+7, PTDATA1+3
^PSRX("AD"	RPT
^PSRX("ADP"	RPT+3

Label References

Name	Line Occurrences
$$CSDEA	RPT2+4, REF+5
@(	RPT+2
CP1	RPT2+10, RPT2+11, REF+6
EXIT	PSODISP1+5, AC+3, AC+8, CS+4, CS+8, CS+10, CS+14, CS+15
HD	BC, RPT, RPT+3
PTDATA1	CP1+5
REF	RPT+4
RPT	BC
TEST	REF+10
TESTX	TEST+3

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	CS+8*, CS+10!, EXIT+1!
%DT("A"	CS+8, CS+10
%DT("B"	CS+8, CS+10
%DT(0	CS+6, CS+8
%ZIS	CS+13!*
%ZIS("A"	CS+13*
%ZIS("B"	CS+13*
%ZIS("S"	CS+13*
BDT	EXIT!, RPT, RPT+3
BEG	CS+8*, EXIT!
BEGDT	CS+6, CS+7, CS+8*, CS+11, EXIT!, RPT, RPT+3
CP	BC, BC+1, EXIT+1!, CP1+3
DEA	CSDEA+2~, CSDEA+3, CSDEA+4, CSDEA+5, CSDEA+6
DIC	AC+6*!, EXIT+1!
DIC("A"	AC+6*
DIC(0	AC+6*
DIR	AC+5!, AC+8!, CS+1!, CS+4!, EXIT!
DIR("?"	AC+4, AC+5, AC+8*
DIR("A"	AC+4, AC+5, AC+8, CS+3
DIR("B"	AC+5, AC+8, CS+3*
DIR(0	AC+5, AC+8, CS+2*
DIRUT	AC+5, AC+6, EXIT!
DOB	PTDATA1+1~, PTDATA1+6*, PTDATA1+17
DR	EXIT!
DRUGDA	CSDEA+2~, CSDEA+3*
DT	CS+6, CS+9
DTOUT	AC+8, CS+4, EXIT+1!
DUD	AC+8*, EXIT+1!, RPT2, REF+1, HD
DUD1	CS+4!, CS+5*, EXIT+1!, HD+1, HD+2, CSDEA+1, CSDEA+5, CSDEA+6
DUOUT	AC+8, CS+4, EXIT!
DUZ(2	PTDATA1+7
END	CS+9*, CS+10, EXIT!
ENDDT	CS+10*, CS+11, EXIT!, RPT, RPT+3
FILL	PTDATA1+1~, PTDATA1+2, PTDATA1+16, PTDATA1+17
G	CS+17*, EXIT!
HRCN	PTDATA1+1~, PTDATA1+7*, PTDATA1+17
I	AC, AC+1, EXIT!
IEN	PTDATA1+1~, PTDATA1+9*, PTDATA1+11, PTDATA1+13
IO	BC
IO("Q"	CS+13!, CS+15, CS+18!
IOF	AC+2, BC+2, HD
ION	CS+13
IOP	CS+13!, CS+14*!
IOSL	RPT, RPT+3
IOST	BC+2
LB	RPT+2!, RPT+4!, RPT2+12, REF+11
LBLP	RPT+2!, RPT+4!, RPT2+11, RPT2+12, REF+10, REF+11
LIN	EXIT!, HD+7*
MUL	AC, AC+1, AC+3, EXIT+1!
NAME	PTDATA1+1~, PTDATA1+5*, PTDATA1+17
ND	EXIT+1!, RPT, RPT+3
NODE	EXIT!, RPT, RPT+2, RPT+3, REF+1, REF+2, REF+3, REF+6, REF+7, REF+8 , REF+9, REF+10, REF+11, CP1+4, PTDATA1+8, PTDATA1+9
PAR	EXIT!, RPT+4*, REF+1, REF+2, REF+3, REF+6, REF+7, REF+8, REF+9, REF+10 , REF+11, CP1+2, PTDATA1+10, PTDATA1+12
PEDATE	CS+11*, EXIT+1!, HD+3
PG	BC, EXIT!, HD+3, HD+8
PHARM	PTDATA1+1~, PTDATA1+2, PTDATA1+11, PTDATA1+13, PTDATA1+15, PTDATA1+17
>> POP	CS+14
PSDATE	CS+11*, EXIT+1!, HD+3
PSIN	AC*, CS+6, CS+7, CS+8, EXIT+1!
PSOION	CS+13*, CS+14!, CS+15!
PSOLCMF	EXIT+1!, REF+10, 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+5
>> PSOSITE	AC, AC+4
PSX	EXIT!, RPT+1!
PSX(	REF+10, CP1+4
PSX(0	RPT2+11
>> PSXSYS	RPT+1, HD+4, HD+7
PSXZ	EXIT!
PT	PTDATA1+1~, PTDATA1+3*, PTDATA1+4, PTDATA1+5, PTDATA1+6, PTDATA1+7, HRCN~, HRCN+1
REC	EXIT!
RXN	EXIT!, RPT, RPT+1, RPT+2, RPT+3, RPT+4, RPT2, RPT2+1, RPT2+2, RPT2+3 , RPT2+4, RPT2+7, RPT2+8, RPT2+9, RPT2+10, RPT2+11, RPT2+12, REF+1, REF+2, REF+3 , REF+4, REF+5, REF+6, REF+7, REF+8, REF+9, REF+10, REF+11, CP1+3, TEST+2 , TEST+4, TEST+5, TEST+6, TEST+7, PTDATA1+3, PTDATA1+9, PTDATA1+15, PTDATA1+16
SITE	AC, AC+7, EXIT+1!, RPT2+2, REF+2, HD, HRCN~, HRCN+1
STOP	AC+3, AC+5, AC+6, EXIT+1!
TYPE	EXIT+1!
U	PTDATA1+3, PTDATA1+17, HRCN+1
UNDERL	EXIT+1!
UNREL	BC, BC+1, EXIT!, RPT2+11, REF+10*
X	CS+6, CS+8, CS+10, EXIT!, CSDEA~, CSDEA+3
X1	CS+6*, EXIT!
X2	CS+6*, EXIT!
XY	EXIT+1!, RPT2+3, REF+4, CP1
Y	AC+6, AC+7, AC+8, CS+5, CS+6, CS+7, CS+8, CS+9, CS+10, CS+11 , EXIT!, RPT2+9, RPT2+10, REF+8, REF+9
ZTDESC	CS+16*, EXIT+1!
ZTQUEUED	EXIT+1!
>> ZTREQ	EXIT+1*
ZTRTN	CS+16*, EXIT+1!
ZTSAVE	EXIT+1!
ZTSAVE(	CS+17*
ZTSK	CS+13!, CS+18!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSODISP1

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
HRCN(PT,SITE)	;EP; IHS/MSC/MGH return chart number
AC
RPT2
RPT
BC
TESTX
PTDATA1	;Extra fields added to report Patch 1013
TEST	;
EXIT
CSDEA(X)	;CS Critera .. returns a 1 if both DEA on drug & criteria 'N/C/B' are satisfied
CS	; ask CS selection criteria - store in DUD1
CP1
REF	;
HD