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

Call Graph

^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

^%DT ^DIC $$GET1^DIQ EN^DIQ1 ^DIR

Order Entry Results Reporting

EN1^ORCFLAG

Pharmacy Data Management

(PSOL,PSOUL)^PSSLOCK

Registration

(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

Package

Total

Caller Graph

Outpatient Pharmacy

PSODGDGI PSOHLDC PSOHLNEW PSOHLSN PSOORFI1 PSOORFI3 PSOORFI5 PSOORFI6
PSOORFIN PSOORNEW PSOORRNW PSORENW0 PSORX1 PSOTPRX1

IHS Changes To Pharmacy

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

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

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

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: