Routine: PSOUTLA

Package	Total	Call Graph
VA FileMan	6	^%DT NOW^%DTC EN^DDIOL ^DIC ^DIE ^DIR
Outpatient Pharmacy	2	(KCMPX,SCMPX)^PSOCMOP $$MAXNUMRF^PSOUTIL
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
Outpatient Pharmacy	39	PARTIAL DATE PSO AUTO DISPENSING DEVICE PSO SETUP CLINIC GROUPS PSOCPDUP PSOCST7 PSODDPR1 PSODDPR8 PSODDPRE PSODRDU1 PSODRDU2 PSODRDUP PSOHELP PSOHELP1 PSOHLDS3 PSOHLNEW PSOHLSG3 PSOHLSN1 PSOP PSOP1 PSOPMP1 PSOPRF PSOQMCAL PSORDS PSOREF0 PSORREF0 PSORXED PSORXLAB PSORXPR PSORXRP1 PSORXRP2 PSORXRPT PSOSD0 PSOSDP PSOXZA1 PSOXZA10 PSOXZA7 ^PS(59 ^PSRX REFILL

Entry Points

Name	Comments	DBIA/ICR reference
CHK
CHK1
ZIPIN	; input transform for ZIP field in file #59 internal format (no '-'s) ; Input: X as user entered value ; Output: X as internal value of user input OR ; undefined if input from user was invalid
ZIPOUT	; output transform for ZIP - prints either ZIP or ZIP+4 (in 12345-1234) ; format. ; Input: Y internal value ; Output: Y external (12345 or 12345-1234)
YN	;YES/NO PROMPT
DAYS	;
EDNEW	;
STATDAY
EDSTAT
PARKILL
SETUP	;enter/edit clinic sort groups
SETUPX
FSIG(PSOFILE,PSOINTR,PSOLENTH)	;Format front door sig
FSTART
FQUIT
DRUGW	;
HLNEW	;formats provider instructions in FSIG for front door order
HLNEWX	;
SUSFDS	;
SUSFDK	;
ADD	;enter/edit automated devices - OPAI
ADDX
FLDTINTR(FILLTYPE)	; Input Transform for FILL DATE, REFILL DATE and PARTIAL DATE fields in the PRESCRIPTION file (#52)
FLDTHELP(FILLTYPE)	; Executable Help for FILL DATE, REFILL DATE and PARTIAL DATE fields in the PRESCRIPTION file (#52)

External References

Name	Field # of Occurrence
^%DT	FLDTINTR+6
NOW^%DTC	PARKILL+8
EN^DDIOL	EDSTAT, PARKILL+2, PARKILL+4, FLDTINTR+6, FLDTINTR+9, FLDTINTR+12, FLDTHELP+6, FLDTHELP+8
^DIC	SETUP+1, ADD+1
^DIE	SETUP+1, ADD+1
^DIR	CHK1+3, PARKILL+4
KCMPX^PSOCMOP	SUSFDK+6
SCMPX^PSOCMOP	SUSFDS+6
$$MAXNUMRF^PSOUTIL	EDNEW+3
$$FMTE^XLFDT	FLDTINTR+9, FLDTINTR+12, FLDTHELP+6, FLDTHELP+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?10,$C(7)," # ",PSPR," is not a valid choice." Line Location: CHK+0
Function Call: WRITE	Prompt: !?10,$C(7),"RX# ",$P(^PSRX(+$P(PY(PSPR),"^"),0),"^")," is a duplicate choice." Line Location: CHK+1
Function Call: WRITE	Prompt: !!,$C(7),"RX# "_$P(^PSRX(PSPRXN,0),"^")_" is not a valid choice. (Different Division)",! Line Location: CHK1+0
Function Call: WRITE	Prompt: ! Line Location: CHK1+3
Function Call: WRITE	Prompt: !?5,"'Y' FOR YES",!?5,"'N' FOR NO",! Line Location: YN+1
Function Call: WRITE	Prompt: ! Line Location: SETUP+1
Function Call: WRITE	Prompt: ?35,"NO SUCH WARNING LABEL" Line Location: DRUGW+1
Function Call: WRITE	Prompt: ! Line Location: ADD+1
Routine Call	DIC Line Location: SETUP+1 ADD+1
Routine Call	DIE Line Location: SETUP+1 ADD+1
Routine Call	DIR Line Location: CHK1+3 PARKILL+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.41 - [#52.41]	FSIG+7, FSIG+11
^PS(52.5 - [#52.5]	SUSFDS+3, SUSFDS+4, SUSFDS+5, SUSFDS+6, SUSFDS+7*, SUSFDK+3, SUSFDK+4, SUSFDK+5!, SUSFDK+6!, SUSFDK+7!
^PS(53 - [#53]	STATDAY
^PS(54 - [#54]	DRUGW+1
^PSDRUG - [#50]	DAYS+1
^PSRX - [#52]	CHK+1, CHK+2, CHK1, CHK1+2, DAYS+1, DAYS+2, EDNEW+3, STATDAY, PARKILL, PARKILL+8* , FSIG+8, FSIG+9, FSIG+14, SUSFDS+2, SUSFDK+2, FLDTINTR+7, FLDTINTR+8, FLDTINTR+9, FLDTINTR+10, FLDTINTR+11 , FLDTINTR+12, FLDTHELP+5, FLDTHELP+6, FLDTHELP+7, FLDTHELP+8

Label References

Name	Line Occurrences
ADD	ADD+1
ADDX	ADD+1
EDNEW	DAYS+2
EDSTAT	EDNEW+7
FQUIT	FSIG+5, FSIG+6, FSIG+7, FSIG+8, FSIG+9, FSIG+12, FSIG+15
FSTART	FSIG+12, HLNEW+3, HLNEWX+3
PARKILL	PARKILL+1
SETUP	SETUP+1
SETUPX	SETUP+1

Naked Globals

Name	Field # of Occurrence
^(	FSIG+11, FSIG+14
^(0	STATDAY, FSIG+11, FSIG+14, DRUGW+1, SUSFDS+5, SUSFDK+5
^(2	CHK+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ZIPIN+4~*, PARKILL+8
%DT	FLDTINTR+3~, FLDTINTR+6*
>> ACOM	PARKILL+5, PARKILL+7, PARKILL+8
>> CLOZPAT	EDNEW+3
CNT	PARKILL, PARKILL+8!, FSIG+10~, FSTART+1*, FSTART+2, HLNEW+1~, HLNEWX+1~
>> CS	DAYS+1*
DA	DAYS+1, DAYS+2, EDNEW+3, STATDAY, SETUP+1, SETUPX!, SUSFDS+2, SUSFDS+3, SUSFDK+2, SUSFDK+3 , ADD+1, ADDX!, FLDTINTR+5, FLDTHELP+4
DA(1	PARKILL, PARKILL+8, FLDTINTR+5, FLDTHELP+4
DIC	SETUP+1, SETUPX!, ADD+1, ADDX!
DIC("A"	SETUP+1, ADD+1
DIC(0	SETUP+1, ADD+1
DIE	SETUP+1, SETUPX!, ADD+1, ADDX!
DIR	CHK1+1!, CHK1+4!, PARKILL+2!, PARKILL+8!
DIR("?"	CHK1+2, PARKILL+2, PARKILL+3*
DIR("A"	CHK1+2, PARKILL+2
DIR("B"	CHK1+3, PARKILL+3
DIR(0	CHK1+2, PARKILL+2
>> DIRUT	PARKILL+1, PARKILL+4, PARKILL+5
DLAYGO	SETUP+1, SETUPX!, ADD+1
DR	SETUP+1, SETUPX!, ADD+1, ADDX!
DTOUT	CHK1+1!, CHK1+3, CHK1+4!, PARKILL+8!
DUOUT	CHK1+1!, CHK1+3, CHK1+4!, PARKILL+8!
DUZ	PARKILL+8
ED	DAYS+1*, DAYS+2!
FFF	FSIG+10~, FSIG+14, FSTART+1, FSTART+2, HLNEW+1~, HLNEWX+1~
FILLTYPE	FLDTINTR~, FLDTINTR+5, FLDTINTR+9, FLDTINTR+12, FLDTHELP~, FLDTHELP+4, FLDTHELP+6, FLDTHELP+8
FLIM	FSIG+10~, FSTART+1, FSTART+3*, HLNEW+1~, HLNEWX+1~
FSIG	FSIG+5!, HLNEW+1!, HLNEWX+1!
FSIG(	FSTART+1, FSTART+5
FSIG(1	FSTART+6*
FSIG(2	FSTART+6!
FVAR	FSIG+10~, FSTART, FSTART+1, FSTART+3, FSTART+4*, FSTART+5, HLNEW+1~, HLNEWX+1~
FVAR1	FSIG+10~, FSTART, FSTART+1, FSTART+2, FSTART+4, HLNEW+1~, HLNEWX+1~
HSIG	FSIG+10~, HLNEW+1~, HLNEWX+1~
HSIG(	FSIG+11, FSIG+14, FSTART+1, FSTART+2, HLNEW+2, HLNEWX+2
HSIG(0	FSIG+12, FSIG+15
II	FSIG+10~, FSTART, FSTART+1, FSTART+5, HLNEW+1~, HLNEWX+1~
>> LLL	HLNEW+2, HLNEWX+2
LLP	HLNEW+1~, HLNEW+2, HLNEWX+1~, HLNEWX+2
>> MAX	DAYS+2
NNN	FSIG+10~, FSIG+11, FSIG+14, FSTART+1*, HLNEW+1~, HLNEWX+1~
>> PSDAYS	DAYS+1, EDNEW+3, EDNEW+6, STATDAY
>> PSDUP(	CHK+1, CHK+2*
PSFMAX	DAYS+1!, DAYS+2!, EDNEW+1!, STATDAY!
PSMAX	DAYS+2!, EDNEW+1!, EDNEW+3*, EDNEW+5, EDNEW+6, STATDAY!
>> PSODEA	DAYS+1*
>> PSODIV	CHK+2
PSOFILE	FSIG~, FSIG+5, FSIG+6, FSIG+7, FSIG+8, FSIG+9, FSIG+11, FSIG+12
PSOINTR	FSIG~, FSIG+5, FSIG+7, FSIG+8, FSIG+9, FSIG+11, FSIG+14
PSOLENTH	FSIG~, FSIG+5, FSTART+1, HLNEW+1~, HLNEW+2, HLNEWX+1~, HLNEWX+2
>> PSOPRZ	PARKILL+6*
>> PSOSITE	CHK+2
>> PSOSYS	CHK1, CHK1+1
>> PSPOP	CHK, CHK+1, CHK1, CHK1+3
>> PSPR	CHK, CHK+1, CHK+2, CHK+3
>> PSPRXN	CHK+3*, CHK1, CHK1+2
>> PSRF	EDNEW+5, EDNEW+6, STATDAY*, EDSTAT
PSRMAX	STATDAY!
PSTMAX	EDNEW+7!, STATDAY!
>> PTDY	STATDAY*
>> PTRF	STATDAY*, EDSTAT
>> PTST	STATDAY*, EDSTAT
>> PY(	CHK, CHK+1, CHK+2, CHK+3
>> RESK	PARKILL+1, PARKILL+7
RXIEN	FLDTINTR+3~, FLDTINTR+5, FLDTINTR+7, FLDTINTR+8, FLDTINTR+9, FLDTINTR+10, FLDTINTR+11, FLDTINTR+12, FLDTHELP+3~, FLDTHELP+4 , FLDTHELP+5, FLDTHELP+6, FLDTHELP+7, FLDTHELP+8
SUB	PARKILL*, PARKILL+8!
SUSIEN	SUSFDS+1~, SUSFDS+3, SUSFDS+4, SUSFDS+5, SUSFDS+6, SUSFDS+7, SUSFDK+1~, SUSFDK+3, SUSFDK+4, SUSFDK+5 , SUSFDK+6, SUSFDK+7
U	FLDTINTR+8, FLDTINTR+9, FLDTINTR+11, FLDTINTR+12, FLDTHELP+6, FLDTHELP+8
>> WPARRAY(6	HLNEWX+2
>> WPARRAY(7	HLNEW+2
X	ZIPIN+4, ZIPIN+5!, STATDAY, SETUP+1, SETUPX!, DRUGW+1!, SUSFDS+5, SUSFDS+6, SUSFDS+7, SUSFDK+5 , SUSFDK+6, SUSFDK+7, ADD+1, ADDX!, FLDTINTR+4, FLDTINTR+6!, FLDTINTR+8!, FLDTINTR+11!
Y	CHK1+3, ZIPOUT+4*, PARKILL+5, SETUP+1, SETUPX!, ADD+1, ADDX!, FLDTINTR+3~, FLDTINTR+6
>> Z0	DRUGW+1*
>> Z1	DRUGW+1*

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOUTLA

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 39

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: