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

Package: Outpatient Pharmacy

Routine: PSOCAN1


Information

PSOCAN1 ;BIR/BHW - modular rx cancel with speed cancel ability ;12/03/18 11:04

Source Information

Source file <PSOCAN1.m>

Call Graph

Call Graph

Call Graph Total: 21

Package Total Call Graph
Outpatient Pharmacy 15 ^PSOBUILD  (,CAN,CHK,DIV,ULP)^PSOCAN  (KILL,REINS)^PSOCAN2  (KCAN,KCAN1)^PSOCAN3  NOOR^PSOCAN4  ICN^PSODPT  ^PSODSPL  EXP^PSOHELP1  
EN^PSOHLSN  EN^PSOHLUP  DCORD^PSONEW2  LOCK^PSOORCPY  ADR^PSOPKIV1  PSOINST^PSOSUPAT  $$CONJ^PSOUTL  
VA FileMan 5 NOW^%DTC  ^DIC  FILE^DIE  $$GET1^DIQ  ^DIR  
Pharmacy Data Management 1 ($$L,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: 5

Package Total Caller Graph
Outpatient Pharmacy 5 PSOCAN  PSOCAN2  PSOCAN3  PSOCAN4  PSOREJU1  

Entry Points

Name Comments DBIA/ICR reference
PAT
BC
NAM
LINE
PSPEED
SHOW
PSHOW
SHOW1 ;S LC=LC+3 I LC>20 R !,"Press return to continue",X:DTIME G:X'="" SHOW1 S LC=0
SPEED1
AREC
  • ICR #7634
    • Status: Withdrawn
    • Usage: Controlled Subscription
    SPEED ;
    ASK
    ACT
    INVALD
    LISTPAT
    COM ;
    ; PSO*7*508 - if this is an eRx, set the comments and nature of order and quit - no user interaction
    KILL
    PEN ;discontinue pending orders
    RTEST ;
    RTESTA ;
    ONOFF ;

    External References

    Name Field # of Occurrence
    NOW^%DTC NAM+13, AREC+2
    ^DIC NAM, LISTPAT
    FILE^DIE NAM+17
    $$GET1^DIQ COM+3
    ^DIR PAT+2, BC, NAM+7, LINE+2, SHOW1+1, ASK, INVALD+2, COM+13
    ^PSOBUILD NAM+3
    ^PSOCAN PAT+2
    CAN^PSOCAN ACT+1
    CHK^PSOCAN NAM+3
    DIV^PSOCAN SPEED1
    ULP^PSOCAN NAM+7, NAM+8, NAM+20, LINE+2, LINE+6
    KILL^PSOCAN2 KILL
    REINS^PSOCAN2 ACT
    KCAN^PSOCAN3 NAM
    KCAN1^PSOCAN3 BC
    NOOR^PSOCAN4 COM+15
    ICN^PSODPT BC+3
    ^PSODSPL NAM+3
    EXP^PSOHELP1 AREC+4
    EN^PSOHLSN PEN+3
    EN^PSOHLUP NAM
    DCORD^PSONEW2 ACT
    LOCK^PSOORCPY NAM+5
    ADR^PSOPKIV1 AREC+3
    PSOINST^PSOSUPAT BC+1
    $$CONJ^PSOUTL SPEED1+2
    $$L^PSSLOCK NAM+5
    PSOL^PSSLOCK NAM+21, SPEED+3, ASK+2
    PSOUL^PSSLOCK NAM+21, SPEED+3, ASK+2

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: PAT+0
    Function Call: WRITE
    • Prompt: !
    • Line Location: BC+0
    Function Call: WRITE
    • Prompt: " ",$P($G(^DPT(PSODFN,0)),"^")
    • Line Location: BC+2
    Function Call: WRITE
    • Prompt: !,$C(7),"No Prescription record for this barcode."
    • Line Location: BC+4
    Function Call: WRITE
    • Prompt: !
    • Line Location: NAM+6
    Function Call: WRITE
    • Prompt: !!
    • Line Location: LINE+0
    Function Call: WRITE
    • Prompt: !?53,$C(7),"INVALID LINE NUMBER(S)."
    • Line Location: LINE+2
    Function Call: WRITE
    • Prompt: !,$P(^PSRX(DA,0),"^")," ",DRG,?52,$S($D(^DPT(+$P(^PSRX(DA,0),"^",2),0)):$P(^(0),"^"),1:"PATIENT UNKNOWN")
    • Line Location: PSHOW+0
    Function Call: WRITE
    • Prompt: !?25,"Rx to be Discontinued",!
    • Line Location: PSHOW+1
    Function Call: WRITE
    • Prompt: !?21,"*** Rx to be Reinstated ***",!
    • Line Location: PSHOW+2
    Function Call: READ
    • Formatting: !
    • Prompt: "Press return to continue"
    • Variable: X
    • Timeout: DTIME
    • Line Location: SHOW1+0
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: SHOW1+1
    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, invalid except conjunction or Marked As Deleted:"
    • Line Location: INVALD+1
    Function Call: WRITE
    • Prompt: !?10,II
    • Line Location: INVALD+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: COM+8
    Routine Call
    • DIC
    • Line Location:
      • NAM
      • LISTPAT
    Routine Call
    • DIE
    • Line Location:
      • NAM+17
    Routine Call
    • DIR
    • Line Location:
      • PAT+2
      • BC
      • NAM+7
      • LINE+2
      • SHOW1+1
      • ASK
      • INVALD+2
      • COM+13

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] Classic Fileman Calls
    ^PS(52.49 - [#52.49] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DPT - [#2] BC+2, PSHOW
    ^PS(52.41 - [#52.41] PEN+2!*, PEN+3, RTEST+7, RTESTA+4
    ^PS(55 - [#55] NAM
    ^PSDRUG - [#50] SHOW
    ^PSRX - [#52] BC+1, BC+2, BC+4, PSPEED, SHOW, PSHOW, SPEED1, SPEED1+1, SPEED1+4, SPEED1+5
    , AREC, AREC+1, AREC+2*, SPEED+4, ACT, RTEST+6, RTESTA+3

    Label References

    Name Line Occurrences
    ACT ASK+2
    ASK NAM+20
    BC BC+5, LINE+6
    COM NAM+8, SPEED+1
    INVALD SPEED+5, SPEED+6, ASK, ASK+1, ASK+3
    KILL LINE+2, INVALD+3
    LINE NAM+8, LINE+2
    NAM NAM+3, NAM+8, LINE+6
    ONOFF NAM+4
    PAT BC, NAM, NAM+5, NAM+7, NAM+20
    PEN NAM+21, SPEED+3
    PSPEED NAM+19
    RTEST LINE+6
    RTESTA NAM+8
    SHOW SPEED+6
    SHOW1 PSHOW+1
    SPEED LINE+6
    SPEED1 PSPEED, SPEED+4

    Naked Globals

    Name Field # of Occurrence
    ^("STA" SPEED1+5
    ^(0 SHOW, PSHOW, SPEED+4, RTESTA+3

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % NAM+16, AREC+2
    >> ACNT AREC*, AREC+2, AREC+3
    >> ACOM AREC+2*
    >> ALL NAM+8*, SPEED+5
    ASKED PAT!
    BC PAT!, PAT+2*, BC, NAM, LINE+6
    >> BCNUM BC*, BC+1
    >> CNT LINE+3*, LINE+4*, LINE+5*
    >> DA NAM+10*, NAM+21*, PSPEED*, SHOW, PSHOW, SPEED1, SPEED1+1, SPEED1+2, SPEED1+4, SPEED1+6
    , AREC, AREC+1, AREC+2, SPEED+1*, SPEED+2*, SPEED+3, SPEED+4, SPEED+6*, ACT*, PEN+1
    , PEN+2, PEN+3, PEN+4*
    >> DEAD NAM+3, AREC
    DELCNT PAT!
    DIC NAM*!, LISTPAT*!
    DIC(0 NAM*, LISTPAT*
    DIR PAT+2!, BC!, NAM+7!, LINE+2!, SHOW1+1!, ASK!, INVALD+2!, COM+13!, COM+14!
    DIR("?" PAT+1*, BC*, NAM+7*, LINE*, LINE+1*, LINE+2*, SHOW1+1*, COM+11*
    DIR("A" PAT*, BC*, NAM+6*, LINE*, SHOW1+1*, ASK*, INVALD+2*, COM+10*
    DIR("B" ASK*, COM+12*
    DIR(0 PAT*, BC*, NAM+6*, LINE*, SHOW1+1*, ASK*, INVALD+2*, COM+10*
    DIRUT PAT+2, BC, NAM+7, NAM+8, LINE+2, SHOW1+1!, SPEED+1, ASK, INVALD+2!, COM+13
    , COM+14!
    >> DRG NAM+9*, NAM+10, LINE+3*, LINE+4*, PSPEED, SHOW*, PSHOW
    >> DRUG NAM+9*
    DTOUT NAM, SHOW1+1!, INVALD+2!, COM+13!, COM+14!
    DUOUT NAM, SHOW1+1!, INVALD+2!, COM+13!, COM+14!
    DUZ AREC+2
    >> ERXDCIEN COM+2, COM+3
    >> I INVALD*
    >> II NAM+9*, SPEED+1*, SPEED+6*, ACT*, INVALD+1*
    >> IN NAM+9*, LINE+3*, LINE+5*, SPEED+1
    >> INCOM NAM+8, AREC+2, SPEED+1, COM+3*, COM+4*, COM+12, COM+14*, PEN+2, PEN+3
    IOF SHOW1+1
    IOSL SHOW1+1
    J AREC+3~*
    >> LC PSHOW*
    >> LINE LINE+3*, LINE+5, RTEST+1, RTEST+3
    MSG AREC+2, COM+9!
    >> OUT BC*, BC+1, BC+4*, BC+5
    PCIN RTEST+2~, RTEST+3*
    PCINFLAG RTEST+2~, RTEST+3*, RTEST+6*, RTEST+7*, RTEST+8
    PCINX RTEST+2~, RTEST+3*, RTEST+4, RTEST+5, RTEST+6, RTEST+7
    PENCAN NAM+9!, NAM+20!, NAM+21*
    PFIN RTESTA+1~, RTESTA+2*, RTESTA+3, RTESTA+4
    PFINFLAG RTESTA+1~, RTESTA+2*, RTESTA+3*, RTESTA+4*, RTESTA+5
    PFINZ RTESTA+1~, RTESTA+2*, RTESTA+3, RTESTA+4
    PKI SPEED1+4*, SPEED+1~, INVALD+1
    >> PKIR AREC+3, COM+10, COM+14*
    >> PLINE LINE+5*
    PSCAN LINE+3!, SPEED+1!, SPEED+6, ASK, ASK+1!, INVALD!
    PSCAN( SPEED1+6*, AREC, SPEED+6, ASK+2, ACT
    >> PSFROM NAM+3*
    PSINV SPEED+1!, INVALD, INVALD+2!
    PSINV( PSPEED, SPEED1+2*, SPEED1+4*, SPEED1+5*, SPEED+4*, SPEED+5, INVALD+1
    PSOCAN LINE+3!
    PSOCAN( LINE+4*, LINE+5, RTEST+5, RTEST+6, RTEST+7
    PSOCANPN NAM+9!, NAM+18*, NAM+20!
    >> PSOCANRA NAM*
    >> PSOCANRD RTEST+6*, RTEST+7*, RTESTA+3*, RTESTA+4*
    >> PSOCANRZ RTEST+8*, RTESTA+5*
    PSODAPND PEN+1*, PEN+4!
    PSODFN PAT!, BC+2*, BC+3, NAM*, NAM+1, NAM+5, NAM+15, NAM+16, ACT*
    >> PSODIV SPEED1
    >> PSOERR INVALD+2
    >> PSOHI LINE
    PSOLOUD NAM*!
    PSOMSG NAM+21, SPEED+3, ASK+2, KILL+1!
    PSONEW NAM+3~
    >> PSONOOR PEN+3
    >> PSOODOSP NAM+1*
    >> PSOOI NAM+15, NAM+16
    >> PSOONOFO NAM+2*
    >> PSOONOR COM+6*
    >> PSOOPT NAM+3*
    PSOPLCK NAM+5*!, KILL+1!
    PSOREINF NAM+1!, NAM+2, ONOFF+1, ONOFF+2*
    PSORX NAM+3~
    PSORX("DFLG" ACT
    PSORX("DOSING INFO" , NAM+2, ONOFF+1*, ONOFF+2,  OFF" , NAM+1!
    PSOSD NAM+3!, LINE
    PSOSD( NAM+9, NAM+10, LINE+4, PSPEED, RTESTA+2, RTESTA+3, RTESTA+4
    PSOSDX NAM+9!, NAM+20!
    PSOSDX( NAM+10*, NAM+21
    PSOSDX(0 NAM+20, ASK, ASK+1
    PSOSDXY NAM+9!, NAM+20!, ASK*, ASK+1*
    >> PSOSITE SPEED1
    PSOULRX KILL+1!
    PSOWUN KILL+1!
    >> PSPOP PSPEED, SPEED1*, SPEED1+5, SPEED1+6
    >> REA NAM+20, PSPEED+1, PSHOW+1, SPEED1+1*, SPEED1+3, SPEED1+4, SPEED1+5, SPEED1+6, AREC*, AREC+2
    , SPEED+6*, ASK, ACT*
    >> RF AREC+1*
    >> RFCNT AREC+1*, AREC+2
    >> RX BC+1*, BC+2, BC+4, PSPEED*, SPEED1+2, SPEED1+4, SPEED1+5, SPEED1+6, SPEED+4*, SPEED+5
    , ASK+2*, ACT
    >> RXCNT PAT*, SPEED1+6*, SPEED+6*, ASK
    SPEED NAM+9*, NAM+20!, PSPEED+1, SPEED1, SPEED1+3, INVALD+2
    >> STA NAM+9*, NAM+10, NAM+12, LINE+3*, LINE+4*, PSPEED
    STAT SPEED1+1!*
    >> SUB AREC*
    TMP NAM+14~
    TMP( NAM+15*, NAM+16*
    WARN PAT!
    X PAT!, LISTPAT*
    Y PAT+2, BC, NAM, NAM+8, LINE+2, LINE+3, ASK+1, COM+13!, COM+14
    >> YY PSPEED*, SPEED1+5, SPEED+4*
    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