Routine: PSOUTLA1

Package	Total	Call Graph
VA Fileman	4	(,DD)^%DT C^%DTC EN^DDIOL ^DIR
Outpatient Pharmacy	2	EN^PSOHLSN1 $$REFIP^PSOUTLA1
Kernel	1	^%ZTLOAD

Package

Total

Call Graph

VA Fileman

(,DD)^%DT C^%DTC EN^DDIOL ^DIR

Outpatient Pharmacy

EN^PSOHLSN1 $$REFIP^PSOUTLA1

Kernel

^%ZTLOAD

Package	Total	Caller Graph
Outpatient Pharmacy	24	PSO BACKFILL PRESCRIPTIONS PSOATRF PSOATRFC PSOCPDUP PSODRDU2 PSODRDUP PSOHLDS3 PSOHLNEW PSOHLSG3 PSOHLSN1 PSOORFI1 PSOP PSOP1 PSOPRF PSORDS PSOREF0 PSORXLAB PSORXPR PSORXRP2 PSORXRPT PSOSD0 PSOSDP PSOUTL PSOUTLA1

Package

Total

Caller Graph

Outpatient Pharmacy

PSO BACKFILL PRESCRIPTIONS  PSOATRF  PSOATRFC  PSOCPDUP  PSODRDU2  PSODRDUP  PSOHLDS3  PSOHLNEW
PSOHLSG3  PSOHLSN1  PSOORFI1  PSOP  PSOP1  PSOPRF  PSORDS  PSOREF0
PSORXLAB  PSORXPR  PSORXRP2  PSORXRPT  PSOSD0  PSOSDP  PSOUTL  PSOUTLA1

Entry Points

Name	Comments	DBIA/ICR reference
REFIP(RXI,RFIL,TYP)	;Check if refill is Not Released and In Process and ; pending Auto Release by an external dispense machine. ; Input: RXI = internal Prescription no. ; RFIL= refill number ; TYP ="R"-refill or "P"-partial ; Returns 1 = In Process (Not OK to delete) ; 0 = Not In Process (OK to delete)
EN2(PSOBINTR,PSOBLGTH)	;
NUMFILLS(PSIRXN)	;Return number of fills thus far, or 0 if doesn't apply ; function returns: if Active drug, then number of refills thus far ; else return 0 for does not apply ; Input Variables: PSIRXN = internal RX number (Optional)
DEACHK(PSIRXN,PSDEA,PSDAYS,PCLOZ,PSOCS,PSMAXRF)	;Apply DEA restrictions
START	;
WARN1	;partial del checks *259
EN3(PSOBINTR,PSOBLGTH)	;
PATCHR	;Begin task
PATCH	;Allow sites to backfill more than what was done at install
EN1	;Formats condensed, back door sig in BSIG array
PATCHQ

Name	Field # of Occurrence
^%DT	PATCH+10
DD^%DT	PATCH+4
C^%DTC	PATCH+4
^%ZTLOAD	PATCH+11
EN^DDIOL	WARN1+4, WARN1+8, WARN1+9, WARN1+10
^DIR	PATCH+9, WARN1+16
EN^PSOHLSN1	PATCHR+13, PATCHR+17
$$REFIP^PSOUTLA1	WARN1+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Your CPRS/Outpatient installation date is "_$G(PSOBACKS)_","_" which",!,"means we have already backfilled all active prescriptions and all",!,"prescriptions canceled or expired after "_$G(PSOBACKD)_"." Line Location: PATCH+5
Function Call: WRITE	Prompt: !!,"If you want to backfill orders that were canceled or expired prior to this",!,"date of "_$G(PSOBACKD)_", enter an earlier date and those orders",!,"will be backfilled to CPRS.",! Line Location: PATCH+6
Function Call: WRITE	Prompt: !!,"We cannot determine the date of the CPRS/Outpatient installation.",! Line Location: PATCH+7
Function Call: WRITE	Prompt: !,"If you choose to backfill more orders to CPRS by utilizing this option,",!,"we remind you that disk storage can be significantly affected, depending on",!,"how many orders are backfilled.",! Line Location: PATCH+8
Function Call: WRITE	Prompt: ! Line Location: PATCH+9
Function Call: WRITE	Prompt: ! Line Location: PATCH+10
Function Call: WRITE	Prompt: ! Line Location: PATCH+11
Function Call: WRITE	Prompt: ! Line Location: PATCH+11
Routine Call	DIR Line Location: PATCH+9 WARN1+16

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(51 - [#51]	EN3+12
^PS(52.51 - [#52.51]	REFIP+14, REFIP+15, REFIP+20
^PS(55 - [#55]	PATCHR+4
^PS(59 - [#59]	REFIP+18
^PS(59.7 - [#59.7]	PATCH+2, PATCH+3
^PSDRUG - [#50]	PATCHR+8
^PSRX - [#52]	EN2+3, EN3+6, PATCHR+5, PATCHR+6, PATCHR+7, PATCHR+8, PATCHR+9, PATCHR+10, PATCHR+11, PATCHR+12 , PATCHR+15*, NUMFILLS+7, WARN1+2, WARN1+3

Name	Line Occurrences
$$NUMFILLS	DEACHK+25, DEACHK+33, DEACHK+45
PATCHQ	PATCH+9, PATCH+10, PATCH+11
START	EN3+8, EN3+9

Name	Field # of Occurrence
^("SIG"	EN2+3, EN3+6
^(0	PATCHR+5
^(2	PATCHR+15
^(9	EN3+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	PATCH+10*
>> %DT("A"	PATCH+10*
>> %DT(0	PATCH+10*
BBSIG	EN2+2~, EN2+3, EN2+5, EN2+6, EN3+5~, EN3+6, EN3+7, EN3+8, START+1*, START+3 , START+4
BBWARN	EN3+5~, EN3+8, EN3+10, START+1
BLIM	EN2+2~, EN2+5, EN2+7, EN3+5~, START+3, START+5
BSIG	EN2+1!, EN3+5!
BSIG(	EN2+5, EN2+9, START+3, START+7
BSIG(1	EN2+10, START+8
BSIG(2	EN2+10!, START+8!
BVAR	EN2+2~, EN2+4, EN2+5, EN2+7, EN2+8, EN2+9, EN3+5~, START+2, START+3, START+5 , START+6, START+7
BVAR1	EN2+2~, EN2+4, EN2+5, EN2+6, EN2+8, EN3+5~, START+2, START+3, START+4, START+6
CNT	EN2+2~, EN2+5, EN2+6, EN3+5~, START+3, START+4
>> DA	WARN1+3, WARN1+7
>> DA(1	WARN1+2, WARN1+3, WARN1+7
DIR	PATCH+9!, WARN1+11!, WARN1+17!
DIR("?"	PATCH+9, WARN1+15
DIR("A"	PATCH+9, WARN1+12
DIR("B"	PATCH+9, WARN1+13
DIR(0	PATCH+9, WARN1+14
DT	PATCHR+3, PATCHR+15
>> DTOUT	PATCH+10
EXDATA	REFIP+11~, REFIP+15*, REFIP+16, REFIP+17
EXDIV	REFIP+11~, REFIP+17*, REFIP+18
FOUND	REFIP+11~, REFIP+12, REFIP+14, REFIP+19, REFIP+20
III	EN2+2~, EN2+4, EN2+5, EN2+9, EN3+5~, START+2, START+3, START+7
IP	REFIP+11~, REFIP+12, REFIP+20, REFIP+21
NNN	EN2+2~, EN2+5, EN3+5~, START+3
PCLOZ	DEACHK~, DEACHK+17*, DEACHK+20, DEACHK+21
PNFILLS	DEACHK+45~*, DEACHK+46
PSDAYS	DEACHK~, DEACHK+16, DEACHK+36, DEACHK+38, DEACHK+42
PSDEA	DEACHK~, DEACHK+16*, DEACHK+24, DEACHK+28, DEACHK+30
PSIEN	REFIP+11~, REFIP+12, REFIP+14, REFIP+15, REFIP+20
PSIRXN	DEACHK~, DEACHK+16*, DEACHK+25, DEACHK+33, DEACHK+45, NUMFILLS~, NUMFILLS+4, NUMFILLS+7
PSMAXRF	DEACHK~, DEACHK+17, DEACHK+20, DEACHK+21, DEACHK+25, DEACHK+33, DEACHK+38, DEACHK+42, DEACHK+46
PSOBACKA	PATCH+1~, PATCH+10, PATCHR+2, PATCHR+4
PSOBACKB	PATCH+1~, PATCH+4, PATCH+10, PATCHR+3, PATCHR+4
PSOBACKD	PATCH+1~, PATCH+4*, PATCH+5, PATCH+6, PATCH+7, PATCH+9
PSOBACKI	PATCH+1~, PATCH+2, PATCH+3, PATCH+4
PSOBACKL	PATCH+1~, PATCH+2*, PATCH+3
PSOBACKS	PATCH+1~, PATCH+4*, PATCH+5
PSOBINTR	EN2~, EN2+3, EN3~, EN3+6
PSOBLGTH	EN2~, EN2+5, EN3~, START+3
PSOCS	DEACHK~, DEACHK+17, DEACHK+29, DEACHK+30*, DEACHK+33, DEACHK+37
PSOL	WARN1+1~, WARN1+2*, WARN1+3
PSOLPD	PATCHR+1~, PATCHR+4*
PSOLPRX	PATCHR+1~, PATCHR+4*, PATCHR+5, PATCHR+6, PATCHR+7, PATCHR+8, PATCHR+9, PATCHR+10, PATCHR+11, PATCHR+12 , PATCHR+13, PATCHR+15, PATCHR+17
>> PSOLPSTA	PATCHR+12, PATCHR+14, PATCHR+15, PATCHR+16
>> PSOLPSTX	PATCHR+16*, PATCHR+17
>> PSOLPSTZ	PATCHR+16*, PATCHR+17
PSOPAL	PATCHR+1~, PATCHR+4*
PSR	WARN1+1~, WARN1+2*
QQ	DEACHK+27~, DEACHK+28*, DEACHK+30
RFIL	REFIP~, REFIP+16
RFN	NUMFILLS+5~, NUMFILLS+6, NUMFILLS+7
RFNC	NUMFILLS+5~, NUMFILLS+6, NUMFILLS+7, NUMFILLS+8
RXI	REFIP~, REFIP+14
SIG	EN3+5~, EN3+7, EN3+9, EN3+11*, START+1
TYP	REFIP~
X	EN3+5!, EN3+7*, EN3+9, EN3+10!, EN3+11, EN3+12, PATCH+4
>> X1	PATCH+4*
>> X2	PATCH+4*
Y	EN3+5~, EN3+12, PATCH+4, PATCH+9, PATCH+10, WARN1+7
Z0	EN3+5~, EN3+9*, EN3+12
Z1	EN3+5~, EN3+9, EN3+10, EN3+11, EN3+12
>> ZTDESC	PATCH+11*
ZTDTH	PATCH+11!
>> ZTIO	PATCH+11*
>> ZTQUEUED	PATCHR+18
>> ZTREQ	PATCHR+18*
>> ZTRTN	PATCH+11*
>> ZTSAVE("PSOBACKA"	PATCH+11*
>> ZTSAVE("PSOBACKB"	PATCH+11*

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOUTLA1

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 24

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: