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 |  Marked Items  | All
Print Page as PDF
Routine: PSOORFI6

Package: Outpatient Pharmacy

Routine: PSOORFI6


Information

PSOORFI6 ;BIR/SJA - finish cprs orders cont. ;Nov 30, 2021@08:00:07

Source Information

Source file <PSOORFI6.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Outpatient Pharmacy 7 (CAN,DIV,ULP)^PSOCAN  (KILL,REINS)^PSOCAN2  NOOR^PSOCAN4  (DE,INSTNM)^PSOORFI2  (CHECK,EOP)^PSOORFI3  PDEA^PSOORFI5  GETPARK^PSORPC01  
VA FileMan 3 ^DIC  $$GET1^DIQ  ^DIR  
Pharmacy Data Management 2 (PSOL,PSOUL)^PSSLOCK  $$OIDEA^PSSUTLA1  

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

Package Total Caller Graph
Outpatient Pharmacy 4 PSOORFI2  PSOORFI3  PSOORFI5  PSOORFIN  

Entry Points

Name Comments DBIA/ICR reference
DC
PSPEED
SHOW
SPEED1
SPEED
ASK
ACT
INVALD
KILL
RTEST ;
RTESTA ;
PDATA
ASKDC
DIR(FSORT,FSVAL) ;
PAT() ;
PRMT
RTE() ;
PRI() ;
CLIN() ;
CLIN2
SORT
FLG() ;
CS() ;
SUPPLY() ;
CHKFLTR(IEN,FLTR,CNT) ; CHECK THE SECONDARY FILTER FOR PENDING ORDERS
ISSUPPLY(IEN) ;
PDEA ;
SCRIT ;

External References

Name Field # of Occurrence
^DIC PRMT+5, CLIN2SORT
$$GET1^DIQ CHKFLTR+13, CHKFLTR+19, CHKFLTR+25, CHKFLTR+34, ISSUPPLY+3, ISSUPPLY+4, ISSUPPLY+5, ISSUPPLY+6
^DIR DC+4, ASK+1, INVALD+3, ASKDC+3, DIR+5, DIR+23, PAT+4, PRMT+2, RTE+6, PRI+4
, CLIN+5, SORT+7, CS+5, CS+11
CAN^PSOCAN ACT+1
DIV^PSOCAN SPEED1
ULP^PSOCAN DC+10
KILL^PSOCAN2 KILL
REINS^PSOCAN2 ACT
NOOR^PSOCAN4 DC+3
DE^PSOORFI2 DC+5, DC+8
INSTNM^PSOORFI2 CLIN2+1
CHECK^PSOORFI3 CLIN2+1, SORT+4
EOP^PSOORFI3 SORT+8, SORT+9
PDEA^PSOORFI5 CHKFLTR+43
GETPARK^PSORPC01 RTE+4, CS+3
PSOL^PSSLOCK ASK+3
PSOUL^PSSLOCK ASK+3
$$OIDEA^PSSUTLA1 PDEA+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DC+1
Function Call: WRITE
  • Prompt: !,$P(^PSRX(PSODA,0),"^")," ",DRG,?52,$S($D(^DPT(+$P(^PSRX(PSODA,0),"^",2),0)):$P(^(0),"^"),1:"PATIENT UNKNOWN")
  • Line Location: SHOW+1
Function Call: WRITE
  • Prompt: !?25,"Rx to be Discontinued",!
  • Line Location: SHOW+2
Function Call: WRITE
  • Prompt: !?21,"*** Rx to be Reinstated ***",!
  • Line Location: SHOW+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: INVALD+0
Function Call: WRITE
  • Prompt: "="
  • Line Location: INVALD+0
Function Call: WRITE
  • Prompt: $C(7),!!,"The Following Rx Number(s) Are Invalid Choices, Expired, "_$S($G(PKI):"Digitally Signed",1:""),!,"Discontinued by Provider, or Marked As Deleted:"
  • Line Location: INVALD+1
