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

Package: Outpatient Pharmacy

Routine: PSOREF0


Information

PSOREF0 ;IHS/JCM - REFILL CON'T ; 6/17/11 6:02pm

Source Information

Source file <PSOREF0.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Outpatient Pharmacy 7 ^PSOPTPST  EN^PSOR52  PROFILE^PSOREF1  LOOK^PSOREF2  (NEXT,STATUS,SUSDATE,SUSDATEK)^PSOUTIL  FSIG^PSOUTLA  ($$DEACHK,EN2)^PSOUTLA1  
VA FileMan 2 DD^%DT  ^DIR  
List Manager 1 PAUSE^VALM1  

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

Package Total Caller Graph
Outpatient Pharmacy 3 PSOBBC  PSOORFI2  PSOREF  

Entry Points

Name Comments DBIA/ICR reference
DATES
NEWPT
DSPLYX
CHKDIV
PROCESS ;
EDATE
DATESX
NUMBER
PROCESSX
DSPLY ;W !!,$P(PSOREF("RX0"),"^"),?12," ",$P(^PSDRUG($P(PSOREF("RX0"),"^",6),0),"^"),?45," SIG: "_PSOREF("SIG"),?60," QTY: ",$P(PSOREF("RX0"),"^",7)
CKQ ;
CHECKX
EN(PSOREF)
NEWPTX
CHKDIVX
CHECK ;
DIR

External References

Name Field # of Occurrence
DD^%DT EDATE+11
^DIR CHECK+30, DIR+1
^PSOPTPST NEWPT
EN^PSOR52 PROCESS+8
PROFILE^PSOREF1 NEWPT+1
LOOK^PSOREF2 CHECK+10
NEXT^PSOUTIL DATES
STATUS^PSOUTIL CHECK+7
SUSDATE^PSOUTIL DATES+3
SUSDATEK^PSOUTIL PROCESSX
FSIG^PSOUTLA DSPLY+1
$$DEACHK^PSOUTLA1 CHECK+26
EN2^PSOUTLA1 DSPLY+2
PAUSE^VALM1 CKQ+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Now refilling Rx# ",$P(PSOREF("RX0"),"^")_" Drug: "_$P(^PSDRUG($P(PSOREF("RX0"),"^",6),0),"^")
  • Line Location: PROCESS+4
Function Call: WRITE
  • Prompt: !!,"Qty: ",$P(PSOREF("RX0"),"^",7),?19,"Sig: ",$G(BSIG(1))
  • Line Location: DSPLY+3
Function Call: WRITE
  • Prompt: !?24,$G(BSIG(PSREV))
  • Line Location: DSPLY+4
Function Call: WRITE
  • Prompt: !!,?5,$C(7),"Can't refill Rx # "_$P(PSOREF("RX0"),"^")_", it is not for this patient."
  • Line Location: CHECK+3
Function Call: WRITE
  • Prompt: !,$C(7),"Cannot refill, Rx is discontinued or expired. Later Rx may exist.",!
  • Line Location: CHECK+9
Function Call: WRITE
  • Prompt: !,$C(7),"Rx is in suspense and cannot be refilled"
  • Line Location: CHECK+13
Function Call: WRITE
  • Prompt: !,$C(7),"Rx is in "_PSOY_" status, cannot be refilled"
  • Line Location: CHECK+18
Function Call: WRITE
  • Prompt: !?5,"Can't refill, no refills remaining."
  • Line Location: CHECK+20
Function Call: WRITE
  • Prompt: $C(7),!!
  • Line Location: CHECK+27
Function Call: WRITE
  • Prompt: "Requested refill exceeds maximum allowable days supply for Rx.",!
  • Line Location: CHECK+28
Function Call: WRITE
  • Prompt: "Current drug DEA/SPECIAL HANDLING code does not allow refills.",!
  • Line Location: CHECK+29
Function Call: WRITE
  • Prompt: !?5,$C(7),"RX # ",$P(PSOREF("RX0"),"^")," is for (",$P(^PS(59,$P(PSOREF("RX2"),"^",9),0),"^"),") division."
  • Line Location: CHKDIV+1
