Routine: PSOORFI1

Package	Total	Call Graph
Outpatient Pharmacy	17	$$CS^PSOERXA0 ($$CHKERX,DERX1)^PSOERXU1 $$ERXIEN^PSOERXUT EN^PSOLMPO DIN^PSONFI LOCK^PSOORCPY DRG^PSOORDRG (CLOZ,ELIG,POST,SIG,USER)^PSOORFI2 (CLQTY,DOSE,INST,OBX,PQTY)^PSOORFI4 (LMDISP,PRV)^PSOORFI5 DRGMSG^PSOORNEW DREN^PSOORNW2 DCP^PSOPKIV1 GETPARK^PSORPC01 $$MAXNUMRF^PSOUTIL $$DEACHK^PSOUTLA1 WORDWRAP^PSOUTLA2
List Manager	1	FULL^VALM1
Order Entry Results Reporting	1	ULK^ORX2
Pharmacy Data Management	1	$$L^PSSLOCK
Registration	1	KVA^VADPT
VA FileMan	1	$$GET1^DIQ

Package	Total	Caller Graph
Outpatient Pharmacy	12	PSOERX PSOERXC1 PSOERXU6 PSOMPHRC PSOORFI2 PSOORFI3 PSOORFI5 PSOORFIN PSOORNE3 PSOORNEW PSOORNW1 PSOPMP0

Entry Points

Name	Comments	DBIA/ICR reference
DSPL
DRG
ISSDT
DS	;
PST
POST	;post patient selection
SIG	;displays possible sig
INST	;displays provider comments and pharmacy instructions
OBX	;formats obx section
ST(PSRT)	;sort by route or patient
RT	;which route to sort by ;PAPI 441
PT	;process for all or one patient
EP	;continue processing or not
LOCK
ULK
LOCK1	;
EX

External References

