Routine: PSONEW2

Package	Total	Call Graph
Outpatient Pharmacy	10	CAN^PSOCAN COPAY^PSOCPB HD3^PSODOSUN SIGONE^PSOHELP EN^PSOHLSN (SC,SHAD)^PSOMLLD2 ($$DT,CV,HNC,MST,PGW,RAD,VEH)^PSOMLLDT ^PSONEW3 EN^PSOORNE1 SCP^PSORN52D
VA FileMan	3	^%DT ^DIR ^DIWP
Pharmacy Data Management	2	$$DS^PSSDSAPI PSOUL^PSSLOCK
Kernel	1	($$FMADD,$$FMDIFF)^XLFDT
List Manager	1	(FULL,PAUSE)^VALM1

Package	Total	Caller Graph
Outpatient Pharmacy	12	PSOCAN PSOCAN1 PSONEW PSOORCPY PSOORED6 PSOORNE1 PSOORNE6 PSOORNEW PSORENW0 PSORENW4 PSORXED1 PSOVER1
CMOP	1	PSXEDIT

Entry Points

Name	Comments	DBIA/ICR reference
START	;
END
STOP	; Checks whether the Fill Date is past the Expiration Date
DISPLAY	;
TRN	;I $G(PSOPRC) F I=0:0 S I=$O(PRC(I)) Q:'I W !,PRC(I)
ASK	;
ASK1
ASKX
DCORD	;dc rxs and pending orders after new order is entered
PEN	;pending ^tmp("psorxdc",$j,rord,0)="p^"_rord_"^"_msg
PENX
RX52	;rxs in file 52 ^tmp("psorxdc",$j,rord,0)=52^rord^msg^rea^act^sta^dnm
RX52X
EDIT	;
EOJ	;
EN1(PSONEW2)	; Entry point to just display and ask if okay	ICR #1968 Status: Active Usage: Private
EN1X	;
EXPR	;Display Expired error message ;PSO*237

External References

Name	Field # of Occurrence
^%DT	STOP+2
^DIR	ASK+2
^DIWP	PEN+7, RX52+6
CAN^PSOCAN	RX52+3
COPAY^PSOCPB	START+8
HD3^PSODOSUN	DISPLAY+1, DISPLAY+7, DISPLAY+8, TRN+2
SIGONE^PSOHELP	DISPLAY+8
EN^PSOHLSN	PEN+4
SC^PSOMLLD2	START+9
SHAD^PSOMLLD2	START+18
$$DT^PSOMLLDT	START+12
CV^PSOMLLDT	START+14
HNC^PSOMLLDT	START+20
MST^PSOMLLDT	START+19
PGW^PSOMLLDT	START+17
RAD^PSOMLLDT	START+16
VEH^PSOMLLDT	START+15
^PSONEW3	EDIT+2
EN^PSOORNE1	START+23
SCP^PSORN52D	START+5
$$DS^PSSDSAPI	DISPLAY+1, DISPLAY+7, DISPLAY+8, TRN+2
PSOUL^PSSLOCK	PENX+1, RX52X+2
FULL^VALM1	START+23
PAUSE^VALM1	ASKX+3
$$FMADD^XLFDT	STOP+4
$$FMDIFF^XLFDT	STOP+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: START+8
Function Call: WRITE	Prompt: !!,"Rx # ",PSONEW("RX #") Line Location: DISPLAY+2
Function Call: WRITE	Prompt: ?23,"Active/Parked" Line Location: DISPLAY+3
Function Call: WRITE	Prompt: ?23,$E(PSONEW("FILL DATE"),4,5),"/",$E(PSONEW("FILL DATE"),6,7),"/",$E(PSONEW("FILL DATE"),2,3) Line Location: DISPLAY+4
Function Call: WRITE	Prompt: !,$G(PSORX("NAME")),?30,"#",PSONEW("QTY") Line Location: DISPLAY+5
Function Call: WRITE	Prompt: !,$G(INS1) Line Location: DISPLAY+8
Function Call: WRITE	Prompt: !,PRC(I) Line Location: TRN+0
Function Call: WRITE	Prompt: !!,$S($G(PSODRUG("TRADE NAME"))]"":PSODRUG("TRADE NAME"),1:PSODRUG("NAME")) Line Location: TRN+1
Function Call: WRITE	Prompt: !,PSONEW("PROVIDER NAME"),?25,PSORX("CLERK CODE"),!,"# of Refills: ",PSONEW("# OF REFILLS"),! Line Location: TRN+2
Function Call: WRITE	Prompt: !!,$C(7),Y_" fill date is greater than possible expiration date of " Line Location: ASK1+3
Function Call: WRITE	Prompt: Y_"." Line Location: ASK1+3
Function Call: WRITE	Prompt: $C(7),! Line Location: PEN+6
Function Call: WRITE	Prompt: !,^UTILITY($J,"W",1,ZX,0) Line Location: PEN+8
Function Call: WRITE	Prompt: ! Line Location: PENX+0
Function Call: WRITE	Prompt: $C(7),! Line Location: RX52+5
Function Call: WRITE	Prompt: !,^UTILITY($J,"W",1,ZX,0) Line Location: RX52+7
Function Call: WRITE	Prompt: ! Line Location: RX52X+0
Function Call: WRITE	Prompt: $C(7) Line Location: EXPR+2
Routine Call	DIR Line Location: ASK+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	ASK1+3
^DPT - [#2]	EN1+4
^PS(50.606 - [#50.606]	PEN+3
^PS(50.7 - [#50.7]	PEN+3
^PS(52.41 - [#52.41]	PEN+1*, PEN+2!, PEN+4
^PS(53 - [#53]	START+8, START+9
^PSDRUG - [#50]	PEN+3, EN1+5
^PSRX - [#52]	RX52+1, RX52+6, EN1+2, EN1+3, EN1+8
^TMP("PSORXDC"	ASK1+4!, DCORD+1!, DCORD+2, PEN+1, PEN+4, PEN+7, PENX+1!, RX52+1, RX52+2, RX52+6 , RX52X+1, RX52X+2!
^UTILITY($J	PEN+6!, PEN+8, PENX!, RX52+5!, RX52+7, RX52X!
^VA(200 - [#200]	EN1+6, EN1+7
^XUSEC("PSORPH"	PEN+5, RX52+4

Label References

Name	Line Occurrences
@(	DCORD+2
ASK	START+22, EN1+10
ASKX	START+10, START+12, ASK+2
DCORD	ASK1+4
DISPLAY	START+3, EN1+9
EN1X	EN1+2
END	START+10, START+12, START+22, START+23
EOJ	END
PENX	PEN+5
RX52X	RX52+4
START	START+24
STOP	START+2
TRN	DISPLAY+6

Naked Globals

Name	Field # of Occurrence
^("TN"	EN1+3
^(0	RX52+2
^(2	EN1+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACT	RX52+2*
>> BINGCRT	ASK1+1*
>> BINGRTE	ASK1+1*
D	DISPLAY+6!, DISPLAY+7*
>> DA	RX52+3*
DIR	ASK+1!, ASK+2!
DIR("A"	ASK+1*
DIR("B"	ASK+2*
DIR(0	ASK+2*
DIRUT	START+10, START+12, ASK+2, ASKX, ASKX+1!, ASKX+2!
DIWF	PEN+6, PENX!, RX52+5, RX52X!
DIWL	PEN+6, PENX!, RX52+5, RX52X!
DIWR	PEN+6, PENX!, RX52+5, RX52X!
DNM	PEN+1~, PEN+3*, PEN+7
DT	STOP+2
DTOUT	ASKX+2!
DUOUT	ASKX+2!
>> DUP	RX52+3*
DUZ	PEN+5, RX52+4
DUZ("AG"	START+8
>> INS1	DISPLAY+8
ISSDT	STOP+1~, STOP+2*, STOP+3, STOP+4
>> MSG	RX52+2*
>> PSCAN(	RX52+1*
PSEXDT	STOP+1!, STOP+4*, ASK1+2, ASK1+3, ASKX+1, ASKX+3
PSOANSQ	START+6!, START+12!, START+22!, START+23!
PSOANSQ("CV"	START+14
PSOANSQ("HNC"	START+20
PSOANSQ("MST"	START+19
PSOANSQ("PGW"	START+17
PSOANSQ("RAD"	START+16
PSOANSQ("SHAD"	START+18
PSOANSQ("VEH"	START+15
PSOANSQD	START+6!, START+10!, START+12!
>> PSOBILL	START+9
>> PSOCPZ("DFLG"	START+6*, START+10!, START+12!, START+14, START+15, START+16, START+17, START+18, START+19, START+20 , START+21!
>> PSODFN	START+14, START+15, START+16, START+17, START+18, START+19, START+20, PEN+2
>> PSODRUG("NAME"	TRN+1, EN1+5*
>> PSODRUG("TRAD	E NAME" , TRN+1
PSOEDIT	EOJ+1!
>> PSOFLAG	START+6*
>> PSOFOERR	DISPLAY+1, DISPLAY+7, DISPLAY+8, TRN+2
>> PSOFROM	DCORD+3*
>> PSOIBQS(	START+14, START+15, START+16, START+17, START+18, START+19, START+20
>> PSON52("QFLG"	STOP+1*
>> PSONEW	START+23
>> PSONEW("# OF	REFILLS" , TRN+2, EN1+5*
>> PSONEW("CS"	STOP+3, STOP+4
>> PSONEW("DFLG"	START+1, START+10, START+12, START+22, START+23, START+24, START+25, ASK+2, ASKX+1, EDIT+3 , EN1+1, EN1+2, EN1+11, EXPR+1*
>> PSONEW("FILL	DATE" , STOP+3, DISPLAY+4, ASK1+3, EN1+3*
>> PSONEW("ISSUE	DATE" , STOP+2
>> PSONEW("MAIL/WINDOW"	DISPLAY+3, DISPLAY+4, ASK1+1
>> PSONEW("NEWCOPAY"	START+6*, START+10!, START+12!, START+14!, START+15!, START+16!, START+17!, START+18!, START+19!, START+20!
>> PSONEW("PATIE	NT STATUS" , START+8, START+9
>> PSONEW("PROVI	DER NAME" , TRN+2, EN1+7*
>> PSONEW("QFLG"	START+25*
>> PSONEW("QTY"	DISPLAY+5, EN1+5*
>> PSONEW("RX #"	, DISPLAY+2, EN1+4*
>> PSONEW("SIG"	DISPLAY+8, EN1+8*
>> PSONEW("TRADE	NAME" , EN1+3*
PSONEW2	EOJ+1!, EN1~
PSONEW2("DFLG"	ASKX+1, EN1+11
PSONEW2("IRXN"	EN1+2, EN1+3, EN1+8
PSONEW2("QFLG"	START+1, START+22, ASK1, ASKX+1*
PSONEWFF	START+6*, START+10!, START+12!, START+21!
PSONOOR	RX52+3~*!
PSOR	PEN+1~*, PEN+3
>> PSORX("CLERK	CODE" , TRN+2, EN1+6*
>> PSORX("DFLG"	DCORD+1, EDIT+3, EOJ+1!
>> PSORX("EDIT"	START+23, EDIT+1, EOJ+1!
>> PSORX("FN"	START+23, DCORD+3
>> PSORX("NAME"	DISPLAY+5, EN1+4*
PSOSCA	START+9, EOJ+1!
>> PSOSCP	START+8, START+9
>> PSOSD(	RX52X+1!
PSOTECCK	DCORD+4!, PEN+5, RX52+4
>> PSOX	EN1+3*, EN1+4, EN1+5, EN1+6, EN1+7
>> REA	RX52+2*
RORD	ASK1+4!, DCORD+2*, DCORD+4!, PEN+1, PEN+2, PEN+4, PEN+7, PENX+1, RX52+1, RX52+2 , RX52+3, RX52+6, RX52X+1, RX52X+2
>> SIG(	DISPLAY+7
>> SIG(0	DISPLAY+6
>> SIGOK	DISPLAY+6
>> VALMBCK	DCORD+3*
>> VALMSG	EXPR+3*
X	STOP+1~, STOP+2, DISPLAY+8, ASK+1!, ASKX+2!, PEN+7, PENX!, RX52+6, RX52X!
>> XQORM("B"	EXPR+4*
Y	STOP+2, ASK+1!, ASK1, ASK1+1, ASK1+3, ASKX+1, ASKX+2!
>> ZX	PEN+8, RX52+7

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSONEW2

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 13

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: