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

Package: Outpatient Pharmacy

Routine: PSOCAN


Information

PSOCAN ;BIR/JMB - Rx discontinue and reinstate ;12/03/18 10:47

Source Information

Source file <PSOCAN.m>

Call Graph

Call Graph

Call Graph Total: 18

Package Total Call Graph
Outpatient Pharmacy 12 (COM,INVALD,KILL,PAT,SHOW,SPEED1)^PSOCAN1  REINS^PSOCAN2  (CAN,CAN1,KCAN1)^PSOCAN3  EN^PSOCMOPA  ICN^PSODPT  EN^PSOHLSN1  EN^PSOHLUP  DCORD^PSONEW2  
LOCK^PSOORCPY  ^PSORXPR  PSOINST^PSOSUPAT  ($$CONJ,ECAN)^PSOUTL  
VA FileMan 3 ^DIC  ^DIE  ^DIR  
List Manager 1 PAUSE^VALM1  
Pharmacy Data Management 1 ($$L,PSOL,PSOUL,UL)^PSSLOCK  
Registration 1 DEM^VADPT  

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

Package Total Caller Graph
Outpatient Pharmacy 14 PSO C  PSOCAN1  PSOCAN2  PSOCAN3  PSOCAN4  PSONEW2  PSOORFI6  PSOORNE6  
PSOREJU1  PSORENW0  PSOSUCH1  PSOSUDEL  PSOSUPAT  PSOSUPRX  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
START
NUM
NO
LMNO
YN
REA ;
CAN
DIV
CHK
RX
ASK
ACT
EXP ;S PSINV($P(^PSRX(DA,0),"^"))=""
EP1
PSD ;Called from Controlled Subs, PSDRX is internal Rx number
  • ICR #2616
    • Status: Active
    • Usage: Controlled Subscription
    PSDREF ;
    TESTRP ;
    ULP ;
    ULRX ;

    External References

    Name Field # of Occurrence
    ^DIC NO+1, RX, TESTRP+1
    ^DIE PSD+9
    ^DIR START+1, NUM+3, YN+3, DIV+1, ASK+2
    COM^PSOCAN1 LMNO+18, RX
    INVALD^PSOCAN1 RX+8, ASK+2, ASK+11, EP1
    KILL^PSOCAN1 START+2
    PAT^PSOCAN1 START+2
    SHOW^PSOCAN1 RX+8
    SPEED1^PSOCAN1 RX+5
    REINS^PSOCAN2 LMNO+20, ACT
    CAN^PSOCAN3 CHK+2
    CAN1^PSOCAN3 CAN
    KCAN1^PSOCAN3 START, NUM+1
    EN^PSOCMOPA YN
    ICN^PSODPT LMNO+4
    EN^PSOHLSN1 EXP+3
    EN^PSOHLUP NO+8, RX+1
    DCORD^PSONEW2 NUM, LMNO+21
    LOCK^PSOORCPY NO+3, ASK+5
    ^PSORXPR LMNO+11
    PSOINST^PSOSUPAT NUM+3
    $$CONJ^PSOUTL LMNO+7
    ECAN^PSOUTL EXP+2
    $$L^PSSLOCK NO+3, ASK+5
    PSOL^PSSLOCK NO+4, ASK+6
    PSOUL^PSSLOCK ASK+9, ULRX+1
    UL^PSSLOCK ASK+6, ASK+9, ULP+1
    DEM^VADPT CHK
    PAUSE^VALM1 LMNO+7

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!
    • Line Location: START+0
    Function Call: WRITE
    • Prompt: !
    • Line Location: NUM+1
    Function Call: WRITE
    • Prompt: " Rx Not Found!",!
    • Line Location: NO+0
    Function Call: WRITE
    • Prompt: !!,"Cannot be Reinstated - Digitally Signed"
    • Line Location: NO+5
    Function Call: WRITE
    • Prompt: !!,"Cannot be Reinstated - dosage contains an invalid Except conjunction",!
    • Line Location: LMNO+7
    Function Call: WRITE
    • Prompt: !?5,$C(7)
    • Line Location: REA+6
    Function Call: WRITE
    • Prompt: !?10,"Rx Cannot Be Discontinued/Reinstated!"
    • Line Location: REA+9
    Function Call: WRITE
    • Prompt: !?10,$C(7),"RX# ",$P(^PSRX(DA,0),"^")," is not a valid choice. (Different Division)"
    • Line Location: DIV+0
    Function Call: WRITE
    • Prompt: !!,?10,VADM(1)_" DIED "_$P($G(VADM(6)),"^",2)
    • Line Location: CHK+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: ASK+0
    Function Call: WRITE
    • Prompt: !,$P($G(PSOMSG),"^",2),!,"Order "_$P($G(^PSRX(+PSCAN(RX),0)),"^")_"."
    • Line Location: ASK+7
    Routine Call
    • DIC
    • Line Location:
      • NO+1
      • RX
      • TESTRP+1
    Routine Call
    • DIE
    • Line Location:
      • PSD+9
    Routine Call
    • DIR
    • Line Location:
      • START+1
      • NUM+3
      • YN+3
      • DIV+1
      • ASK+2

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(55 - [#55] NO+8, RX+1
    ^PSRX - [#52] NUM+3, NO+2, NO+5, NO+6, NO+7, LMNO+1, LMNO+2, LMNO+3, LMNO+5, LMNO+10
    , LMNO+19, REA+3, REA+5, DIV, DIV+1, RX+2, RX+3, RX+4, RX+5, ASK+4
    , ASK+7, ASK+8, ACT, EXP+1, EXP+2*, EXP+3, PSD+2, PSD+3, PSD+5, PSD+7
    , PSDREF+3, TESTRP+2
    ^PSRX("B" NO

    Label References

    Name Line Occurrences
    ACT ASK+9
    CAN LMNO+23, ACT+1
    CHK LMNO, RX+2
    DIV LMNO+3
    EP1 LMNO+1, LMNO+2, LMNO+7
    EXP RX+4
    NO NUM+3
    NUM NUM+3, NO, NO+2, NO+3, NO+4, NO+5, LMNO+3, LMNO+14, LMNO+16, LMNO+18
    , LMNO+25, RX, ASK+2, ASK+11, EP1
    PSDREF PSD+8
    REA LMNO+17
    RX NUM+4
    START NUM+3
    TESTRP RX
    ULP NO+4, NO+5, LMNO+1, LMNO+2, LMNO+3, LMNO+7, LMNO+12, LMNO+16, LMNO+17, LMNO+18
    , LMNO+25
    ULRX LMNO+1, LMNO+2, LMNO+3, LMNO+7, LMNO+12, LMNO+16, LMNO+17, LMNO+18, LMNO+25
    YN LMNO+15

    Naked Globals

    Name Field # of Occurrence
    ^("PKI" NO+5, LMNO+10, RX+3
    ^("STA" LMNO+2, RX+2
    ^(0 PSDREF+3
    ^(2 LMNO+3, RX+4, EXP+3

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % LMNO+15, LMNO+16, YN*, YN+2*, YN+3*
    COMM EXP+3*!
    DA NO+2*, LMNO*, LMNO+1, LMNO+2, LMNO+3, LMNO+5, LMNO+7, LMNO+10, LMNO+19, REA+3
    , REA+5, DIV, DIV+1, CHK+1, CHK+2*, RX+4*, RX+5, RX+8*, ACT*, EXP+1
    , EXP+2, EXP+3, PSD+4~, PSD+9*
    DA(1 PSD+9*
    >> DAYS360 START*
    DEAD LMNO+1, CHK!*, CHK+2*, RX+2
    >> DFN CHK*, CHK+2, RX+1*, RX+2
    DIC NO+1*!, RX*!, TESTRP+1!*
    DIC(0 NO+1*, RX*, TESTRP+1*
    DIE PSD+9!*
    DIR START+1!, NUM+3!, YN+3!, DIV+1!, ASK+2!
    DIR("?" START+1*, NUM+2*
    DIR("A" START*, NUM+1*, YN+3*, DIV+1*, ASK*
    DIR("B" YN+3*, DIV+1*, ASK*
    DIR(0 START*, NUM+2*, YN+3*, DIV+1*, ASK*
    DIRUT START+2, NUM+3, LMNO+18, YN+3, YN+4!, DIV+1, RX, ASK+2
    >> DR PSD+9*
    DT RX+4
    DTOUT YN+3!
    DUOUT YN+3!
    DUZ NUM+1
    >> EN RX*, RX+2, RX+3
    >> ERXDCIEN YN+2, REA+2
    >> IFN NO+2*, NO+4, NO+5, NO+6, NO+7, LMNO
    >> II RX*, ACT*
    >> IN NUM+3*, NUM+4*, RX, TESTRP+1
    >> INCOM LMNO+18, RX
    NODE PSD+4~, PSD+9*
    >> OUT NUM+3*
    PHARMST EXP+3*!
    PIIN TESTRP+1~*
    PIINFLAG TESTRP+1~*, TESTRP+2*, TESTRP+3
    PKI RX~, RX+3*
    PKIR LMNO+9~, LMNO+10*
    >> POERR NO+1, LMNO+3, LMNO+9, LMNO+13, LMNO+15, LMNO+18, LMNO+24, EP1
    PRDL PSDREF+1~, PSDREF+3*
    >> PS NUM+1*, LMNO+6*, LMNO+7, LMNO+15*, YN+3
    PSCAN RX!, RX+8, ASK, ASK+2!
    PSCAN( LMNO+19*, RX+8, ASK+3, ASK+4, ASK+6, ASK+7, ASK+8, ASK+9, ACT
    >> PSDRFDEL PSD+1*, PSD+10*
    >> PSDRX PSD+2, PSD+3, PSD+5, PSD+7, PSD+9, PSDREF+3
    PSINV NUM+1!, RX!
    PSINV( LMNO+1*, LMNO+2*, RX*, RX+2*, RX+3*
    >> PSOCANRD NO+7*, TESTRP+2*
    >> PSOCANRZ NO+6*, TESTRP+3*
    >> PSOCLC NUM+1*
    PSOCNODE PSDREF+1~, PSDREF+3*, PSDREF+4, PSDREF+5
    PSOCNRXV ASK+1~*, ASK+10*, ASK+11
    PSODEATH CHK+2*!
    >> PSODFN NO+2*, NO+3, NO+8, LMNO+4, CHK, CHK+2*, RX+1*, ASK+4*, ASK+5, ASK+6
    , ASK+9, ACT*, ULP+1
    >> PSODIV LMNO+3
    PSODL PSD+4~
    >> PSODLP PSD+5*
    PSODRUG CAN~
    PSODRX PSD+4~, PSD+5*, PSD+6, PSD+7, PSD+9, PSDREF+3
    PSODTE PSD+4~
    PSOFILDL PSD+4~, PSD+8!, PSD+9!, PSDREF+2*, PSDREF+5*
    PSOMSG NO+4!, ASK+6, ASK+7
    PSOODOSP START~, NO+2*
    PSOONOFC START~
    PSOPLCK NO+3*!, NO+4!, ASK+5*
    PSOPLCKZ ASK+3!, ASK+11!
    PSOPLCKZ( ASK+5*
    PSOPSDAL PSD+4~, PSD+9*
    >> PSOQUIT LMNO+20
    PSOREINF START~, NO+2!
    >> PSOREINS LMNO+20
    >> PSORX("DFLG" NUM+1!, LMNO+12, LMNO+13, LMNO+14, LMNO+21
    >> PSORX("DOSING OFF" , NO+2!
    PSOSDA CHK+1~*, CHK+2!
    >> PSOSITE LMNO+3
    PSOSXP PSD+4~
    >> PSOSYS DIV, DIV+1
    PSOTECCK NUM+1!, LMNO+22!
    PSOULRX NUM+1!, NO+2*, ULRX+1
    PSOWUN NUM+1!, NO+3*, LMNO+1, LMNO+2, LMNO+3, LMNO+17
    >> PSPOP NO+1*, LMNO+3, DIV*, DIV+1*
    PSTS LMNO+5~*, LMNO+6, REA+10
    REA LMNO+17, LMNO+19, LMNO+20, LMNO+21, LMNO+23, REA+4*, REA+5*, REA+6, REA+7, REA+8
    , REA+9!, REA+11*, RX+8*, ASK, ASK+11, ACT*
    RF PSD+4~
    RIFN PSD+4~
    RP START+2!*
    >> RX LMNO+19*, RX+5*, RX+8*, ASK+3*, ASK+4, ASK+6, ASK+7, ASK+8, ASK+9, ACT
    >> RXCNT RX*, RX+8*, ASK, ASK+11
    >> RXNUM NO+2*, REA+7, REA+10
    >> RXREC LMNO+3*
    RXSP NUM+1!, RX*, EP1
    SFN PSD+4~
    >> SPCANC START*
    STAT EXP+3*!
    U REA+3
    VADM CHK!
    VADM(1 CHK+2
    VADM(6 CHK, CHK+2
    >> VALMBCK YN+3*
    >> VALMSG REA+10*
    >> WARN START*
    >> X NUM+3*, RX*, TESTRP+1*
    XFLAG YN!
    >> Y START+2, NUM+3, NUM+4, NO, NO+1, NO+2, YN+3, DIV+1, RX, RX+1
    , ASK+2, TESTRP+1, TESTRP+2
    >> Y(0 NO+2, RX+1
    YY RX+1*, RX+2, RX+3, RX+4, RX+8!
    YY(0 RX+1*, RX+5
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All