Routine: PSOHLSN

Package	Total	Call Graph
Outpatient Pharmacy	3	EN^PSOHLSN (EN,NOO)^PSOHLSN1 USER^PSOORFI2
Kernel	2	($$DT,$$FMTHL7)^XLFDT MSG^XQOR
Registration	2	DEM^VADPT $$SITE^VASITE
VA Fileman	2	^DIK EN^DIQ1
Order Entry Results Reporting	1	EN^ORERR

Package	Total	Caller Graph
Outpatient Pharmacy	17	PSOARCF5 PSOARCS2 PSOAUTOC PSOCAN1 PSOCAN3 PSOCAN4 PSOHLDC PSOHLNE1 PSOHLNE2 PSOHLNEW PSOHLSN PSOHLSN1 PSOHLSNC PSONEW2 PSOORFI2 PSOPKIV1 PSORDS

Entry Points

Name	Comments	DBIA/ICR reference
PV1
CHKOLDRX	; when dc a pending renewal - if prior Rx is expired, set piece 19 to 1 so will update CPRS from 'renewed' to 'expired' in PSOHLSN1
RXE
SEGPARX	;
PID
SEND
ZRX	;
SEG
DELP	;Delete refill requests
INIT
REN	;Update previous Rx on Cancel/Discontinue
SEGXX	;
RERROR	;
ERROR	;Builds error message from PSOHLNEW, usually means we can't find order
SEGPAR	;Parse out fields for sending segments to OERR that can be >245
EN(PLACER,STAT,COMM,PSNOO)	;
ORC
DCP	;

External References