Function Call: WRITE
  • Prompt: !,"********* Not Refilled *********"
  • Line Location: CHKDIV+2
Function Call: WRITE
  • Prompt: !!?5,$C(7),"Can't refill, Refill Date ",$E(PSOREF("FILL DATE"),4,5),"/",$E(PSOREF("FILL DATE"),6,7),"/"
  • Line Location: DATES+6
Function Call: WRITE
  • Prompt: $E(PSOREF("FILL DATE"),2,3)," is past Expiration Date ",$E(PSOREF("STOP DATE"),4,5),"/",$E(PSOREF("STOP DATE"),6,7),"/"
  • Line Location: DATES+7
Function Call: WRITE
  • Prompt: $E(PSOREF("STOP DATE"),2,3)
  • Line Location: DATES+8
Function Call: WRITE
  • Prompt: !?5,"Can't refill, Fill Date already exists for ",$E(PSOREF("FILL DATE"),4,5),"/",$E(PSOREF("FILL DATE"),6,7),"/",$E(PSOREF("FILL DATE"),2,3)
  • Line Location: EDATE+2
Function Call: WRITE
  • Prompt: !?5,"Can't refill, later Refill Date already exists for ",$E(PSOREF("LAST REFILL DATE"),4,5),"/",$E(PSOREF("LAST REFILL DATE"),6,7),"/",$E(PSOREF("LAST REFILL DATE"),2,3)
  • Line Location: EDATE+5
Function Call: WRITE
  • Prompt: !?5,$C(7),"LESS THAN ",PSOX1," DAYS FOR ",PSOREF("NUMBER")+1," FILLS",!
  • Line Location: EDATE+9
Function Call: WRITE
  • Prompt: !!,$C(7),"Cannot be refilled until "_Y_"."
  • Line Location: EDATE+11
