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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSOORFI6

Package: Outpatient Pharmacy

Routine: PSOORFI6


Information

PSOORFI6 ;BIR/SJA-finish cprs orders cont. ;01/05/07

Source Information

Source file <PSOORFI6.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Outpatient Pharmacy 4 (CAN,DIV,ULP)^PSOCAN  (KILL,REINS)^PSOCAN2  NOOR^PSOCAN4  DE^PSOORFI2  
Pharmacy Data Management 1 (PSOL,PSOUL)^PSSLOCK  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSOORFI2  

Entry Points

Name Comments DBIA/ICR reference
INVALD
SHOW
PDATA
SPEED1
RTESTA ;
DC
PSPEED
KILL
ACT
ASK
ASKDC
SPEED
RTEST ;

External References

Name Field # of Occurrence
^DIR DC+4, ASK+1, INVALD+3, ASKDC+3
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
PSOL^PSSLOCK ASK+3
PSOUL^PSSLOCK ASK+3

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
Routine Call
  • DIR
  • Line Location:
    • DC+4
    • ASK+1
    • INVALD+3
    • ASKDC+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] SHOW+1
^PS(52.41 - [#52.41] PDATA, PDATA+1, PDATA+3
^PSDRUG - [#50] SHOW
^PSRX - [#52] PSPEED, SHOW, SHOW+1, SPEED1, SPEED1+1, SPEED1+3, SPEED1+4, SPEED, ACT, RTEST+6
, RTESTA+3, PDATA+3

Label References

Name Line Occurrences
ACT ASK+3
ASKDC PDATA+4
INVALD SPEED+1, ASK, ASK+2, ASK+4
PDATA DC+2
RTEST DC+10
SHOW SPEED+1
SPEED DC+10
SPEED1 PSPEED, SPEED

Naked Globals

Name Field # of Occurrence
^("STA" SPEED1+4
^(0 SHOW, SHOW+1, SPEED, RTESTA+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*
>> DA ACT*
DIR DC+1!, DC+4!, ASK+1!, INVALD+2!, INVALD+3!, ASKDC!, ASKDC+3!
DIR("?" ASKDC+2*, ASKDC+3*
DIR("A" DC+4*, ASK*, INVALD+2*, ASKDC+1*
DIR("B" DC+4*, ASK*, ASKDC+1*
DIR(0 DC+4*, ASK*, INVALD+2*, ASKDC+1*
DIROUT DC+1!
DIRUT DC+2, DC+3, DC+6!, ASK+1, INVALD+2!, INVALD+3!, ASKDC!
DRG DC+11!, PSPEED, SHOW*, SHOW+1
DTOUT DC+1!, DC+2, DC+6!, INVALD+2!, INVALD+3!, ASKDC!
DUOUT DC+1!, DC+2, DC+6!, INVALD+2!, INVALD+3!, ASKDC!
>> I INVALD*
>> II SPEED+1*, ACT*, INVALD+1*
>> IN SPEED, PDATA+1*
INCOM DC+8*, DC+11!
>> LC SHOW+1*
LINE DC+11!, RTEST+1, RTEST+3, PDATA+1*, PDATA+2
LST DC~
>> ORD PDATA, PDATA+1, PDATA+3
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
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, ASK, ASK+2!, INVALD!
PSCAN( SPEED1+5*, SPEED+1, ASK+3, ACT
PSI DC~, PDATA+1*
PSINV SPEED!, INVALD, INVALD+2!
PSINV( PSPEED, SPEED1+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*
PSODA DC+11!, PSPEED*, SHOW, SHOW+1, SPEED1, SPEED1+1, SPEED1+3, SPEED1+5, SPEED*, SPEED+1*
PSODFLG DC~, DC+5, DC+9, PDATA+3*
>> PSODFN ACT*
>> PSODIV SPEED1
PSOELSE DC+1!, DC+2*, DC+5!, DC+6!
>> PSOERR INVALD+2
>> PSOERR("DEAD" DC+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!
PSOOPT DC~, DC+11!, ACT+1*
PSOPLCK KILL+1!
>> PSOSD( PSPEED, RTESTA+2, RTESTA+3
>> PSOSDX(0 ASK+1, ASK+2
PSOSDXY DC+11!, ASK+1*, ASK+2*
>> PSOSITE SPEED1
PSOULRX KILL+1!
PSOWUN KILL+1!
>> PSPOP PSPEED, SPEED1*, SPEED1+4, SPEED1+5
REA DC+11!, PSPEED+1, SHOW+2, SPEED1+1*, SPEED1+2, SPEED1+3, SPEED1+4, SPEED1+5, SPEED+1*, ASK
, ACT*
RX DC+11!, PSPEED*, SPEED1+3, SPEED1+4, SPEED1+5, SPEED*, ASK+3*, ACT
RXCNT DC+11!, SPEED1+5*, SPEED+1*, ASK
>> SPEED PSPEED+1, SPEED1, SPEED1+2, INVALD+2
>> STA PSPEED
STAT SPEED1+1!*
>> VALMBCK DC+5*
VALMCNT DC+1~
Y DC+6!, DC+7, DC+12*, ASK+2, PDATA+4
>> YY PSPEED*, SPEED1+4, SPEED*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All