Name	Field # of Occurrence
^DIK	DELP+5
EN^DIQ1	INIT
EN^ORERR	ERROR+1
EN^PSOHLSN	DCP+3
EN^PSOHLSN1	REN+7
NOO^PSOHLSN1	ORC+21
USER^PSOORFI2	ORC+13, ORC+15
DEM^VADPT	PID+2
$$SITE^VASITE	INIT
$$DT^XLFDT	RXE+4
$$FMTHL7^XLFDT	RXE+2, RXE+3
MSG^XQOR	SEND

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?5,"PROBLEM WITH ENTRY IN PENDING FILE!",! Line Location: EN+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PS(52.41 - [#52.41]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.41 - [#52.41]	EN+2, EN+8!, EN+9, PV1+3, ORC+13, ORC+15, ORC+16, RXE+2, ZRX+4, DCP+1!* , DCP+3, REN+3, REN+4, DELP+4, DELP+5, CHKOLDRX+2
^PSRX - [#52]	REN+4, REN+5, DELP+3, CHKOLDRX+3*
^UTILITY("DIQ1"	INIT!
^VA(200 - [#200]	ZRX+7

Label References

Name	Line Occurrences
CHKOLDRX	EN+7
INIT	EN+11, ERROR+3, RERROR+3
ORC	EN+12, EN+13
PID	EN+12, EN+13
PV1	EN+12, EN+13
REN	EN+13
RXE	EN+13
SEG	PID+5, PV1+4, ORC+18, RXE+6, ZRX+8
SEGXX	SEGPARX+6
SEND	EN+12, EN+13, ERROR+9, RERROR+9
ZRX	EN+13

Naked Globals

Name	Field # of Occurrence
^("INI"	EN+8
^(0	EN+8, PV1+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CC	EN+1~, SEGPAR+5, SEGPAR+6, SEGPARX+6, SEGPARX+7, SEGXX+1*, SEGXX+2
COMM	EN~, ORC+6, ORC+7, ORC+19, ORC+20, ORC+22*, ORC+23, ORC+24, ERROR+1, ERROR+8
COUNT	EN+1~, EN+3, EN+12, EN+13, ORC+23, ORC+24, SEG+1, SEGPAR+2, SEGPAR+10, SEGPARX+2 , SEGPARX+11
CT	EN+1~, SEGPAR+2, SEGPAR+5, SEGPAR+9, SEGPARX+2, SEGPARX+6, SEGPARX+10, SEGXX+1*
DA	EN+1~, INIT!, DELP+2~, DELP+4, DELP+5
DFN	EN+1~, PID+2*, PID+3, DCP+1
DIC	INIT*!
DIK	DELP+5*!
DIQ	INIT!
DIQ(0	INIT*
DR	INIT*!
DT	RXE+3, RXE+4*
EDUZ	EN+1~, ORC+13*
>> EER	ERROR+7, RERROR+1, RERROR+6*
FIELD	EN+1~
FIELD(	SEG, SEGPAR+3, SEGPAR+4, SEGPAR+5, SEGPARX+3, SEGPARX+5, SEGPARX+6, SEGXX+1
FIELD(0	PID+1, PV1+1, ORC+1, RXE+1, ZRX+6*
FIELD(1	ORC+2, RXE+5, SEGPARX+4*
FIELD(10	ORC+13*
FIELD(12	ORC+14, ORC+15, ORC+16
FIELD(15	ORC+17*
FIELD(2	PV1+2, ORC+3
FIELD(3	PID+3, PV1+3, ORC+4*
FIELD(5	PID+4, ORC+5, ORC+6, ORC+7, ORC+8, ZRX+7
GG	EN+1~, SEGPAR+10, SEGPARX+11
J	EN+1~, SEG*
JJ	EN+1~
LIMIT	EN+1~, PID, PV1, ORC, RXE, ZRX+5*, SEG, SEGPAR+3, SEGPAR+4, SEGPAR+5 , SEGPARX+3, SEGPARX+5, SEGPARX+6
MM	EN+1~, SEGPAR+3, SEGPAR+5, SEGPARX+3, SEGPARX+4, SEGPARX+6*, SEGXX+1
MMZ	SEGXX+1~*
MSG	EN+1~, SEND, ERROR+1, ERROR+2~, RERROR+2~
MSG(	ORC+23, ORC+24, SEG+1, SEGPAR+10, RERROR+1, SEGPARX+11*
MSG(1	INIT+1*
MSG(2	ERROR+4, RERROR+4
MSG(3	ERROR+5, RERROR+4
MSG(4	ERROR+6, ERROR+7, ERROR+8, RERROR+5, RERROR+6, RERROR+7, RERROR+8*
NAME	EN+1~, PID+2*, PID+4
NULLFLDS	EN+1~, EN+10*, PID, PV1, ORC, RXE, ZRX+5
>> NWFLAG	RERROR+7
PENDDA	DELP+2~, DELP+3*, DELP+4
PLACER	EN~, EN+2, ORC+3, ERROR+6, RERROR+5
>> PLACERXX	ORC+3, ERROR+6, RERROR+5
PLIM	EN+1~, SEGPAR+7, SEGPARX+8, SEGXX+3*
>> PREV	DCP+1, DCP+3
>> PSERRORC	ERROR+6, ERROR+7, RERROR+1*, RERROR+5, RERROR+6
>> PSERRPID	ERROR+4, RERROR+1*, RERROR+4
>> PSERRPV1	ERROR+5, RERROR+1*, RERROR+4
PSIEN	EN+1~, EN+2*, EN+5, EN+8, EN+9, PV1+3, ORC+4, ORC+13, ORC+15, ORC+16 , RXE+2, ZRX+4, CHKOLDRX+2
PSNOO	EN~, ORC+19, ORC+20, ORC+21, ORC+23, ORC+24
PSNOOTX	EN+1~, ORC+23, ORC+24
>> PSOCANRC	ORC+14, ZRX+3, ZRX+7
>> PSOCANRN	ORC+14
>> PSOCVI	RERROR+8
>> PSODEATH	DELP+1
PSODFN	EN+1~
PSOFIELD	SEGPAR+1!, SEGPAR+11!, SEGPARX+1~
PSOFIELD(	SEGPAR+5, SEGPAR+9, SEGPAR+10, SEGPARX+6, SEGPARX+10, SEGPARX+11, SEGXX+1*
PSOFIELD(1	SEGPAR+10, SEGPARX+11
PSOHINST	EN+1~, INIT*, INIT+1, ERROR+2~
PSOHSTAT	EN+1~, EN+9*, REN+2
>> PSOHUIOR	ZRX+3
PSOMSORR	INIT+1, ERROR+3, ERROR+9!, RERROR+3, RERROR+9!, DCP+2~, REN+1~
PSOOLD	CHKOLDRX+1~, CHKOLDRX+2*, CHKOLDRX+3
PSOPSIEN	EN+1~, EN+2*, REN+3, REN+4
PSOPSTOP	EN+1~, RXE+2, RXE+3, RXE+5
PSOPSTRT	EN+1~, ORC+17, RXE+2*, RXE+5
PSORPV	ORC+8, DCP+2*, DCP+4!
>> PSOXRP	RERROR+7
>> PSRXIEN	DELP+3
PSZERO	EN+1~, EN+9*, PID+2
PVAR	EN+1~, SEGPAR+2, SEGPAR+5, SEGPAR+7, SEGPAR+8, SEGPAR+9, SEGPARX+2, SEGPARX+6, SEGPARX+8, SEGPARX+9 , SEGPARX+10, SEGXX+1, SEGXX+3, SEGXX+4
PVAR1	EN+1~, SEGPAR+2, SEGPAR+6, SEGPAR+8, SEGPARX+2, SEGPARX+7, SEGPARX+9, SEGXX+2*, SEGXX+4
RENOC	REN+1~, REN+6*, REN+7
RENOCP	REN+1~, REN+6*, REN+7
RENSTA	REN+1~, REN+5*, REN+6
RPREV	REN+1~, REN+4*, REN+5, REN+7
SEG1	EN+1~, SEGPAR+5, SEGPAR+6, SEGPARX+6, SEGPARX+7, SEGXX+1*, SEGXX+2
SEGMENT	EN+1~, SEG*, SEG+1
STAT	EN~, EN+6, EN+9, EN+12, ORC+2, ORC+5, ORC+7, ORC+8, ORC+14, RXE+3 , ZRX+2, ERROR+6
SUBCOUNT	EN+1~, SEGPAR+10, SEGPARX+11
USER1	ORC+13!, ORC+16!
VADM	PID+2!
VADM(1	PID+2
X	RXE+2, RXE+3, RXE+5!
>> XOFLAGZ	RERROR+5, RERROR+7

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOHLSN

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 17

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: