Routine: PSOHLSN

Information

PSOHLSN ;BIR/RTR-Send order information to OERR from file 52.41 ;10/10/94

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

Call Graph

Outpatient Pharmacy

EN^PSOHLSN (EN,NOO)^PSOHLSN1 USER^PSOORFI2

Kernel

($$DT,$$FMTHL7)^XLFDT MSG^XQOR

Registration

DEM^VADPT $$SITE^VASITE

VA Fileman

^DIK EN^DIQ1

Order Entry Results Reporting

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

Package

Total

Caller Graph

Outpatient Pharmacy

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	;

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

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

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

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

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: