Routine: PSOORFI2

Package	Total	Call Graph
Outpatient Pharmacy	13	^PSOBUILD (FILLDT,MW)^PSODIR2 EN^PSOFSIG EN^PSOHLSN EN^PSOLMUTL ^PSOLSET LOCK1^PSOORFI1 DC^PSOORFI6 ORD^PSOORFIN BLD^PSOORUT1 ^PSOORUT2 ^PSOREF0 OERR^PSORX1
VA Fileman	5	^%DT ^DIC $$GET1^DIQ EN^DIQ1 ^DIR
Order Entry Results Reporting	1	EN1^ORCFLAG
Pharmacy Data Management	1	(PSOL,PSOUL)^PSSLOCK
Registration	1	(FULL,PAUSE)^VALM1

Package	Total	Caller Graph
Outpatient Pharmacy	14	PSODGDGI PSOHLDC PSOHLNEW PSOHLSN PSOORFI1 PSOORFI3 PSOORFI5 PSOORFI6 PSOORFIN PSOORNEW PSOORRNW PSORENW0 PSORX1 PSOTPRX1
IHS Changes To Pharmacy	2	APSPCO APSPFNC2

Entry Points

Name	Comments	DBIA/ICR reference
KPRIZ
ELIG
INST1	;
HELP	;
DE
DC
INST	;Select Institution
E
CNT(SITE)	; - Counter for flagged pending orders by Site
CLOZ	;checks clozapine status of patient
RTE	;
PRI	;
INSTNM	;
RF	;process refill request from CPRS
HELPX
END
KPRI
S
R
POST
PROFILE	;display med profile
USER(USER)	;returns .01 of 200
HLP
SIG	;

External References

Name	Field # of Occurrence
^%DT	RF+24
^DIC	INST+8, USER+1
$$GET1^DIQ	RF+8, RF+10
EN^DIQ1	INST+9, INSTNM+2
^DIR	HELP+3, PROFILE+2, RF+13, RF+21
EN1^ORCFLAG	RF+15
^PSOBUILD	POST
FILLDT^PSODIR2	RF+31
MW^PSODIR2	RF+35
EN^PSOFSIG	SIG+5
EN^PSOHLSN	DE+4
EN^PSOLMUTL	POST+4
^PSOLSET	INST+2
LOCK1^PSOORFI1	S, S+2, S+4, E, E+2, E+4, R, R+2, R+4
DC^PSOORFI6	DC+1
ORD^PSOORFIN	S, S+2, S+4, E, E+2, E+4, R, R+2, R+4
BLD^PSOORUT1	POST+4
^PSOORUT2	POST+4
^PSOREF0	RF+40
OERR^PSORX1	POST
PSOL^PSSLOCK	RF+1
PSOUL^PSSLOCK	END
FULL^VALM1	RF+5
PAUSE^VALM1	DE+5, RF+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Enter 'S' to process orders with a priority of STAT",!," 'E' to process orders with an Emergency priority,",!," 'R' to process Routine orders.",! Line Location: HLP+0
Function Call: WRITE	Prompt: !,"Please enter a minimum of two (2) characters.",!,"Enter Patient's name whose med orders are to be completed.",! Line Location: HELP+1
Function Call: WRITE	Prompt: !,$P(^DPT(DPT,0),"^") Line Location: HELP+2
Function Call: WRITE	Prompt: $C(7),!!,$P(PSOMSG,"^",2),! Line Location: RF+2
Function Call: WRITE	Prompt: ! Line Location: RF+13
Function Call: WRITE	Prompt: !!,"Processing Refill Request for Rx "_$P(^PSRX(PSOREF("IRXN"),0),"^") Line Location: RF+29
Function Call: WRITE	Prompt: !!,"There are no CPRS Ordering Institutions associated with this Outpatient site!",!,"Use the Site Parameter enter/edit option to enter CPRS Ordering Institutions!",! Line Location: INST+5
Function Call: WRITE	Prompt: !!!,"There are multiple Institutions associated with this Outpatient Site for",!,"finishing orders entered through CPRS. Select the Institution for which to",!,"finish orders from. Enter '?' to see all choices.",! Line Location: INST+7
Function Call: WRITE	Prompt: !!,"No Institution selected",! Line Location: INST+8
Function Call: WRITE	Prompt: ! Line Location: INST+10
Function Call: WRITE	Prompt: !,"You have selected "_$G(PSODINST)_"." Line Location: INST+11
Function Call: WRITE	Prompt: !,"After completing these orders, you may re-enter this option and select again.",! Line Location: INST+12
Function Call: WRITE	Prompt: !," <There ",$S(PSOCNT=1:"is ",1:"are "),$S(PSOCNT>0:PSOCNT,1:"no")," flagged order",$S(PSOCNT=1:"",1:"s")," for ",PSODINST,">",! Line Location: INST+14
Routine Call	DIC Line Location: INST+8 USER+1
Routine Call	DIR Line Location: HELP+3 PROFILE+2 RF+13 RF+21

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^PS(52.41 - [#52.41]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	HELP+2
^PS(52.41 - [#52.41]	HELP+2, RTE+2, RTE+3, PRI+2, PRI+3, DE, DE+1!, DE+2, DE+3, RF+6 , RF+15, RF+22, S, S+2, S+4, E, E+2, E+4, R, R+2 , R+4, CNT+3, CNT+4, CNT+5, CNT+6, SIG+1, SIG+2, SIG+7
^PS(59 - [#59]	INST+4, INST1+2
^PSRX - [#52]	RF+3, RF+25, RF+28, RF+29
^TMP("PSOPO"	ELIG, ELIG+1, SIG+3, SIG+4
^UTILITY("DIQ1"	INST+9!
^YSCL(603.01	CLOZ+1, CLOZ+2

Label References

Name	Line Occurrences
$$CNT	INST+13
@(	POST+1
END	RF+31, RF+35
HELPX	HELP+2
INSTNM	INST+11
KPRI	S, S+1, S+5, E, E+1, E+5, R, R+1, R+5
KPRIZ	S, S+2, S+4, E, E+2, E+4, R, R+2, R+4

Naked Globals

Name	Field # of Occurrence
^(0	RTE+3, PRI+3, DE+2, RF+28, S, S+2, S+4, E, E+2, E+4 , R, R+2, R+4, INST+4, INST1+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	RF+24*
ACOM	DE+3, DE+6!
>> CLOZPAT	CLOZ+1, CLOZ+2, CLOZ+3*, ELIG, ELIG+1
CMOP	DE+6!
CNT	CNT+1~, CNT+2, CNT+6, CNT+7
>> D	SIG+7*
DA	INST+9!, INSTNM+1, INSTNM+2!, INSTNM+3*
DEA	DE+6!
DEF	DE+6!
DIC	INST+8!, INST+9!, USER+1!, INSTNM+2!
DIC("B"	INST+8*
DIC(0	INST+8, USER+1
DIQ	INST+9!, INSTNM+2*
DIQ(0	INST+9, INSTNM+2
DIR	HELP+3!, PROFILE+2!, PROFILE+4!, DE+6!, RF+7!, RF+16!
DIR("?"	HELPX*
DIR("A"	HELPX, PROFILE+2, DE+5, RF+8, RF+9, RF+10, RF+11, RF+12, RF+17, RF+18 , RF+19, RF+20
DIR("B"	PROFILE+2, RF+12, RF+20*
DIR(0	HELP+3, HELPX, PROFILE+2, RF+12, RF+20*
DIRUT	HELP+3!, HELPX!, PROFILE+2!, PROFILE+4!, DE+6!, RF+6, RF+7!, RF+15, RF+16!, RF+21
DPT	HELP+2*, HELPX+1!
DR	INST+9!, INSTNM+2!
DREN	DE+6!
DT	RF+26
DTOUT	HELP+2, HELP+3!, HELPX!, PROFILE+2!, PROFILE+4!, DE+6!, RF+7!, RF+16!
DUOUT	HELP+2, HELP+3!, HELPX!, PROFILE+2!, PROFILE+4!, DE+6!, RF+7!, RF+16!
FDR	DE+6!
HDR	DE+6!
>> IEN	ELIG, ELIG+1, SIG+3*, SIG+4
>> LOGIN	CNT+2, CNT+3, CNT+4
>> MEDA	PROFILE+1*
MEDP	PROFILE+2!, PROFILE+3*
MIG	SIG+2*, SIG+3, SIG+6!
NODE	END!
>> OR0	RF+1, RF+3, RF+35, RF+38, RF+39
ORD	DE, DE+1, DE+2, DE+3, RF+6, RF+8, RF+10, RF+15, RF+22, S* , S+1, S+2, S+4, E, E+1, E+2, E+4, R, R+1, R+2 , R+4, CNT+1~, CNT+2, CNT+4*, CNT+5, CNT+6, SIG+1, SIG+2, SIG+7
PAINST	HELPX!
>> PAT	RTE+2, PRI+2, S, S+2, S+4, E, E+2, E+4, R, R+2 , R+4
PATN	HELP+2, HELP+3, HELPX+1!
PDORUG	DE+6!
PHI	DE+6!
>> POERR("COMM"	DE+3*, DE+4
>> POERR("DEAD"	DE+3, DE+5, POST+1, POST+2
>> POERR("PLACER"	DE+2*, DE+4
>> POERR("QFLG"	S, S+1, S+2, S+3, S+4, E, E+1, E+2, E+3, E+4 , R, R+1, R+2, R+3, R+4, KPRIZ!, POST+2*
>> POERR("STAT"	DE+2*, DE+4
PRC	DE+6!
PSCT	INST+3~, INST+4*, INST+5, INST+6
PSINST	INST+3~
PSIR	INST+3~, INST+4, INST1+1~, INST1+2
PSL	END!
>> PSOBBC1("FROM"	DC, RF+26
PSOCNT	INST+1~, INST+13*, INST+14
>> PSODFN	DE+3, CLOZ+1
PSODINST	INST+11, INST+14, INST+15!, INSTNM+1!, INSTNM+2*
PSODNM	INSTNM+2!
PSODNM(4	INSTNM+2
PSOEMERZ	E*, E+1, KPRI!
PSOERR	END!
PSOERR("DEAD"	POST+3!
PSOFINDA	INSTNM+1!*, INSTNM+3!
>> PSOFINFL	SIG+1*
PSOFINY	POST*!
>> PSOFROM	RF+37*
>> PSOID	RF+25*
>> PSOIQUIT	INST+2, INST+5, INST+8*
PSOMSG	RF+1!, RF+2, RF+24!
>> PSONEW	SIG+5
>> PSONEW("# OF	REFILLS" , RF+28, CLOZ+4
>> PSONEW("DAYS	SUPPLY" , RF+28*
>> PSONEW("INS"	SIG+7*
>> PSONEW("N# RE	F" , CLOZ+4*
PSONOOR	DE+4, DE+6!
>> PSOOPT	DC
>> PSOORRNW	DC
PSOPINST	HELP+2, RTE+3, PRI+3, INST+3!, INST+4, INST+8, INST+9, INST+10, INST+13, INST1+1! , INST1+2*, INSTNM+2
PSOPNAME	INST+8!, INST+9*
>> PSOPTPST(2	DE+3
PSOQFLG	POST+1!, POST+3
PSOQUIT	KPRIZ!, POST
PSOREF	RF+1!, RF+31, RF+35, END!
PSOREF("CLINIC"	RF+38*
PSOREF("DFLG"	RF+24, RF+31, RF+35, RF+37
PSOREF("FIELD"	RF+24*
PSOREF("IRXN"	RF+1*, RF+25, RF+28, RF+29, END
PSOREF("ISSUE	DATE" , RF+25, RF+26
PSOREF("REQ P	ROVIDER" , RF+39*
PSOREF1	RF+24*, END!
>> PSORENW("DFLG"	DC*
PSOROUTZ	R*, R+1, KPRI!
>> PSORX("BAR CO	DE" , RF+26
>> PSORX("MAIL/WINDOW"	RF+35*
>> PSORX("QFLG"	END!
>> PSOSITE	INST+2, INST+4, INST+8, INST1+2
PSOSTATZ	S*, S+1, KPRI!
PSOXFLG	POST+1!
>> PSRT	RTE+2, PRI+2
>> PSZFIN	RTE+1, RTE+2, RTE+3, PRI+1, PRI+2, PRI+3
>> PSZFZZ	RTE+2, RTE+3, PRI+2, PRI+3
>> PT	POST+1*
>> RTN	POST+1*
>> SG	SIG+3*
>> SIG	SIG+1*, SIG+2
>> SIG(	SIG+2*
>> SIG(0	SIG+6
SIGOK	DE+6!, SIG+6*
SITE	CNT~, CNT+4
U	RF+38, RF+39
USER	USER~, USER+1
>> USER1	USER+1*
>> VALMBCK	DC, RF+6, RF+21, RF+31, RF+35*
>> VALMSG	DC*
X	RF+24, RF+26!, USER+1!
X1	RF+26!
X2	RF+26!
Y	PROFILE+2, PROFILE+3, DC, DE+7, RF+6, RF+15, RF+21, RF+25, INST+8, INST+10! , USER+1!, POST*

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOORFI2

Information

Source Information

Call Graph

Call Graph Total: 21

Caller Graph

Caller Graph Total: 16

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: