Routine: PSOUTLA

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA Fileman	5	NOW^%DTC EN^DDIOL ^DIC ^DIE ^DIR
Outpatient Pharmacy	1	(KCMPX,SCMPX)^PSOCMOP

Package	Total	Caller Graph
Outpatient Pharmacy	33	PARTIAL DATE PSO SETUP CLINIC GROUPS PSOCPDUP PSOCST7 PSODRDU1 PSODRDU2 PSODRDUP PSOHELP PSOHELP1 PSOHLDS3 PSOHLNEW PSOHLSG3 PSOHLSN1 PSOP PSOP1 PSOPMP1 PSOPRF PSOQMCAL PSORDS PSOREF0 PSORXED PSORXLAB PSORXPR PSORXRP1 PSORXRP2 PSORXRPT PSOSD0 PSOSDP PSOXZA1 PSOXZA5 PSOXZA8 ^PS(59 ^PSRX
IHS Changes To Pharmacy	1	APSPRXV

Package

Total

Caller Graph

Outpatient Pharmacy

PARTIAL DATE  PSO SETUP CLINIC GROUPS  PSOCPDUP  PSOCST7  PSODRDU1  PSODRDU2  PSODRDUP  PSOHELP
PSOHELP1  PSOHLDS3  PSOHLNEW  PSOHLSG3  PSOHLSN1  PSOP  PSOP1  PSOPMP1
PSOPRF  PSOQMCAL  PSORDS  PSOREF0  PSORXED  PSORXLAB  PSORXPR  PSORXRP1
PSORXRP2  PSORXRPT  PSOSD0  PSOSDP  PSOXZA1  PSOXZA5  PSOXZA8  ^PS(59
^PSRX

IHS Changes To Pharmacy

APSPRXV

Entry Points

Name	Field # of Occurrence
NOW^%DTC	PARKILL+8
EN^DDIOL	EDSTAT, PARKILL+2, PARKILL+4
^DIC	SETUP+1
^DIE	SETUP+1
^DIR	CHK1+3, PARKILL+4
KCMPX^PSOCMOP	SUSFDK+6
SCMPX^PSOCMOP	SUSFDS+6

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
Routine Call	DIE Line Location: SETUP+1
Routine Call	DIC Line Location: SETUP+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
^PSRX - [#52]	CHK+1, CHK+2, CHK1, CHK1+2, DAYS, DAYS+1, STATDAY, PARKILL, PARKILL+8*, FSIG+8 , FSIG+9, FSIG+14, SUSFDS+2, SUSFDK+2

Name	Line Occurrences
CLOZPAT	EDNEW+1
EDNEW	DAYS
EDSTAT	CLOZPAT+3
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

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
>> ACOM	PARKILL+5, PARKILL+7, PARKILL+8
>> CLOZPAT	EDNEW+1
CNT	PARKILL, PARKILL+8!, FSIG+10~, FSTART+1*, FSTART+2, HLNEW+1~, HLNEWX+1~
>> CS	DAYS, EDNEW, EDNEW+2
DA	DAYS, DAYS+1, STATDAY, SETUP+1*, SETUPX!, SUSFDS+2, SUSFDS+3, SUSFDK+2, SUSFDK+3
DA(1	PARKILL, PARKILL+8
>> DEA	EDNEW*
DIC	SETUP+1*, SETUPX!
DIC("A"	SETUP+1*
DIC(0	SETUP+1*
DIE	SETUP+1*, SETUPX!
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!
DR	SETUP+1*, SETUPX!
DTOUT	CHK1+1!, CHK1+3, CHK1+4!, PARKILL+8!
DUOUT	CHK1+1!, CHK1+3, CHK1+4!, PARKILL+8!
DUZ	PARKILL+8
ED	DAYS*!
FFF	FSIG+10~, FSIG+14, FSTART+1, FSTART+2, HLNEW+1~, HLNEWX+1~
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+1, EDNEW+1, EDNEW+4, EDNEW+9*, CLOZPAT, CLOZPAT+1
NNN	FSIG+10~, FSIG+11, FSIG+14, FSTART+1*, HLNEW+1~, HLNEWX+1~
>> PSDAYS	DAYS, EDNEW+1, EDNEW+4, EDNEW+6, EDNEW+9, CLOZPAT+1, STATDAY
>> PSDUP(	CHK+1, CHK+2*
>> PSDY1	EDNEW+4, EDNEW+9
PSFMAX	DAYS!, EDNEW!, STATDAY!
PSMAX	DAYS+1!, EDNEW!, STATDAY!
>> PSODEA	DAYS*, EDNEW
>> 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
>> PSOX	EDNEW+3, EDNEW+4, EDNEW+6*, EDNEW+9
>> PSOX1	EDNEW+3, EDNEW+6
>> PSPOP	CHK, CHK+1, CHK1, CHK1+3
>> PSPR	CHK, CHK+1, CHK+2, CHK+3
>> PSPRXN	CHK+3*, CHK1, CHK1+2
>> PSRF	CLOZPAT, CLOZPAT+1, STATDAY*, EDSTAT
PSRMAX	STATDAY!
PSTMAX	CLOZPAT+3!, STATDAY!
>> PTDY	STATDAY*
>> PTRF	EDNEW+3, EDNEW+6, STATDAY*, EDSTAT
>> PTST	STATDAY*, EDSTAT
>> PY(	CHK, CHK+1, CHK+2, CHK+3
>> RESK	PARKILL+1, PARKILL+7
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
>> 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
Y	CHK1+3, ZIPOUT+4*, PARKILL+5, SETUP+1, SETUPX!
>> Z0	DRUGW+1*
>> Z1	DRUGW+1*

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOUTLA

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 34

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
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)
CLOZPAT
HLNEW	;formats provider instructions in FSIG for front door order
FSIG(PSOFILE,PSOINTR,PSOLENTH)	;Format front door sig
FQUIT
YN	;YES/NO PROMPT
FSTART
EDNEW
CHK
DRUGW	;
DAYS
EDSTAT
CHK1
SUSFDS	;
SETUPX
HLNEWX	;
PARKILL
STATDAY
SUSFDK	;
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
SETUP	;enter/edit clinic sort groups