Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSOORFI2

Package: Outpatient Pharmacy

Routine: PSOORFI2


Information

PSOORFI2 ;BIR/BHW-finish cprs orders cont. ;07/29/96

Source Information

Source file <PSOORFI2.m>

Call Graph

Call Graph

Call Graph Total: 24

Package Total Call Graph
Outpatient Pharmacy 15 ^PSOBUILD  $$GETREGYS^PSOCLUTL  (FILLDT,MW)^PSODIR2  EN^PSOHLSN  EN^PSOLMUTL  ^PSOLSET  LOCK1^PSOORFI1  DC^PSOORFI6  
ORD^PSOORFIN  BLD^PSOORUT1  ^PSOORUT2  $$HASACTPO^PSOORUT3  ^PSOREF0  OERR^PSORX1  $$TITRX^PSOUTL  
VA FileMan 5 ^%DT  ^DIC  $$GET1^DIQ  EN^DIQ1  ^DIR  
Kernel 1 ENDR^%ZISS  
List Manager 1 (FULL,PAUSE)^VALM1  
Order Entry Results Reporting 1 EN1^ORCFLAG  
Pharmacy Data Management 1 (PSOL,PSOUL)^PSSLOCK  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 20

Package Total Caller Graph
Outpatient Pharmacy 19 PSO LM DISCONTINUE  PSO LMOE MOVE TO NEXT PATIENT  PSODGDGI  PSODGDGP  PSOERPC0  PSOERXEN  PSOHLDC  PSOHLNEW  
PSOHLSN  PSOORFI1  PSOORFI3  PSOORFI5  PSOORFI6  PSOORFIN  PSOORNEW  PSOORRNW  
PSORENW0  PSORX1  PSOTPRX1  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
HLP
HELP ;
HELPX
RTE ;
PRI ;
PROFILE ;display med profile
DC
DE
RF ;process refill request from CPRS
END
S
E
R
KPRI
KPRIZ
INST ;Select Institution
INSTA ;
CNT(SITE)
INST1 ;
CLOZ ;checks clozapine status of patient
; BEGIN - JCH: PSO*7*612
ELIG
USER(USER) ;returns .01 of 200
INSTNM ;
POST
SIG ;
NP ; Next Patient (Used for Workload Processing Users - Hold the PSO ERX WORKLOAD RPH sec. key)

External References

Name Field # of Occurrence
^%DT RF+27
ENDR^%ZISS INSTA+2
^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
$$GETREGYS^PSOCLUTL CLOZ+3
FILLDT^PSODIR2 RF+33
MW^PSODIR2 RF+36
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
$$HASACTPO^PSOORUT3 NP+3
^PSOREF0 RF+39
OERR^PSORX1 POST
$$TITRX^PSOUTL RF+24
PSOL^PSSLOCK RF+1
PSOUL^PSSLOCK END
FULL^VALM1 RF+5
PAUSE^VALM1 DE+5, RF+1, RF+24

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: !!,$C(7),"Rx# "_$P(^PSRX($P(OR0,"^",19),0),"^")_" is marked as 'Titration Rx' and cannot be refilled."
  • Line Location: RF+25
Function Call: WRITE
  • Prompt: !!,"Processing Refill Request for Rx "_$P(^PSRX(PSOREF("IRXN"),0),"^")
  • Line Location: RF+32
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: !!?7,IORVON_IOINHI,"<There ",$S(PSOCNT=1:"is ",1:"are "),$S(PSOCNT>0:PSOCNT,1:"no")," flagged order",$S(PSOCNT=1:"",1:"s")," for ",PSODINST,">",IOINORM_IORVOFF,!
  • Line Location: INSTA+3
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: NP+4
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+4, CNT+5, CNT+6, CNT+7, SIG+1, SIG+2, SIG+6
^PS(59 - [#59] INST+4, INST1+2
^PSRX - [#52] RF+3, RF+25, RF+28, RF+31, RF+32
^TMP("PSOPO" ELIG*, ELIG+1*, SIG+3*, SIG+4*
^TMP($J CNT+2!, CNT+7*
^UTILITY("DIQ1" INST+9!
^XUSEC("PSO ERX WORKLOAD RPH" NP+3
^YSCL(603.01 - [#603.01] CLOZ+5

Label References

Name Line Occurrences
$$CNT INSTA+1
@( POST+1
END RF+33, RF+36
HELPX HELP+2
INSTA INST+6
INSTNM INST+6, 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+31, S, S+2, S+4, E, E+2, E+4
, R, R+2, R+4, INST+4, CNT+7, INST1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT RF+27*
ACOM DE+3, DE+6!
>> CLOZPAT CLOZ+3*, CLOZ+5*, CLOZ+6*, ELIG, ELIG+1
CMOP DE+6!
CNT CNT+1~, CNT+3*, CNT+7*, CNT+8
>> D SIG+6*
DA INST+9*!, INSTNM+1, INSTNM+2*!, INSTNM+3*
DEA DE+6!
DEF DE+6!
>> DFN NP+3
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+29
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!
DUZ NP+3
FDR DE+6!
HDR DE+6!
>> IEN ELIG*, ELIG+1*, SIG+3*, SIG+4
>> IOINHI INSTA+2, INSTA+3
>> IOINORM INSTA+2, INSTA+3
>> IORVOFF INSTA+3
>> IORVON INSTA+3
>> LOGIN CNT+3*, CNT+4*, CNT+5
>> MEDA PROFILE+1*
MEDP PROFILE+2!, PROFILE+3*
MIG SIG+2*, SIG+3, SIG+5!
NODE END!
>> OR0 RF+1, RF+3, RF+25, RF+35, RF+37
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+3*, CNT+5*, CNT+6, CNT+7, SIG+1, SIG+2, SIG+6
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+29
PSOCNT INST+1~, INSTA+1*, INSTA+3
>> PSODFN DE+3, CLOZ+3
PSODINST INST+11, INSTA+3, INSTA+4!, 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+38*
>> PSOID RF+28*
>> PSOIQUIT INST+2*, INST+5*, INST+8*
PSOMSG RF+1!, RF+2, RF+27!
>> PSONEW("# OF REFILLS" , RF+31*, CLOZ+7*
>> PSONEW("DAYS SUPPLY" , RF+31*
>> PSONEW("INS" SIG+6*
>> PSONEW("N# RE F" , CLOZ+7*
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*, INSTA+1, 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+24!, RF+33, RF+36, END!
PSOREF("DFLG" RF+27*, RF+33, RF+36, RF+38*
PSOREF("FIELD" RF+27*
PSOREF("IRXN" RF+1*, RF+24, RF+28, RF+31, RF+32, END
PSOREF("ISSUE DATE" , RF+28*, RF+29*
PSOREF1 RF+27*, END!
>> PSORENW("DFLG" DC*
PSOROUTZ R*, R+1, KPRI!
>> PSORX("ADMINCLINIC" RF+37!*
>> PSORX("BAR CO DE" , RF+29
>> 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+5
SIGOK DE+6!, SIG+5*
SITE CNT~, CNT+5
USER USER~, USER+1
>> USER1 USER+1*
>> VALMBCK DC*, RF+6*, RF+21*, RF+33*, RF+36*, NP+1*, NP+4*, NP+5*
>> VALMSG DC*, NP+4*
X RF+27*, RF+29!, INSTA+2*, USER+1!*
X1 RF+29!
X2 RF+29!
>> XQORM("B" NP+4*
>> XQY0 NP+5
Y PROFILE+2, PROFILE+3, DC*, DE+7*, RF+6, RF+15, RF+21, RF+28, INST+8, INST+10!
, USER+1!, POST*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All