Routine: PSONEW2

Information

PSONEW2 ;IHS/DSD/JCM - displays new rx information for edit ;29-May-2012 14:55;PLS

Package	Total	Call Graph
Outpatient Pharmacy	10	CAN^PSOCAN COPAY^PSOCPB SIGONE^PSOHELP EN^PSOHLSN (SC,SHAD)^PSOMLLD2 ($$DT,CV,HNC,MST,PGW,RAD,VEH)^PSOMLLDT ^PSONEW3 EN^PSOORNE1 KILLOCM^PSORN52 SCP^PSORN52D
Kernel	2	ENDR^%ZISS $$FMTE^XLFDT
VA Fileman	2	C^%DTC ^DIR
IHS Changes To Pharmacy	1	EN^APSPFNC3
Pharmacy Data Management	1	PSOUL^PSSLOCK
Registration	1	(FULL,PAUSE)^VALM1

Package

Total

Call Graph

CAN^PSOCAN COPAY^PSOCPB SIGONE^PSOHELP EN^PSOHLSN (SC,SHAD)^PSOMLLD2 ($$DT,CV,HNC,MST,PGW,RAD,VEH)^PSOMLLDT ^PSONEW3 EN^PSOORNE1
KILLOCM^PSORN52 SCP^PSORN52D

Kernel

ENDR^%ZISS $$FMTE^XLFDT

VA Fileman

C^%DTC ^DIR

IHS Changes To Pharmacy

EN^APSPFNC3

Pharmacy Data Management

PSOUL^PSSLOCK

Registration

(FULL,PAUSE)^VALM1

Package	Total	Caller Graph
Outpatient Pharmacy	11	PSOCAN PSONEW PSOORCPY PSOORED6 PSOORNE1 PSOORNE6 PSOORNEW PSORENW0 PSORENW4 PSORXED1 PSOVER1
CMOP	1	PSXEDIT
IHS Changes To Pharmacy	1	APSQFAS

Package

Total

Caller Graph

Outpatient Pharmacy

PSOCAN PSONEW PSOORCPY PSOORED6 PSOORNE1 PSOORNE6 PSOORNEW PSORENW0
PSORENW4 PSORXED1 PSOVER1

CMOP

PSXEDIT

IHS Changes To Pharmacy

APSQFAS

Entry Points

Name	Comments	DBIA/ICR reference
RX52E
END
DCORD	;dc rxs and pending orders after new order is entered
TRN	;I $G(PSOPRC) F I=0:0 S I=$O(PRC(I)) Q:'I W !,PRC(I)
EDIT	;
EOJ	;
EN1X	;
RX52	;rxs in file 52 ^tmp("psorxdc",$j,rord,0)=52^rord^msg^rea^act^sta^dnm^apsprts
STOP
ASKX
DISPLAY	;
START	;
PEN	;pending ^tmp("psorxdc",$j,rord,0)="p^"_rord_"^"_msg
EN1(PSONEW2)	; Entry point to just display and ask if okay	ICR #1968 Status: Active Usage: Private
ASK	;
ASK1
EXPR	;Display Expired error message ;PSO*237
EP	; IHS/CIA/PLS - 01/02/04 - Check for DUE Questionnarie

External References

