Routine: PSONEW

Package	Total	Call Graph
Outpatient Pharmacy	12	^PSOBUILD EN^PSOHLSN1 HLDHDR^PSOLMUTL EN^PSON52 ^PSONEW1 ^PSONEW2 (AUTO,CHECK)^PSONRXN LOCK^PSOORCPY RV^PSOORFL BLD^PSOORUT1 NPSOSD^PSOUTIL CLEAN^PSOVER1
VA Fileman	3	^DIE $$GET1^DIQ ^DIR
Order Entry Results Reporting	2	($$NA,NA)^ORX1 (LK,ULK)^ORX2
IHS Changes To Pharmacy	1	EN^APSPPCC1
Pharmacy Data Management	1	($$L,UL)^PSSLOCK
Registration	1	FULL^VALM1
Text Integration Utility	1	MAIN^TIUEDIT

Package	Total	Caller Graph
Outpatient Pharmacy	10	PSOBBC PSON52 PSOORCPY PSOORED1 PSOOREDT PSOORNE1 PSOORNEW PSORENW PSORENW4 PSORN52A
National Drug File	1	PSNEW

Entry Points

Name	Comments	DBIA/ICR reference
AGAIN
PRONTE
DIRX
END
OERR	;backdoor new rx for v7
EOJ	;
NOORX
DEL	;
NOOR	;asks nature of order
NOORE(PSONEW)	;entry point for renew
DIR	;ask nature of order
COUN	;patient counseling

External References

Name	Field # of Occurrence
EN^APSPPCC1	AGAIN+10
^DIE	DEL+7
$$GET1^DIQ	DIR+4
^DIR	END+1, COUN+4, COUN+6, PRONTE+2, DIR+10
$$NA^ORX1	DIR+4
NA^ORX1	DIR+1
LK^ORX2	OERR+3
ULK^ORX2	END+2
^PSOBUILD	END+2
EN^PSOHLSN1	EOJ+6, EOJ+7
HLDHDR^PSOLMUTL	AGAIN
EN^PSON52	AGAIN+9
^PSONEW1	AGAIN+1
^PSONEW2	AGAIN+7
AUTO^PSONRXN	AGAIN+4
CHECK^PSONRXN	AGAIN+4
LOCK^PSOORCPY	OERR+2
RV^PSOORFL	END+3
BLD^PSOORUT1	END+2
NPSOSD^PSOUTIL	AGAIN+13
CLEAN^PSOVER1	EOJ+3
$$L^PSSLOCK	OERR+2
UL^PSSLOCK	OERR+3, END+2
MAIN^TIUEDIT	EOJ+9, PRONTE+1
FULL^VALM1	AGAIN+1, EOJ+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: AGAIN+0
Function Call: WRITE	Prompt: !,$C(7),"RX DELETED",! Line Location: AGAIN+3
Function Call: WRITE	Prompt: ! Line Location: END+1
Function Call: WRITE	Prompt: !,$C(7),"RX DELETED",! Line Location: DEL+1
Routine Call	DIE Line Location: DEL+7
Routine Call	DIR Line Location: END+1 COUN+4 COUN+6 PRONTE+2 DIR+10

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ORD(100.02 - [#100.02]	GET1^DIQ
^PS(59 - [#59]	Classic Fileman Calls
^APSPCTRL - [#9009033]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DILOCKTM"	DEL+5
^PS(59 - [#59]	DEL+5, DEL+7, DEL+8
^PSRX - [#52]	AGAIN+11, AGAIN+12, EOJ+7
^PSRX("B"	EOJ+1
^TMP("PSORXDC"	EOJ+4!
^TMP("PSORXN"	EOJ+5, EOJ+6, EOJ+8!
^VA(200 - [#200]	DIR+4, DIR+9
^XUSEC("PSORPH"	NOOR+4, NOOR+7, NOOR+11

Label References

Name	Line Occurrences
AGAIN	END+1
COUN	NOOR+4, NOOR+7
DEL	AGAIN+5, AGAIN+6, AGAIN+7
DIR	NOOR+6, NOOR+9
END	AGAIN+2, AGAIN+3, AGAIN+5, AGAIN+6, AGAIN+7, AGAIN+8
EOJ	END
NOOR	AGAIN+6, NOORE+1
NOORX	NOOR+3, NOOR+11, COUN+1
PRONTE	COUN+3, COUN+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACNT	EOJ+4!
ACOM	EOJ+4!
ANQDATA	EOJ+2!
>> APSP("CM"	AGAIN+11
C	EOJ+2!
COPY	OERR+1!
CRIT	EOJ+4!
DA	DEL+3*, NOOR+10!
DEF	EOJ+4!
DF	DIR+7*, DIR+10!
DIE	DEL+3*, DEL+7!, NOOR+10!
DIK	NOOR+10!
DIR	END+1!, NOOR+7!, NOOR+10!, COUN+1!, COUN+6!, PRONTE!, PRONTE+1!, PRONTE+2!, NOORX!, DIR+1! , DIR+8!
DIR("A"	END+1, PRONTE+2, DIR+8*
DIR("B"	END+1, COUN+4, COUN+6, PRONTE+2, DIR+8*
DIR(0	END+1, COUN+4, COUN+6, PRONTE+2, DIR+9*
DIRUT	END+1!, NOOR+6, NOOR+7!, NOOR+9, NOOR+10!, COUN+1!, COUN+5, COUN+6!, PRONTE!, PRONTE+1! , NOORX!, DIR+1!, DIR+6*, DIR+8!, DIR+10, NOORE+1
DR	DEL+6*, NOOR+10!
DRET	OERR+1!, EOJ+4!
DTOUT	END+1!, NOOR+7!, NOOR+10!, COUN+1!, COUN+6!, NOORX!, DIR+1!, DIR+8!
DUOUT	END+1!, NOOR+10!, COUN+1!, COUN+6!, PRONTE!, PRONTE+1!, NOORX!
DUR	OERR+1!, EOJ+4!
DUZ	NOOR+4, NOOR+7, NOOR+11, DIR+4, DIR+9
DUZ("AG"	COUN+3
F1	EOJ+4!
GG	EOJ+4!
I1	EOJ+4!
IEN	EOJ+4!
INDT	EOJ+4!
LAST	EOJ+4!
LSI	EOJ+2!
MAX	EOJ+2!
MIN	EOJ+2!
MSG	EOJ+4!
NDF	EOJ+2!
NIEN	EOJ+4!
>> OR0	NOOR+3, NOOR+4
ORD	AGAIN+1!, END+1!
>> P(99	AGAIN+12
>> POERR	AGAIN+3, AGAIN+5, AGAIN+7
>> POERR("DFLG"	AGAIN+3, AGAIN+5, AGAIN+7*
PSDRUG	END+1!
PSOCOU	AGAIN!, EOJ+2!, COUN+3, COUN+4, COUN+5, COUN+6
PSOCOUU	AGAIN!, EOJ+2!, COUN+3, COUN+5, COUN+6!*
>> PSODFN	OERR+2, OERR+3, AGAIN+10, END+2, EOJ+9
PSODRUG	AGAIN!, EOJ+2!
PSODRUG("OI"	NOOR+4
PSOEDIT	OERR+1!
PSOFLAG	EOJ+2!
>> PSOFROM	AGAIN*
PSOHI	EOJ+2!
PSOI	NOOR+4*, NOOR+10!
PSOLO	EOJ+2!
PSONEW	AGAIN+9, AGAIN+13, END+1!, EOJ+2!, NOORE~
PSONEW("DFLG"	AGAIN, AGAIN+3, AGAIN+5, AGAIN+6, AGAIN+7, NOOR+6, NOOR+9, NOORE+1
PSONEW("IRXN"	AGAIN+10, AGAIN+11, AGAIN+12
PSONEW("NOO"	NOORE+2*
PSONEW("OLD L	AST RX#" , DEL+3, DEL+4
PSONEW("QFLG"	AGAIN*, AGAIN+2, AGAIN+5
PSONEW("RX #"	, AGAIN+4, EOJ+1
>> PSONOBCK	DIR+4
PSONODF	DIR+7*, DIR+8, DIR+10!
PSONOEDT	AGAIN*, EOJ+2!
PSONOODF	NOOR+1~, NOOR+2, NOOR+5, DIR+4
PSONOOR	AGAIN!, EOJ+2!, NOOR+4, NOOR+7, NOOR+10, DIR+4, DIR+5, DIR+6!, DIR+7, DIR+8 , DIR+10, NOORE+2
PSONOTE	EOJ+9, EOJ+10!, PRONTE!, PRONTE+3*
>> PSOPAR	AGAIN+4, DEL+2
PSOPLCK	OERR+2*!, OERR+3!
PSOPRC	EOJ+4!
PSOREEDT	OERR+1!
>> PSORX("EDIT"	EOJ+2!, COUN+1
>> PSORX("FN"	AGAIN!, AGAIN+8, END+1, END+4!
>> PSORX("NAME"	END+1
>> PSOSIGFL	NOOR+4, COUN+1
>> PSOSITE	DEL+3, DEL+5, DEL+7, DEL+8, DIR+4
PSOX	AGAIN+4, DEL+4, DEL+6, DEL+7, DEL+9!
PSOY	DEL+3*, DEL+4, DEL+5, DEL+6, DEL+7, DEL+8, DEL+9!
REF	EOJ+2!
RORD	EOJ+4!
RXN	EOJ+5*, EOJ+6, EOJ+7, EOJ+8!
RXN1	EOJ+6*, EOJ+8!
SER	EOJ+2!
SIG	EOJ+2!
SPEED	OERR+1!, COUN+5, PRONTE+1
STA	EOJ+4!
>> TIUDA	EOJ+9
>> VALMBCK	OERR+2, OERR+3, AGAIN+3, AGAIN+5, AGAIN+7, AGAIN+14, END+4*
VALMCNT	AGAIN~
>> VALMSG	OERR+2, OERR+3
X	OERR+3, END+2, DEL+7!, NOORX!
Y	OERR+3, END+1, DEL+7!, NOOR+7, NOOR+10, COUN+4, COUN+6, PRONTE+3, NOORX!, DIR+5* , DIR+10

Marked Items

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSONEW

Information

Source Information

Call Graph

Call Graph Total: 21

Caller Graph

Caller Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items