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: 22

Package Total Call Graph
Outpatient Pharmacy 13 ^PSOBUILD  (FILLDT,MW)^PSODIR2  EN^PSOHLSN  EN^PSOLMUTL  ^PSOLSET  LOCK1^PSOORFI1  DC^PSOORFI6  ORD^PSOORFIN  
BLD^PSOORUT1  ^PSOORUT2  ^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

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

Caller Graph

Caller Graph Total: 18

Package Total Caller Graph
Outpatient Pharmacy 17 PSO LM DISCONTINUE  PSODGDGI  PSODGDGP  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
KPRIZ
ELIG
INST1 ;
HELP ;
DE
DC
INST ;Select Institution
E
CNT(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
INSTA ;
SIG ;

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
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
^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
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!
^YSCL(603.01 - [#603.01] CLOZ+1, CLOZ+2

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+1*, CLOZ+2*, CLOZ+3*, 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!
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!
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+1
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+4*
>> PSONEW("DAYS SUPPLY" , RF+31*
>> PSONEW("INS" SIG+6*
>> 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*, 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*
>> VALMSG DC*
X RF+27*, RF+29!, INSTA+2*, USER+1!*
X1 RF+29!
X2 RF+29!
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