Name	Field # of Occurrence
C^%DTC	STOP+8
ENDR^%ZISS	DISPLAY+5
EN^APSPFNC3	RX52+3
^DIR	ASK+2
CAN^PSOCAN	RX52+8
COPAY^PSOCPB	START+8
SIGONE^PSOHELP	DISPLAY+11
EN^PSOHLSN	PEN+3
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
KILLOCM^PSORN52	RX52+1
SCP^PSORN52D	START+5
PSOUL^PSSLOCK	PEN+4, RX52E+1
FULL^VALM1	START+23
PAUSE^VALM1	ASKX+3
$$FMTE^XLFDT	TRN+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: START+8
Function Call: WRITE	Prompt: !!,"Rx # ",PSONEW("RX #") Line Location: DISPLAY+1
Function Call: WRITE	Prompt: ?23,$E(PSONEW("FILL DATE"),4,5),"/",$E(PSONEW("FILL DATE"),6,7),"/",$E(PSONEW("FILL DATE"),2,3),!,$G(PSORX("NAME")),?30,"#",PSONEW("QTY") Line Location: DISPLAY+2
Function Call: WRITE	Prompt: ?36,"NDC ",$S($G(PSONEW("NDC"))]"":PSONEW("NDC"),1:$G(PSODRUG("NDC"))) Line Location: DISPLAY+4
Function Call: WRITE	Prompt: " ("_$S($G(PSONEW("AWP"))]"":PSONEW("AWP"),$G(PSODRUG("AWP"))]"":PSODRUG("AWP"),1:IOBON_"NO AWP"_IOBOFF)_")" Line Location: DISPLAY+6
Function Call: WRITE	Prompt: " ("_$S($G(PSONEW("COST"))]"":PSONEW("COST"),$G(PSODRUG("COST"))]"":PSODRUG("COST"),1:IOBON_"NO COST"_IOBOFF)_")" Line Location: DISPLAY+7
Function Call: WRITE	Prompt: !,$G(INS1) Line Location: DISPLAY+11
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),!," -Pending Order was discontinued..." Line Location: PEN+3
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+8
^PS(52.41 - [#52.41]	PEN+1*, PEN+2!, PEN+3
^PS(53 - [#53]	START+8, START+9
^PSDRUG - [#50]	EN1+9
^PSRX - [#52]	RX52+4, RX52+6, RX52+9, EN1+6, EN1+7, EN1+12
^TMP("PSORXDC"	ASK1+4!, DCORD+1, PEN+1, PEN+3, PEN+4!, RX52+1, RX52+2, RX52+6, RX52+7, RX52E , RX52E+1!
^VA(200 - [#200]	EN1+10, EN1+11

Name	Line Occurrences
@(	DCORD+1
ASK	START+22, EN1+14
ASKX	START+10, START+12, ASK+2
DCORD	ASK1+4
DISPLAY	START+3, EN1+13
EN1X	EN1+6
END	START+10, START+12, START+22, START+23
EOJ	END
RX52E	RX52+1
START	START+24
STOP	START+2
TRN	DISPLAY+9

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	STOP!, STOP+9!
>> ACT	RX52+7*
>> APSPMAN	TRN+5, TRN+8
>> BINGCRT	ASK1+1*
>> BINGRTE	ASK1+1*
D	DISPLAY+9!, DISPLAY+10*
>> DA	RX52+8*
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!
DTOUT	ASKX+2!
DUOUT	ASKX+2!
>> DUP	RX52+8*
DUZ("AG"	START+8
EXPDT	TRN+4~*, TRN+6, TRN+9
>> INS1	DISPLAY+11
>> IOBOFF	DISPLAY+5, DISPLAY+6, DISPLAY+7
>> IOBON	DISPLAY+5, DISPLAY+6, DISPLAY+7
>> MSG	RX52+7*
>> PSCAN(	RX52+6*
PSEXDT	STOP!, STOP+8*, 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("AWP"	DISPLAY+6
>> PSODRUG("COST"	DISPLAY+7
>> PSODRUG("NAME"	TRN+1, EN1+9*
>> PSODRUG("NDC"	DISPLAY+4
>> PSODRUG("TRAD	E NAME" , TRN+1
PSOEDIT	EOJ+1!
>> PSOFLAG	START+6*
>> PSOIBQS(	START+14, START+15, START+16, START+17, START+18, START+19, START+20
>> PSOID	STOP+1
>> PSON52("QFLG"	STOP*
>> PSONEW	START+23
>> PSONEW("# OF	REFILLS" , STOP+1, TRN+2, EN1+9*
>> PSONEW("AWP"	DISPLAY+6, EN1+4*
>> PSONEW("COST"	DISPLAY+7, EN1+5*
>> PSONEW("CS"	STOP+7
>> PSONEW("DAYS	SUPPLY" , STOP+1
>> 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+6, EN1+15, EXPR+1*
>> PSONEW("EXPIR	ATION DATE" , TRN+4
>> PSONEW("FILL	DATE" , STOP+8, DISPLAY+2, ASK1+3, EN1+7*
>> PSONEW("LOT #	" , TRN+7
>> PSONEW("MAIL/WINDOW"	ASK1+1
>> PSONEW("MANUFACTURER"	TRN+6
>> PSONEW("NDC"	DISPLAY+4, EN1+3*
>> 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+11*
>> PSONEW("QFLG"	START+25*
>> PSONEW("QTY"	DISPLAY+2, EN1+9*
>> PSONEW("RX #"	, DISPLAY+1, EN1+8*
>> PSONEW("SIG"	DISPLAY+11, EN1+12*
>> PSONEW("TRADE	NAME" , EN1+7*
>> PSONEW("TRIP"	DISPLAY+8
PSONEW2	EOJ+1!, EN1~
PSONEW2("AWP"	EN1+4
PSONEW2("COST"	EN1+5
PSONEW2("DFLG"	ASKX+1, EN1+15
PSONEW2("IRXN"	EN1+6, EN1+7, EN1+12
PSONEW2("NDC"	EN1+3
PSONEW2("QFLG"	START+1, START+22, ASK1, ASKX+1*
PSONEWFF	START+6*, START+10!, START+12!, START+21!
PSONOOR	RX52+8~*!
>> PSORX("CLERK	CODE" , TRN+2, EN1+10*
>> PSORX("DFLG"	EDIT+3, EOJ+1!
>> PSORX("EDIT"	START+23, EDIT+1, EOJ+1!
>> PSORX("FN"	START+23
>> PSORX("NAME"	DISPLAY+2, EN1+8*
PSOSCA	START+9, EOJ+1!
>> PSOSCP	START+8, START+9
>> PSOSD(	RX52E!
>> PSOX	EN1+7*, EN1+8, EN1+9, EN1+10, EN1+11
>> REA	RX52+7*
RORD	ASK1+4!, DCORD+1*, DCORD+2!, PEN+1, PEN+2, PEN+3, PEN+4, RX52+1, RX52+2, RX52+3 , RX52+4, RX52+6, RX52+7, RX52+8, RX52+9, RX52E, RX52E+1
>> SIG(	DISPLAY+10
>> SIG(0	DISPLAY+9
>> SIGOK	DISPLAY+9
U	RX52+1, RX52+2
>> VALMSG	EXPR+3*
X	STOP!, STOP+8, STOP+9!, DISPLAY+5, DISPLAY+11, ASK+1!, ASKX+2!
X1	STOP+1*, STOP+9!
X2	STOP+1, STOP+7, STOP+9!
>> XQORM("B"	EXPR+4*
Y	ASK+1!, ASK1, ASK1+1, ASK1+3, ASKX+1, ASKX+2!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSONEW2

Information

Source Information

Call Graph

Call Graph Total: 17