Routine Call
  • DIR
  • Line Location:
    • CHECK+30
    • DIR+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(52 CHECK+17
^PS(52.5 - [#52.5] CHECK+13
^PS(59 - [#59] CHKDIV+1
^PSDRUG - [#50] PROCESS+4, CHECK+1, CHECK+24
^PSRX - [#52] PROCESS+1, DSPLY+1, DSPLY+2, NUMBER+1

Label References

Name Line Occurrences
CHECK PROCESS+8
CHECKX CHECK+12, CHECK+13, CHECK+16, CHECK+19, CHECK+20, CHECK+27, CKQ+1
CHKDIV CHECK+19
CHKDIVX CHKDIV, CHKDIV+2
CKQ CHECK+1, CHECK+3
DATES CHECK+32
DATESX EDATE+1, EDATE+4
DIR CHKDIV+3, EDATE+9
DSPLY PROCESS+6
EDATE DATES+1
NEWPT PROCESS+3
NEWPTX NEWPT
NUMBER CHECK+20
PROCESS PROCESS+8, EN+1
PROCESSX PROCESS+6, PROCESS+8

Naked Globals

Name Field # of Occurrence
^("I" CHECK+1
^("SIG" PROCESS+1
^("STA" PROCESS+1
^(2 PROCESS+1
^(3 PROCESS+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BINGCRT PROCESS+9*
>> BINGRTE PROCESS+9*
BSIG DSPLY+1!, DSPLY+5!
BSIG( DSPLY+1*, DSPLY+4
BSIG(1 DSPLY+3, DSPLY+4
>> DFN NEWPT*
DIR CHECK+30~, DIR!, DIR+1!
DIR("?" DIR*
DIR("A" CHECK+30*, DIR*
DIR("B" DIR*
DIR(0 CHECK+30*, DIR*
DIRUT CHECK+30~, DIR+1!
DRUG EN+1!
DT CHECK+1, DATES+2
DTOUT CHECK+30~, DIR+1!
DUOUT CHECK+30~, DIR+1!
FSIG DSPLY+1!, DSPLY+2!
FSIG( DSPLY+1
>> PSOBBC("QFLG" DATES+1
PSOCHECK CHECK+23~, CHECK+26*, CHECK+27, CHECK+28
PSODAY CHECK+23~, CHECK+25*, CHECK+26
PSODEA CHECK+23~, CHECK+24*, CHECK+26
PSODF PROCESS+1!, PROCESS+8, CHECK+9, CHECK+10, EN+1!
>> PSODFN PROCESS+3, CHECK+3, NEWPT*
PSODRG CHECK+23~, CHECK+24*
>> PSOERR CHECK+6
>> PSOHRC PROCESS+7
>> PSOHRCF PROCESS+7*
>> PSOMHV CHKDIV+2*, EDATE+11*, DIR+1*
>> PSOPAR CHECK+1, DATES+1, DATES+3, EDATE+7, EDATE+10
>> PSOQFLG NEWPT*
PSOREA CHECK+6*, CHECK+7!
PSOREF PROCESS+8, PROCESSX, DATES, DATES+3, EN~
PSOREF("# OF REFILLS" , NUMBER*, NUMBER+1*, NUMBER+2
PSOREF("DAYS SUPPLY" , PROCESS+2*, EDATE+8
PSOREF("DFLG" PROCESS+6*, PROCESS+8, CHECK+5, CHECK+6*, CHECK+11*, CHECK+12, CHECK+13*, CHECK+18*, CHECK+19, CHECK+20*
, CHECK+27*, CKQ+1*, CHKDIV+2*, DATES+1, DATES+8*, EDATE+3*, EDATE+6*, EDATE+11*, DIR+1*, NEWPT*
PSOREF("EAOK" EDATE+7, EDATE+10
PSOREF("FILL DATE" , DATES+2*, DATES+3, DATES+5, DATES+6, DATES+7, EDATE+1, EDATE+2, EDATE+4, EDATE+7
, EDATE+10
PSOREF("IRXN" PROCESS+1, PROCESS+5, DSPLY+1, DSPLY+2, CHECK+5, CHECK+13, CHECK+26, NUMBER+1
PSOREF("LAST REFILL DATE" , EDATE*, EDATE+1, EDATE+4, EDATE+5
PSOREF("MAIL/WINDOW" PROCESS+7*, PROCESS+9
PSOREF("NUMBER" CHECK+20, NUMBER+2*, EDATE+8, EDATE+9
PSOREF("OLD F ILL DATE" , PROCESSX
PSOREF("PSODFN" PROCESS+1*, PROCESS+3, CHECK+3, NEWPT
PSOREF("QS" PROCESS+7*
PSOREF("RX0" PROCESS+1*, PROCESS+2, PROCESS+4, DSPLY+3, CHECK+1, CHECK+2, CHECK+3, CHECK+6, CHECK+20, CHECK+24
, CHECK+25, CHKDIV+1
PSOREF("RX2" PROCESS+1*, CHKDIV, CHKDIV+1, DATES
PSOREF("RX3" PROCESS+1*, DATES+3, EDATE, EDATE+7, EDATE+10, EDATE+11
PSOREF("RXSTATUS" CHECK+15*, CHECK+16, CHECK+17
PSOREF("SIG" PROCESS+1*
PSOREF("STA" PROCESS+1*, CHECK+6, CHECK+15
PSOREF("STOP DATE" , DATES*, DATES+5, DATES+7, DATES+8
>> PSORX("BAR CO DE" , PROCESS+3, CHECK+3
>> PSORX("MAIL/WINDOW" PROCESS+7*
>> PSOSD CHECK+5
>> PSOSD( CHECK+5
>> PSOSITE CHKDIV
PSOSTAT CHECK+6*, CHECK+7!
>> PSOSYS CHKDIV+2, CHKDIV+3
PSOX CHECK+4*, CHECK+5*, CHECK+12!, CHECK+17*, NUMBER!, NUMBER+1*
PSOX1 EDATE+8*, EDATE+9!
PSOY CHECK+4*, CHECK+5*, CHECK+6, CHECK+9, CHECK+12!, CHECK+17*, CHECK+18, NUMBER!
PSREV DSPLY+1*, DSPLY+2!, DSPLY+4*, DSPLY+5!
>> STA CHECK+4*, CHECK+5*
U CHECK+24, CHECK+25
VALMHDR PROCESS+7!
X DIR!, DIR+1!
Y EDATE+11*!, DIR!, DIR+1!
>> ZD( PROCESS+5!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All