Function Call: WRITE
  • Prompt: !?10,II
  • Line Location: INVALD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKDC+0
Function Call: WRITE
  • Prompt: !
  • Line Location: CLIN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: CLIN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: CLIN2+0
Function Call: WRITE
  • Prompt: !!,"You are signed in under the "_$G(PSODINST)_" CPRS Ordering",!,"Institution, which does not match the Institution for this Clinic!",!
  • Line Location: CLIN2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SORT+0
Function Call: WRITE
  • Prompt: !!,"There are no Clinics associated with this Sort Group!",!
  • Line Location: SORT+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SORT+5
Function Call: WRITE
  • Prompt: !,"Orders for these Clinics in the Sort Group will not be displayed for Finishing",!,"because the CPRS Ordering Institution does not match the Institution that is",!,"associated with the Clinic:",!
  • Line Location: SORT+5
Function Call: WRITE
  • Prompt: !,$P($G(^SC(PSCLP,0)),"^")
  • Line Location: SORT+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SORT+7
Function Call: WRITE
  • Prompt: !!,"There are no Clinics that have a matching Institution!",!
  • Line Location: SORT+9
Function Call: WRITE
  • Prompt: !!,"Select a schedule(s)"
  • Line Location: CS+8
Routine Call
  • DIC
  • Line Location:
    • PRMT+5
    • CLIN2
    • SORT
