Routine: PSORENW

Package	Total	Call Graph
Outpatient Pharmacy	8	MW^PSOCMOPA FILLDT^PSODIR2 EN^PSOHLSN1 NOORE^PSONEW LOCK^PSOORCPY $$LMREJ^PSOREJU1 (,CDOSE)^PSORENW0 KLIB^PSORENW1
IHS Changes To Pharmacy	2	REMMSG^APSPFUNC $$SCREEN^APSPMULT
Kernel	1	$$FMADD^XLFDT
Order Entry Results Reporting	1	(LK,ULK)^ORX2
Pharmacy Data Management	1	($$L,PSOL,PSOUL,UL)^PSSLOCK
Registration	1	FULL^VALM1
Text Integration Utility	1	MAIN^TIUEDIT
VA Fileman	1	^DIR

Package

Total

Call Graph

Outpatient Pharmacy

MW^PSOCMOPA FILLDT^PSODIR2 EN^PSOHLSN1 NOORE^PSONEW LOCK^PSOORCPY $$LMREJ^PSOREJU1 (,CDOSE)^PSORENW0 KLIB^PSORENW1

IHS Changes To Pharmacy

REMMSG^APSPFUNC $$SCREEN^APSPMULT

Kernel

$$FMADD^XLFDT

Order Entry Results Reporting

(LK,ULK)^ORX2

Pharmacy Data Management

($$L,PSOL,PSOUL,UL)^PSSLOCK

Registration

FULL^VALM1

Text Integration Utility

MAIN^TIUEDIT

VA Fileman

^DIR

Package	Total	Caller Graph
Outpatient Pharmacy	2	PSOORNE4 PSORENW0
Order Entry Results Reporting	1	ORCACT01

Package

Total

Caller Graph

Outpatient Pharmacy

PSOORNE4 PSORENW0

Order Entry Results Reporting

ORCACT01

Entry Points

Name	Comments	DBIA/ICR reference
INST1	;Set Pharmacy Instructions array
INST2	;Set Instructions and Comments
OERR	;entry for renew backdoor
EOJ	;
ASKX
RENEW(PLACER,PSOCPDRG,DAYS)	;passes flag to CPRS for front door renews	ICR #2398 Status: Active Usage: Private
ASK	;
ULPAT

External References

Name	Field # of Occurrence
REMMSG^APSPFUNC	OERR+17
$$SCREEN^APSPMULT	OERR+14, RENEW+7
^DIR	OERR+7
LK^ORX2	OERR+10
ULK^ORX2	ULPAT
MW^PSOCMOPA	ASK+4
FILLDT^PSODIR2	ASK+1
EN^PSOHLSN1	EOJ+3, EOJ+4
NOORE^PSONEW	ASK+7
LOCK^PSOORCPY	OERR+9
$$LMREJ^PSOREJU1	OERR+1
^PSORENW0	OERR+20
CDOSE^PSORENW0	RENEW+19
KLIB^PSORENW1	OERR+20, OERR+21
$$L^PSSLOCK	OERR+9
PSOL^PSSLOCK	OERR+12
PSOUL^PSSLOCK	OERR+20
UL^PSSLOCK	OERR+10, ULPAT
MAIN^TIUEDIT	EOJ+6
FULL^VALM1	OERR+20
$$FMADD^XLFDT	RENEW+16, RENEW+17

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.7 - [#50.7]	RENEW+9
^PS(52.41 - [#52.41]	RENEW+28
^PS(52.5 - [#52.5]	RENEW+11
^PS(53 - [#53]	RENEW+24
^PSDRUG - [#50]	RENEW+6, RENEW+8, RENEW+21, RENEW+22
^PSRX - [#52]	EOJ+4, OERR+4, OERR+14, OERR+16, OERR+19, RENEW+5, RENEW+6, RENEW+8, RENEW+16, RENEW+17 , RENEW+27, INST1+2, INST1+3, INST2+4, INST2+5, INST2+6, INST2+7
^TMP("PSORXN"	EOJ+2, EOJ+3, EOJ+5!

Name	Line Occurrences
ASK	OERR+20
ASKX	ASK+2, ASK+5
EOJ	OERR+20, OERR+21
ULPAT	OERR+12, OERR+14, OERR+20, OERR+21

Name	Field # of Occurrence
^("I"	RENEW+22
^("STA"	RENEW+6, RENEW+17
^(0	OERR+19, RENEW+24
^(3	RENEW+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APSPDRG	OERR+2~, OERR+16*, OERR+17
COPY	EOJ+1!, OERR+11!
DAYS	RENEW~, RENEW+15*, RENEW+16, RENEW+17
DIR	OERR+7!
DIR("?"	OERR+7*
DIR("A"	OERR+7*
DIR(0	OERR+7*
DRET	EOJ+1!
DT	RENEW+10, RENEW+16, RENEW+17, RENEW+22
>> ORN	OERR+1, OERR+4, OERR+12, OERR+14, OERR+16, OERR+18, OERR+20
PHI	INST1+2, INST2+4!
PHI(	INST1+3, INST2+5
PLACER	RENEW~, RENEW+4, RENEW+5
PRC	INST2+6!*
PRC(	INST2+7*
PSOBARCD	OERR+11!
PSOBCKDR	EOJ+1!, OERR+18*
PSOCOU	EOJ+1!
PSOCOUU	EOJ+1!
PSOCPDRG	RENEW~, RENEW+18
>> PSODFN	EOJ+6, OERR+9, OERR+10, ULPAT
PSODIR	EOJ+1!
PSODRG	RENEW+3~, RENEW+6*, RENEW+7, RENEW+8, RENEW+18, RENEW+21, RENEW+22, RENEW+29!
PSODRUG	EOJ+1!
PSODRUG0	RENEW+3~, RENEW+6*, RENEW+23, RENEW+29!
PSOFDMX	EOJ+1!, OERR+11!
>> PSOFDR	INST2+2
>> PSOFROM	OERR+18*
PSOID	EOJ+1!, OERR+11!
PSOIFLAG	RENEW+3~, RENEW+8*, RENEW+30
PSOINA	RENEW+3~, RENEW+9*, RENEW+10
PSOLC	RENEW+3~, RENEW+25*, RENEW+29!
PSOLIST	EOJ+1!
>> PSOLST(	OERR+1, OERR+4, OERR+12, OERR+14, OERR+16, OERR+18, OERR+20
PSOMSG	EOJ+1!, OERR+12!, ULPAT!
PSONEW	OERR+21!
PSONEW("# OF	REFILLS" , OERR+19*
PSONEW("DAYS	SUPPLY" , OERR+19*
PSONEWOI	RENEW+3~, RENEW+8*, RENEW+9, RENEW+30
PSONOOR	EOJ+1!
PSONOSIG	RENEW+19~, RENEW+20
PSONOTE	EOJ+6, EOJ+7!
PSOOCPRX	RENEW+19~*
PSOOLDOI	RENEW+3~, RENEW+8*
PSOOLPD	RENEW+19~
PSOOLPF	RENEW+19~
PSOOPT	OERR+18*, OERR+21!
PSOPHL	INST2+3~, INST2+4, INST2+5
PSOPLCK	OERR+9*!, OERR+10!
PSOPRL	INST2+3~, INST2+6, INST2+7
PSORENW	ASK+1, ASK+4, ASK+7, EOJ+1!
PSORENW("DFLG"	ASK+1, ASK+2, ASK+5, ASK+7, ASK+8, OERR+18
PSORENW("FILL	DATE" , ASK+1!, ASK+2, ASK+3, ASK+8, OERR+11!
PSORENW("MAIL/WINDOW"	ASK+6
PSORENW("OIRXN"	OERR+18*, OERR+19, INST2+1, INST2+4, INST2+5, INST2+6, INST2+7
PSORENW("QFLG"	ASK+2, ASK+5, ASK+8, OERR+18, OERR+20
PSORENW("QS"	OERR+11!
PSORFRM	RENEW+3~, RENEW+29!
PSORNW	EOJ+1!
PSORNW("FILL	DATE" , ASK+3*
PSORNW("MAIL/WINDOW"	ASK+6*
>> PSORX("BAR CO	DE" , EOJ+1!
>> PSORX("DFLG"	OERR+18*, OERR+21!
>> PSORX("FILL D	ATE" , EOJ+1!, OERR+11!
>> PSORX("MAIL/WINDOW"	ASK+6*
>> PSORX("QS"	OERR+11!
PSOSURX	RENEW+3~, RENEW+11*
PSOTZ	INST1+1~, INST1+2, INST1+3
RTE	EOJ+1!
>> RX0	RENEW+6*, RENEW+24, RENEW+25
RXN	EOJ+2, EOJ+3, EOJ+4, EOJ+5!, RENEW+3~, RENEW+5, RENEW+6, RENEW+8, RENEW+11, RENEW+16 , RENEW+17, RENEW+19, RENEW+27, RENEW+28, RENEW+29!, INST1+2, INST1+3
RXN1	EOJ+3*, EOJ+4, EOJ+5!
ST	RENEW+3~, RENEW+6*, RENEW+11, RENEW+26, RENEW+29!
>> TIUDA	EOJ+6
>> VALMBCK	ASK+1, ASK+7, OERR+1, OERR+9, OERR+10, OERR+12, OERR+14
>> VALMSG	ASK+1, ASK+7, OERR+1, OERR+9, OERR+10, OERR+12, OERR+14
VERB	EOJ+1!
>> X	OERR+10, ULPAT, RENEW+16, RENEW+17
>> Y	OERR+10

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSORENW

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: