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 ; 8/3/06 12:38pm

Source Information

Source file <PSOCAN.m>

Call Graph

Call Graph Total: 17

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  ECAN^PSOUTL  
VA Fileman 3 ^DIC  ^DIE  ^DIR  
Pharmacy Data Management 1 ($$L,PSOL,PSOUL,UL)^PSSLOCK  
Registration 1 DEM^VADPT  

Caller Graph

Caller Graph Total: 17

Package Total Caller Graph
Outpatient Pharmacy 14 PSO C  PSOCAN1  PSOCAN2  PSOCAN3  PSOCAN4  PSONEW2  PSOORFI6  PSOORNE6  
PSOREJU1  PSORENW0  PSOSUCH1  PSOSUDEL  PSOSUPAT  PSOSUPRX  
IHS Changes To Pharmacy 3 APSPES3  APSPFNC2  APSQDRDU  

Entry Points

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

    External References

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

    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: !!,"Cannot be Reinstated - Digitally Signed"
    • Line Location: NO+3
    Function Call: WRITE
    • Prompt: !?5,$C(7)
    • Line Location: REA+1
    Function Call: WRITE
    • Prompt: !?10,"Rx Cannot Be Discontinued/Reinstated!"
    • Line Location: REA+3
    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+1
    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
    • DIE
    • Line Location:
      • PSD+9
    Routine Call
    • DIC
    • Line Location:
      • NO
      • RX
      • TESTRP+1
    Routine Call
    • DIR
    • Line Location:
      • START+1
      • NUM+3
      • YN+1
      • DIV+1
      • ASK+2

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(55 - [#55] NO+6, RX+1
    ^PSRX - [#52] NUM+3, NO, NO+3, NO+4, NO+5, LMNO+1, LMNO+2, LMNO+4, LMNO+6, LMNO+10
    , REA, 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

    Label References

    Name Line Occurrences
    ACT ASK+9
    CAN LMNO+11, ACT+1
    CHK LMNO, RX+2
    DIV LMNO+2
    EP1 LMNO+1
    EXP RX+4
    NO NUM+3
    NUM NUM+3, NO, NO+1, NO+2, NO+3, LMNO+2, LMNO+8, LMNO+9, LMNO+11, RX
    , ASK+2, ASK+11, EP1
    PSDREF PSD+8
    REA LMNO+9
    RX NUM+4
    START NUM+3
    TESTRP RX
    ULP NO+2, NO+3, LMNO+1, LMNO+2, LMNO+8, LMNO+9, LMNO+11
    ULRX LMNO+1, LMNO+2, LMNO+8, LMNO+9, LMNO+11
    YN LMNO+8

    Naked Globals

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

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % LMNO+8, YN*, YN+1*
    COMM EXP+3*!
    DA NO*, LMNO*, LMNO+1, LMNO+2, LMNO+4, LMNO+6, LMNO+10, REA, DIV, DIV+1
    , 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+1*, RX+2
    >> DFN CHK*, RX+1*, RX+2
    DIC NO*!, RX*!, TESTRP+1!*
    DIC(0 NO*, RX*, TESTRP+1*
    DIE PSD+9!*
    DIR START+1!, NUM+3!, YN+1!, DIV+1!, ASK+2!
    DIR("?" START+1*, NUM+2*
    DIR("A" START*, NUM+1*, YN+1*, DIV+1*, ASK*
    DIR("B" YN+1*, DIV+1*, ASK*
    DIR(0 START*, NUM+2*, YN+1*, DIV+1*, ASK*
    DIRUT START+1, NUM+3, LMNO+9, YN+1, YN+2!, DIV+1, RX, ASK+2
    >> DR PSD+9*
    DT RX+4
    DTOUT YN+1!
    DUOUT YN+1!
    DUZ NUM+1
    >> EN RX*, RX+2, RX+3
    >> IFN NO*, NO+2, NO+3, NO+4, NO+5, LMNO
    >> II RX*, ACT*
    >> IN NUM+3*, NUM+4*, RX, TESTRP+1
    >> INCOM LMNO+9, 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+5~, LMNO+6*
    >> POERR NO, LMNO+2, LMNO+5, LMNO+8, LMNO+9, LMNO+11, EP1
    PRDL PSDREF+1~, PSDREF+3*
    >> PS NUM+1*, LMNO+4*, LMNO+8*, YN+1
    PSCAN RX!, RX+8, ASK, ASK+2!
    PSCAN( LMNO+10*, 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*, RX*, RX+2*, RX+3*
    >> PSOCANRD NO+5*, TESTRP+2*
    >> PSOCANRZ NO+4*, TESTRP+3*
    >> PSOCLC NUM+1*
    PSOCNODE PSDREF+1~, PSDREF+3*, PSDREF+4, PSDREF+5
    PSOCNRXV ASK+1~*, ASK+10*, ASK+11
    PSODEATH CHK+1*!
    >> PSODFN NO*, NO+1, NO+6, LMNO+3, CHK, RX+1*, ASK+4*, ASK+5, ASK+6, ASK+9
    , ACT*, ULP+1
    >> PSODIV LMNO+2
    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+2!, ASK+6, ASK+7
    PSOPLCK NO+1*!, NO+2!, ASK+5*
    PSOPLCKZ ASK+3!, ASK+11!
    PSOPLCKZ( ASK+5*
    PSOPSDAL PSD+4~, PSD+9*
    >> PSORX("DFLG" LMNO+11
    >> PSOSITE LMNO+2
    PSOSXP PSD+4~
    >> PSOSYS DIV, DIV+1
    PSOULRX NUM+1!, NO*, ULRX+1
    PSOWUN NUM+1!, NO+1*, LMNO+1, LMNO+2, LMNO+9
    >> PSPOP NO*, LMNO+2, DIV*, DIV+1*
    REA LMNO+9, LMNO+10, LMNO+11, REA*, REA+1, REA+2, REA+3!, REA+4*, RX+8*, ASK
    , ASK+11, ACT*
    RF PSD+4~
    RIFN PSD+4~
    RP START+1!*
    >> RX LMNO+10*, 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*, REA+2
    >> RXREC LMNO+2*
    RXSP NUM+1!, RX*, EP1
    SFN PSD+4~
    >> SPCANC START*
    STAT EXP+3*!
    VADM CHK!
    VADM(1 CHK+1
    VADM(6 CHK, CHK+1
    >> VALMBCK YN+1*
    >> WARN START*
    >> X NUM+3*, RX*, TESTRP+1*
    XFLAG YN!
    >> Y START+1, NUM+3, NUM+4, NO, YN+1, DIV+1, RX, RX+1, ASK+2, TESTRP+1
    , TESTRP+2
    >> Y(0 NO, 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