Routine Call
  • DIR
  • Line Location:
    • DC+4
    • ASK+1
    • INVALD+3
    • ASKDC+3
    • DIR+5
    • DIR+23
    • PAT+4
    • PRMT+2
    • RTE+6
    • PRI+4
    • CLIN+5
    • SORT+7
    • CS+5
    • CS+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SC - [#44] Classic Fileman Calls
^PSDRUG - [#50] GET1^DIQ
^PS(50.7 - [#50.7] GET1^DIQ
^PS(52.41 - [#52.41] GET1^DIQ
^PS(59.8 - [#59.8] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] SHOW+1
^PS(52.41 - [#52.41] PDATAPDATA+1, PDATA+3, CHKFLTR+30, CHKFLTR+42
^PS(59.8 - [#59.8] SORT+2
^PSDRUG - [#50] SHOWPDEA+1
^PSRX - [#52] PSPEEDSHOWSHOW+1, SPEED1SPEED1+1, SPEED1+3, SPEED1+4, SPEEDACTRTEST+6
RTESTA+3, PDATA+3
^SC - [#44] SORT+2, SORT+6
^TMP($J CLIN+1!, CLIN+6, CLIN2+2*, SORT+2!*, SORT+3!, SORT+4*!, SORT+5, SORT+6, SORT+8, SORT+9!
, CHKFLTR+24, CHKFLTR+26

Label References

Name Line Occurrences
$$ DIR+30
$$ISSUPPLY CHKFLTR+38
ACT ASK+3
ASKDC PDATA+4
CLIN2 CLIN2+1
INVALD SPEED+1, ASKASK+2, ASK+4
PDATA DC+2
PRMT PRMT+8
RTEST DC+10
SHOW SPEED+1
SORT CLIN+6, SORT+3, SORT+9
SPEED DC+10
SPEED1 PSPEEDSPEED

Naked Globals

Name Field # of Occurrence
^("STA" SPEED1+4
^(0 SHOWSHOW+1, SPEEDRTESTA+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACOM DC+7*, DC+8, DC+11!
ACTION DC~, DC+5, DC+9, DC+11!, PDATA+4*
CLIN CHKFLTR+1~, CHKFLTR+25*, CHKFLTR+26
CNT CHKFLTR~
>> DA ACT*
DEAHLDG ISSUPPLY+1~, ISSUPPLY+4*, ISSUPPLY+7
DIC PAT+1~, PRMT+4*, PRMT+5!, CLIN2!*, SORT!*
DIC("A" CLIN2*, SORT*
DIC("S" PRMT+4*
DIC(0 PRMT+4*, CLIN2*, SORT*
DIEN ISSUPPLY+1~, ISSUPPLY+3*, ISSUPPLY+4
DIR DC+1!, DC+4!, ASK+1!, INVALD+2!, INVALD+3!, ASKDC!, ASKDC+3!, DIR+1~, DIR+2!, DIR+5!
, DIR+23!, PAT+1~, PAT+4!, RTE+1~, RTE+2!, RTE+6!, PRI+1~, PRI+2!, PRI+4!, CLIN+3!
, CLIN+5!, SORT+7!, CS+1~, CS+2!, CS+9!, CS+11!
DIR("?" ASKDC+2*, ASKDC+3*, DIR+21*, PAT+3*, PRMT+2*, RTE+3*, CLIN+3*, CLIN+4*
DIR("A" DC+4*, ASK*, INVALD+2*, ASKDC+1*, DIR+4*, DIR+21*, PAT+3*, PRMT+2*, RTE+3*, PRI+3*
, CLIN+3*, SORT+7*, CS+2*, CS+10*
DIR("B" DC+4*, ASK*, ASKDC+1*, DIR+3*, DIR+21*, PAT+3*, RTE+3*, PRI+3*, CLIN+3*, CS+2*
, CS+4*, CS+10*
DIR(0 DC+4*, ASK*, INVALD+2*, ASKDC+1*, DIR+3*, DIR+22*, PAT+3*, PRMT+2*, RTE+3*, RTE+5*
, PRI+3*, CLIN+3*, SORT+7*, CS+2*, CS+4*, CS+10*
DIROUT DC+1!
DIRUT DC+2, DC+3, DC+6!, ASK+1, INVALD+2!, INVALD+3!, ASKDC!, DIR+24, PAT+6, PRMT+3
, RTE+7, PRI+5, CS+6, CS+12
DONE DIR+1~, DIR+8*, DIR+9, DIR+10*
DRG DC+11!, PSPEED, SHOW*, SHOW+1, CHKFLTR+1~
DTOUT DC+1!, DC+2, DC+6!, INVALD+2!, INVALD+3!, ASKDC!, CLIN+5, CLIN2SORT
DUOUT DC+1!, DC+2, DC+6!, INVALD+2!, INVALD+3!, ASKDC!, CLIN+5, CLIN2SORT
FILSTR DIR+1~, DIR+6*, DIR+7, DIR+18*, DIR+19*, DIR+22
FILTER DIR+1~, DIR+10*, DIR+11*, DIR+12, DIR+13, DIR+14, DIR+17, DIR+18, DIR+19
FIRST DIR+1~, DIR+17*, DIR+20*, DIR+21
FLTR CHKFLTR~, CHKFLTR+7, CHKFLTR+8, CHKFLTR+18, CHKFLTR+23, CHKFLTR+40
FLTRTYP CHKFLTR+1~, CHKFLTR+7*, CHKFLTR+10, CHKFLTR+12, CHKFLTR+16, CHKFLTR+22, CHKFLTR+29, CHKFLTR+33, CHKFLTR+37, CHKFLTR+41
FLTRVAL CHKFLTR+1~, CHKFLTR+8*, CHKFLTR+10, CHKFLTR+13, CHKFLTR+18*, CHKFLTR+19, CHKFLTR+34, CHKFLTR+40*, CHKFLTR+42
FSORT DIR~, DIR+6, DIR+12, DIR+13, DIR+14, DIR+21
FSVAL DIR~
>> I INVALD*
IEN CHKFLTR~, CHKFLTR+6, CHKFLTR+13, CHKFLTR+19, CHKFLTR+25, CHKFLTR+30, CHKFLTR+34, CHKFLTR+38, CHKFLTR+42, ISSUPPLY~
, ISSUPPLY+3, ISSUPPLY+5
>> II SPEED+1*, ACT*, INVALD+1*
>> IN SPEEDPDATA+1*
INCOM DC+8*, DC+11!
IOF SORT+5, SORT+7
IOSL SORT+6
J DIR+1~, DIR+9*
JCNT DIR+1~, DIR+8*, DIR+17*
>> LC SHOW+1*
LINE DC+11!, RTEST+1, RTEST+3, PDATA+1*, PDATA+2
LST DC~
OR0 CHKFLTR+1~, CHKFLTR+42*, PDEA+1, PDEA+2
>> ORD PDATAPDATA+1, PDATA+3
ORITEM ISSUPPLY+1~, ISSUPPLY+5*, ISSUPPLY+6
ORSUP ISSUPPLY+1~, ISSUPPLY+6*, ISSUPPLY+7
>> PAT PRMT+7*, PRMT+9*
PCIN RTEST+2~, RTEST+3*
PCINFLAG RTEST+2~, RTEST+3*, RTEST+6*, RTEST+7
PCINX RTEST+2~, RTEST+3*, RTEST+4, RTEST+5, RTEST+6
>> PDEA CHKFLTR+42*, CHKFLTR+43, PDEA+1*, PDEA+2*, PDEA+3*, PDEA+4*, PDEA+5*
PFIN RTESTA+1~, RTESTA+2*, RTESTA+3
PFINFLAG RTESTA+1~, RTESTA+2*, RTESTA+3*, RTESTA+4
PFINZ RTESTA+1~, RTESTA+2*, RTESTA+3
PKI SPEED1+3*, SPEED~, INVALD+1
PSCAN SPEED!, SPEED+1, ASKASK+2!, INVALD!
PSCAN( SPEED1+5*, SPEED+1, ASK+3, ACT
PSCLP CLIN+2~, SORT+2*, SORT+4*, SORT+6*
PSI DC~, PDATA+1*
PSINV SPEED!, INVALDINVALD+2!
PSINV( PSPEEDSPEED1+3*, SPEED1+4*, SPEED*, INVALD+1
PSOCAN DC+11!
PSOCAN( RTEST+5, RTEST+6, PDATA+1*
>> PSOCANRD RTEST+6*, RTESTA+3*
>> PSOCANRZ RTEST+7*, RTESTA+4*
PSOCFLAG CLIN+2~, CLIN2+1, SORT+4
PSOCLIN CLIN+1!, CLIN2+1*, CLIN2+2!, SORT+4*
PSOCLINF CLIN+1!, CLIN2+1*
PSOCLINS CLIN+2~, SORT+1*, SORT+2
PSOCSRT CS+1~, CS+7*, CS+13
PSOCTMP CLIN+2~
PSODA DC+11!, PSPEED*, SHOWSHOW+1, SPEED1SPEED1+1, SPEED1+3, SPEED1+5, SPEED*, SPEED+1*
PSODFLG DC~, DC+5, DC+9, PDATA+3*
>> PSODFN ACT*, PRMT+7*, PRMT+9*
PSODIEN CLIN+2~
PSODINST CLIN2+1!
>> PSODIV SPEED1
PSOELSE DC+1!, DC+2*, DC+5!, DC+6!
>> PSOERR INVALD+2
>> PSOERR("DEAD" DC+2
>> PSOFINY PRMT+7*, PRMT+9*
PSOINPTR CLIN+2~
PSOLGD CLIN+2~
>> PSOLST( PDATA+1
PSOMSG ASK+3, KILL+1!
PSONOOR DC+5*, DC+8, DC+10*, DC+11!
PSONOORS DC~, DC+8*, DC+10, DC+11!
PSONPTRX CLIN+2~
PSOOPT DC~, DC+11!, ACT+1*
PSOPARKX RTE+1~, CS+1~
PSOPARKX(0 RTE+5, CS+4
PSOPLCK KILL+1!
>> PSOSD( PSPEEDRTESTA+2, RTESTA+3
>> PSOSDX(0 ASK+1, ASK+2
PSOSDXY DC+11!, ASK+1*, ASK+2*
>> PSOSITE SPEED1
PSOSORT PAT+1~, PAT+2*, PRMTPRMT+1*, PRMT+2*, PRMT+3*, PRMT+6*, PRMT+9*, PRMT+10*, PRMT+11
, RTE+1~, RTE+2*, RTE+8*, RTE+9, PRI+1~, PRI+2*, PRI+6*, PRI+7, CS+1~, CS+9*
, CS+13*, CS+14
PSOSTC CLIN+2~, SORT+2*
PSOULRX KILL+1!
PSOWUN KILL+1!
PSOXINST CLIN+1!
>> PSPOP PSPEED, SPEED1*, SPEED1+4, SPEED1+5
>> PSRT CHKFLTR+42*, CHKFLTR+43, PDEA+3, PDEA+4, PDEA+5
REA DC+11!, PSPEED+1, SHOW+2, SPEED1+1*, SPEED1+2, SPEED1+3, SPEED1+4, SPEED1+5, SPEED+1*, ASK
, ACT*
RES DIR+1~, DIR+26*, DIR+27, DIR+34, CHKFLTR+1~, CHKFLTR+12, CHKFLTR+13*, CHKFLTR+14*, CHKFLTR+16, CHKFLTR+18*
, CHKFLTR+19*, CHKFLTR+20*, CHKFLTR+22, CHKFLTR+23*, CHKFLTR+24*, CHKFLTR+25*, CHKFLTR+26*, CHKFLTR+27*, CHKFLTR+29, CHKFLTR+30*
, CHKFLTR+31*, CHKFLTR+33, CHKFLTR+34*, CHKFLTR+35*, CHKFLTR+37, CHKFLTR+38*, CHKFLTR+41, CHKFLTR+43*, CHKFLTR+44*, ISSUPPLY+1~
, ISSUPPLY+2*, ISSUPPLY+7*, ISSUPPLY+8
RESULTS RTE+1~, RTE+4*, CS+1~, CS+3*
RLINE DIR+1~, DIR+27*, DIR+28, DIR+29
RX DC+11!, PSPEED*, SPEED1+3, SPEED1+4, SPEED1+5, SPEED*, ASK+3*, ACT
RXCNT DC+11!, SPEED1+5*, SPEED+1*, ASK
SEL PAT+1~, PAT+5*, PAT+6, PRMTPRMT+10
>> SPEED PSPEED+1, SPEED1SPEED1+2, INVALD+2
>> STA PSPEED
STAG DIR+1~, DIR+29*, DIR+30
STAT SPEED1+1!*
SVAL DIR+1~, DIR+30*, DIR+31, DIR+32, DIR+34
U DIR+22, DIR+24, DIR+31, DIR+34, PAT+6, PRMT+1, PRMT+8, PRMT+9, PRMT+10, RTE+7
, PRI+5, CLIN+5, CS+6, CS+12, CS+13, CHKFLTR+7, CHKFLTR+8, CHKFLTR+18, CHKFLTR+23, CHKFLTR+40
>> VALMBCK DC+5*
VALMCNT DC+1~
>> X PRMT+2, PRMT+6
Y DC+6!, DC+7, DC+12*, ASK+2, PDATA+4, DIR+1~, DIR+5!, DIR+24, DIR+25, DIR+26
, PAT+1~, PAT+5, PRMT+7, PRMT+8, PRMT+9, RTE+1~, RTE+7, RTE+8, PRI+1~, PRI+6
, CLIN+5, CLIN+6, CLIN2CLIN2+1, SORTSORT+1, CS+1~, CS+6, CS+7, CS+12
, CS+13
>> YY PSPEED*, SPEED1+4, SPEED*

Marked Items

Name Field # of Occurrence
$T(SCRIT+J DIR+10
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 |  Marked Items  | All