Name	Field # of Occurrence
$$GET1^DIQ	PST+5, PST+47
ULK^ORX2	ULK
$$CS^PSOERXA0	PST+47
$$CHKERX^PSOERXU1	DS+7
DERX1^PSOERXU1	DS+7
$$ERXIEN^PSOERXUT	PST+46
EN^PSOLMPO	PST+59
DIN^PSONFI	DS+4
LOCK^PSOORCPY	LOCK
DRG^PSOORDRG	DSPL+2
CLOZ^PSOORFI2	DRG
ELIG^PSOORFI2	PST+13
POST^PSOORFI2	POST+1
SIG^PSOORFI2	SIG+1
USER^PSOORFI2	ISSDT+2, ISSDT+6, PST+36, PST+42
CLQTY^PSOORFI4	PST+13
DOSE^PSOORFI4	PST
INST^PSOORFI4	PST+2
OBX^PSOORFI4	OBX+1
PQTY^PSOORFI4	PST+30
LMDISP^PSOORFI5	DS+3
PRV^PSOORFI5	PST+34
DRGMSG^PSOORNEW	DS+17
DREN^PSOORNW2	DSPL+3
DCP^PSOPKIV1	PST+59
GETPARK^PSORPC01	ST+5, RT+2
$$MAXNUMRF^PSOUTIL	PST+19
$$DEACHK^PSOUTLA1	DRG+5
WORDWRAP^PSOUTLA2	INST+3
$$L^PSSLOCK	LOCK
KVA^VADPT	EX+2
FULL^VALM1	EX+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Enter: ",! Line Location: ST+1
Function Call: WRITE	Prompt: " 'PA' to process orders by patients",! Line Location: ST+2
Function Call: WRITE	Prompt: " 'RT' to process orders by route (mail/window)",! Line Location: ST+6
Function Call: WRITE	Prompt: " 'RT' to process orders by route (mail/window/park)",! Line Location: ST+7
Function Call: WRITE	Prompt: " 'RT' to process orders by route (mail/window)",! Line Location: ST+8
Function Call: WRITE	Prompt: " 'RT' to process orders by route (mail/window/park)",! Line Location: ST+9
Function Call: WRITE	Prompt: " 'PR' to process orders by priority",! Line Location: ST+10
Function Call: WRITE	Prompt: " 'CL' to process orders by clinic",! Line Location: ST+11
Function Call: WRITE	Prompt: " 'FL' to process flagged orders",! Line Location: ST+12
Function Call: WRITE	Prompt: " 'CS' to process digitally signed CS orders",! Line Location: ST+13
Function Call: WRITE	Prompt: " 'CS' to process digitally signed CS orders",! Line Location: ST+14
Function Call: WRITE	Prompt: " 'SU' to process supply item orders",! Line Location: ST+15
Function Call: WRITE	Prompt: " 'SU' to process supply item orders",! Line Location: ST+16
Function Call: WRITE	Prompt: " or 'C' to continue with one filter ",! Line Location: ST+17
Function Call: WRITE	Prompt: " or 'E' or '^' to exit" Line Location: ST+18
Function Call: WRITE	Prompt: ! Line Location: ST+18
Function Call: WRITE	Prompt: !!,"Enter 'W' to process window orders first" Line Location: RT+3
Function Call: WRITE	Prompt: !," 'M' to process mail orders first" Line Location: RT+4
Function Call: WRITE	Prompt: !," 'P' to process park orders first" Line Location: RT+5
Function Call: WRITE	Prompt: !," 'P' to process park orders first" Line Location: RT+6
Function Call: WRITE	Prompt: !," 'C' to process orders administered in clinic first" Line Location: RT+7
Function Call: WRITE	Prompt: !," or 'E' or '^' to exit" Line Location: RT+8
Function Call: WRITE	Prompt: !!,"Enter 'A' to process all patient orders",!," 'S' to process orders for a patient",!," or 'E' or '^' to exit" Line Location: PT+1
Function Call: WRITE	Prompt: !,"If you want to continue processing orders Press RETURN or enter '^' to exit" Line Location: EP+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PS(52.49 - [#52.49]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	ISSDT+1, PST+10, PST+12, PST+44
^PS(50.606 - [#50.606]	DS+11
^PS(50.7 - [#50.7]	DSPL+1, DS+11
^PS(52.41 - [#52.41]	ISSDT+9, ISSDT+10, DS+9, DS+10, PST+1, INST+1, INST+2, LOCK1+1
^PS(53 - [#53]	ISSDT+12, PST+8, PST+15
^PS(55 - [#55]	ISSDT+8, ISSDT+12, PST+15, PST+17
^PSDRUG - [#50]	DRG, DS+17, PST+23, PST+24, PST+26
^PSDRUG("AQ"	DS+15
^SC - [#44]	ISSDT+4, ISSDT+5
^TMP("PSOAO"	EX+3!
^TMP("PSODA"	EX+3!
^TMP("PSOHDR"	EX+3!
^TMP("PSOPF"	EX+3!
^TMP("PSOPI"	EX+3!
^TMP("PSOPO"	DSPL!, DS+7, DS+11, DS+12, DS+15, DS+16, DS+17, DS+18, PST+2, PST+3 , PST+4, PST+5, PST+6, PST+7, PST+8, PST+9, PST+10, PST+12, PST+16, PST+23 , PST+26, PST+28, PST+29, PST+31, PST+32, PST+33, PST+37, PST+38, PST+41, PST+43 , PST+44, PST+48, PST+49, PST+50, PST+51*, INST+3, EX+3!
^VA(200 - [#200]	PST+35
^XUSEC("PSDRPH"	PST+52, LOCK1+1
^XUSEC("PSORPH"	PST+52, PST+56, LOCK1+1, LOCK1+2

Label References

Name	Line Occurrences
DRG	DSPL+2
DS	ISSDT+11
INST	PST+3, PST+6
OBX	DS+2
PST	DS+14
SIG	PST+7

Naked Globals

Name	Field # of Occurrence
^("EXT"	ISSDT+9, ISSDT+10
^("PS"	PST+35
^(0	DS+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EX+1!, EX+2!
%H	EX+2!
%I	EX+2!
%T	EX+1!
%Y	EX+1!
>> ACP	PST+59
AGROUP	EX+2!
AGROUP1	EX+2!
C	EX+4!
CC	EX+4!
CLI	EX+1!
CLOZPAT	DSPL!, DRG+5, DRG+7, DS+1, PST+13, PST+19, PST+30
CNT	EX+4!
CRIT	EX+4!
D	EX+4!
D0	EX+2!
DFN	EX+2!
DGI	EX+4!
DGS	EX+4!
DI	EX+1!
DIC	DRG+3!, EX+1!
DIPGM	EX+2!
DIR	DRG+3!, EX+1!
DIRUT	EX+1!
DQ	EX+1!
DR	EX+1!
DREN	DSPL+2*, EX+4!
DRET	EX!
DRG	EX+1!
DT	ISSDT, PST+10
DUOUT	EX+1!
DUZ	PST+52, PST+56, LOCK1+1, LOCK1+2
ERXIEN	DS+6~, DS+7, PST+5, PST+6, PST+46~, PST+47
GROUPCNT	EX+2!
I	EX+1!
>> IEN	DS+2, DS+7, DS+11, DS+12, DS+15, DS+16, DS+17, DS+18, PST+2, PST+3* , PST+4, PST+5, PST+6, PST+7, PST+8, PST+9, PST+10, PST+12, PST+16, PST+23 , PST+25, PST+26, PST+27, PST+28, PST+29, PST+31, PST+32, PST+33, PST+37, PST+38* , PST+41, PST+43, PST+44, PST+48, PST+49, PST+50, PST+51, INST+3
INST	INST+1*, INST+2, INST+4!
INST(	INST+2*
IT	EX+4!
JJ	EX+4!
LG	EX+4!
LST	DS+14!
MAIL	EX+1!
MAXRF	PST+14~, PST+19*, PST+20
MEDA	EX+3!
MEDP	EX+3!
MIG	INST+2*, INST+3, INST+4!
MM	EX+4!
>> NFID	DS+15, DS+16*
>> NFIO	DS+11, DS+12*
NIEN	EX+4!
OBX	EX+2!
>> OI	DSPL+1*
>> OID	DSPL+1*
OR0	DSPL+1, DSPL+2, DSPL+3, DRG+4, DRG+7, ISSDT, ISSDT+2, ISSDT+3, ISSDT+4, ISSDT+5 , ISSDT+6, ISSDT+7, ISSDT+11, DS+7, PST+10, PST+11, PST+12, PST+20, PST+28, PST+29 , PST+34, PST+35, PST+39, PST+40, PST+42, PST+44, PST+52, PST+55, EX+1!
OR1	EX+1!
OR2	EX+1!
OR3	EX+1!
ORD	ISSDT+9, ISSDT+10, DS+3, DS+9, DS+10, PST+1, PST+46, INST+1, INST+2, LOCK1+1 , EX+1!
PAT	LOCK, ULK, EX+1!
PATA	EX+4!
PHI	EX!
>> PKI	PST+34
>> PKI1	PST+59
POERR	DSPL+2*!, EX+1!
POERR("QFLG"	LOCK, ULK
PRC	EX!
PSDAYS	DRG+4~, DRG+5, PST+14~, PST+15, PST+16, PST+19, EX+4!
PSDEA	DRG+4~*, DRG+5
PSOACT	PST+52, PST+56, PST+58, LOCK1+1, LOCK1+2*, EX+4!
>> PSOACTOV	PST+58
PSOBILL	EX+2!
PSOBM	EX+4!
PSOCNT	EX+2!
PSOCOU	EX+4!
PSOCOUU	EX+4!
PSOCPAY	EX+2!
>> PSOCS	DRG+3*, DRG+5
PSOCSP	PST+53!, EX+1!
PSOCSP("# OF	REFILLS" , PST+54*
PSOCSP("DAYS	SUPPLY" , PST+55*
PSOCSP("DOSE	ORDERED" , PST+53*
PSOCSP("DOSE"	PST+53*
PSOCSP("ISSUE	DATE" , PST+55*
PSOCSP("NAME"	PST+53*
PSOCSP("QTY"	PST+55*
PSOD	EX+4!
PSODFN	ISSDT+3*, ISSDT+8, ISSDT+12, PST+15, PST+17, EX+1!
PSODRUG	EX!
PSODRUG("DEA"	DRG+2, DRG+4, PST+34
PSODRUG("IEN"	DRG, DS+4, DS+15, DS+17, PST+19, PST+23, PST+24, PST+26
PSODRUG("NAME"	DS+14, DS+15, PST+53
PSODRUG("OI"	DSPL+1*, DS+4, DS+11
PSODRUG("OIN"	DSPL+1*
PSODSPL	DSPL!
PSOFDR	EX+3!
PSOFIN	EX+3!
PSOFLAG	EX+4!
PSOFROM	EX+1!
PSOIBQS	EX+2!
PSOID	ISSDT*, EX+2!
PSOINSFL	PST!, PST+1*
PSOLK	EX+2!
>> PSOMAX	DRG+5, DRG+7*
PSON	EX+4!
PSONEW	EX+1!
PSONEW("# OF	REFILLS" , PST+20*, PST+31, PST+54
PSONEW("ADMINCLINIC"	PST+40!*
PSONEW("CHCS	NUMBER" , ISSDT+9*
PSONEW("CLERK	CODE" , ISSDT+2, ISSDT+7
PSONEW("CLINIC"	ISSDT+4*
PSONEW("COSIG	NING PROVIDER" , PST+35*, PST+36
PSONEW("DAYS	SUPPLY" , ISSDT+11, ISSDT+12, DS+1*, PST+15, PST+55
PSONEW("DFLG"	ISSDT+3*
PSONEW("DOSE	ORDERED" , PST+53
PSONEW("DOSE"	PST+53
PSONEW("EXTER	NAL SYSTEM" , ISSDT+10*
PSONEW("FILL	DATE" , PST+10*
PSONEW("IND"	DS+9*, PST+4
PSONEW("INDO"	DS+10*
PSONEW("ISSUE	DATE" , ISSDT, ISSDT+1, PST+9
PSONEW("MAIL/WINDOW"	ISSDT+3*, PST+31
PSONEW("PATIE	NT STATUS" , ISSDT+8*, PST+8
PSONEW("PROVI	DER NAME" , ISSDT+7*, PST+33
PSONEW("PROVIDER"	ISSDT+7*, PST+35
PSONEW("QFLG"	ISSDT+3*
PSONEW("QTY"	ISSDT+3*, PST+23, PST+55
PSONEW("REMARKS"	PST+39*, PST+41
PSONOOR	EX+4!
PSOOPT	EX+4!
>> PSOPAR	PST+52, PST+56, LOCK1+1, LOCK1+2
PSOPARKX	ST+4~, RT+1~
PSOPARKX(0	ST+8, ST+9, RT+6
PSOPF	EX+4!
PSOPI	EX+4!
PSOPLCK	LOCK*, LOCK+1!
PSOPRC	DSPL!
PSOPTPST	EX+2!
PSOQFLG	EX+2!
PSOQUIT	ULK, EX+3!
PSORX	EX+2!
PSORX("CLERK	CODE" , ISSDT+2*
PSORX("CLINIC"	ISSDT+4, ISSDT+5, PST+32
PSORX("FILL D	ATE" , PST+10*
PSOSD	EX+1!
PSOSORT	EX+1!
PSOX	DRG+3!
PSRF	EX+4!
PSRT	ST~, ST+2, ST+3, ST+10, ST+11, ST+12, ST+13, ST+14, ST+15, ST+16 , ST+17, EX+1!
PSZFIN	EX+2!
PSZFZZ	EX+2!
PT	EX+2!
RESULTS	ST+4~, ST+5, RT+1~, RT+2
RN	PST+25, PST+26!, PST+43, PST+44!
RTN	EX+2!
RXFL	EX+4!
RXPT	PST+17*, PST+19, PST+21!
SDA	EX+4!
SEG1	EX+4!
SER	EX+4!
SERS	EX+4!
SG	INST+4!
SIG	EX!
>> SIGOK	PSOORFI1+18*
SLPPL	EX+4!
SRT	EX+1!
STA	EX+1!
STAT	EX+4!
T	EX+1!
T1	EX+1!
TC	EX+2!
TM	EX+2!
TM1	EX+2!
TO	EX+2!
TY	PST+3, PST+6, INST+1, INST+2, INST+4!
TZ	EX+2!
>> USER1	ISSDT+2, ISSDT+7, PST+37, PST+43
>> VALMBCK	PST+59*
WIN	EX+1!
X	ULK*, EX+1!
Y	ISSDT, ISSDT+1, PST+10, PST+12, PST+44, EX+1!
Z	EX+4!
Z4	EX+4!
ZDA	EX+4!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOORFI1

Information

Source Information

Call Graph

Call Graph Total: 22

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: