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 |  Marked Items |  All
Print Page as PDF
Routine: PSOCP

Package: Outpatient Pharmacy

Routine: PSOCP


Information

PSOCP ;BIR/BAB - Pharmacy CO-PAY Application Utilities for IB ;29-May-2012 14:42;PLS

Source Information

Source file <PSOCP.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Outpatient Pharmacy 7 (CHKIB,ICD,SETCOMM,XTYPE1)^PSOCP1  ACTLOG^PSOCPA  MAIL2^PSOCPE  (,FINAL)^PSOLSET  $$DT^PSOMLLDT  (CHRG,PFSA)^PSOPFSU1  SCP^PSORN52D  
Registration 3 $$GETSTAT^DGMSTAPI  ($$GETCUR,GETCUR)^DGNTAPI  ($$GETSHAD,GETSHAD)^DGUTL3  
Integrated Billing 1 (NEW,XTYPE)^IBARX  
Scheduling 1 ($$AO,$$EC,$$IR)^SDCO22  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 16

Package Total Caller Graph
Outpatient Pharmacy 8 PSOCPBK4  PSOCPC  PSOCPIB3  PSOCPIBF  PSOCSRL  PSODISP  PSODISPS  PSOHLDIS  
Order Entry Results Reporting 6 ORBCMA32  ORCDPS  ORCDPS1  ORCDPS3  ORWDPS33  ORWDPS4  
CMOP 1 PSXVND  
IHS Changes To Pharmacy 1 APSPAUTO  

Entry Points

Name Comments DBIA/ICR reference
QUIT ;
EN
XTYPE ;
COPAYREL ; Recheck copay status at release
; check Rx patient status
RX ;Determine Orig or Refill for RX
SETCOMM ;
IBNEW ; Load ^TMP global for IB call
ICD ;
EN1
PFS ;
EXIT
FILE ;File IB number in ^PSRX
SKIP ;
SCNEW(PSOTG,PSOPT,PSODR,PSORN) ;CPRS supported ref
  • ICR #2534
    • Status: Active
    • Usage: Controlled Subscription
    CP ;Check if COPAY-Requires RXP,PSOSITE7
  • ICR #1974
    • Status: Active
    • Usage: Private
    SCQ
    SC(PSODFN,PSODD) ;sup ref for CPRS, Pre-Copay enhancement
  • ICR #2534
    • Status: Active
    • Usage: Controlled Subscription

    External References

    Name Field # of Occurrence
    $$GETSTAT^DGMSTAPI SKIP+5
    $$GETCUR^DGNTAPI SKIP+6
    GETCUR^DGNTAPI SKIP+6
    $$GETSHAD^DGUTL3 SKIP+9
    GETSHAD^DGUTL3 SKIP+9
    ^DIR EN1
    NEW^IBARX IBNEW+11
    XTYPE^IBARX SC+8, SCNEW+16, XTYPE+8
    CHKIB^PSOCP1 RX+5, RX+7
    ICD^PSOCP1 ICD+1
    SETCOMM^PSOCP1 SETCOMM+1
    XTYPE1^PSOCP1 COPAYREL+10
    ACTLOG^PSOCPA PFS+5, PFS+8, IBNEW+26, IBNEW+31
    MAIL2^PSOCPE PFS+7, PFS+12
    ^PSOLSET CP+2, EN
    FINAL^PSOLSET EXIT
    $$DT^PSOMLLDT SC+2, SCNEW+1
    CHRG^PSOPFSU1 PFS+4, PFS+6, IBNEW+2
    PFSA^PSOPFSU1 RX+3
    SCP^PSORN52D SCNEW+7
    $$AO^SDCO22 SKIP+2
    $$EC^SDCO22 SKIP+4
    $$IR^SDCO22 SKIP+3

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,?10,"RE-CHECK PRESCRIPTION NUMBER AND RE-ENTER "
    • Line Location: EN1+0
    Routine Call
    • DIR
    • Line Location:
      • EN1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(53 - [#53] SC+4, COPAYREL+2
    ^PS(55 - [#55] SC+4
    ^PS(59 - [#59] CP+8, EN1+1, SC+6, SCNEW+14, XTYPE+6
    ^PSDRUG - [#50] SC+3, COPAYREL+5
    ^PSRX - [#52] CP+4, CP+5, CP+9, RX+2, RX+5, RX+6, RX+7, RX+8, PFS+5*, PFS+9*
    , PFS+10*, PFS+14, PFS+18, IBNEW+10, IBNEW+27*, IBNEW+33*, IBNEW+34*, FILE+3*, FILE+4*, FILE+5*
    , EN1, EN1+2, COPAYREL+2, COPAYREL+5, COPAYREL+10, COPAYREL+11, COPAYREL+13, SCNEW+9, SCNEW+10, SKIP+1
    , XTYPE+3, XTYPE+12

    Label References

    Name Line Occurrences
    COPAYREL PFS+3
    CP CP+2, EN1+3
    EN1 EN1, EN1+3
    EXIT EN1
    ICD SCNEW+10, XTYPE+3
    PFS RX+3
    QUIT RX+5, RX+6, RX+7, RX+8, PFS+4, PFS+6, IBNEW+3, IBNEW+5, IBNEW+20, IBNEW+24
    , IBNEW+35
    SCNEW COPAYREL+15
    SCQ SC+2, SC+3, SC+4, SC+7
    SETCOMM COPAYREL+14, COPAYREL+19
    SKIP SCNEW+15
    XTYPE COPAYREL+17

    Naked Globals

    Name Field # of Occurrence
    ^( SC+6, SCNEW+14, XTYPE+6
    ^("IB" SC+6, SCNEW+14, XTYPE+6
    ^("PS" SC+4
    ^(0 SC+3

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    CHKXTYPE COPAYREL+9!, COPAYREL+17
    D0 IBNEW+4~
    DFN SCNEW+4~, SCNEW+6*
    DIR EN1!
    DIR("A" EN1*
    DIR(0 EN1*
    >> DIRUT EN1
    DRG COPAYREL+4~, COPAYREL+5*, COPAYREL+15
    DRGTYP COPAYREL+4~, COPAYREL+5*, COPAYREL+6, COPAYREL+7, COPAYREL+8
    EXMT COPAYREL+12~, COPAYREL+14*, COPAYREL+16~, COPAYREL+18*, COPAYREL+19, COPAYREL+23*
    I SC+5~, SC+9*, SCNEW+13~, SCNEW+17*, XTYPE+1~, XTYPE+10*
    II COPAYREL+12~, COPAYREL+14*
    J SC+5~, SC+6*, SC+9*, SCNEW+13~, SCNEW+14*, SCNEW+17*, XTYPE+1~, XTYPE+6*, XTYPE+10*
    MAILMSG PFS+2~, PFS+12, COPAYREL+23*, COPAYREL+24
    PREA PFS+5*, PFS+8*, IBNEW+25*, IBNEW+30*, QUIT+1!
    >> PSOANSQ("SC>50" SCNEW+5!, SCNEW+7*
    PSOCHG PFS+1*, PFS+4, PFS+6, PFS+8, PFS+12, QUIT+1!, COPAYREL+2*, COPAYREL+6*, COPAYREL+7*, COPAYREL+8*
    , COPAYREL+11*, COPAYREL+18, COPAYREL+19*, COPAYREL+20, COPAYREL+24*, XTYPE+11*
    PSOCIBQ COPAYREL+12~, COPAYREL+13*, COPAYREL+14, SCNEW+4~, SCNEW+9*, SCNEW+10, SCNEW+11*, SKIP+1, SKIP+2, SKIP+3
    , SKIP+4, SKIP+5, SKIP+6, SKIP+9, XTYPE+1~, XTYPE+3*, XTYPE+4, XTYPE+5, XTYPE+12
    PSOCOMM PFS+8*, IBNEW+26*, IBNEW+29*, QUIT+1!, COPAYREL+2*, COPAYREL+6*, COPAYREL+7*, COPAYREL+8*, XTYPE+11*
    PSOCP CP+3!, CP+5*, CP+6, CP+9, PFS+6, PFS+11*
    PSOCP1 QUIT+1!
    PSOCP2 FILE+1*, FILE+2*, FILE+3, FILE+4, FILE+5, QUIT+1!
    PSOCPN CP+4*, CP+9, QUIT+1!, COPAYREL+15, XTYPE+8
    PSOCPUN PFS+14*, PFS+16, QUIT+1!
    >> PSODA PFS+5*, PFS+8*, IBNEW+26*, IBNEW+31*
    PSODD SC~, SC+3
    PSODFN EN1+2*, SC~, SC+4, SC+8
    PSODR SCNEW~
    PSOIB RX+1~*, RX+5, RX+7
    PSONC SKIP+6~
    PSONC("IND" SKIP+6
    PSONCX SKIP+6~*
    PSONW PFS+8*, IBNEW+25*, QUIT+1!, COPAYREL+2*, COPAYREL+6*, COPAYREL+7*, COPAYREL+8*, COPAYREL+11*, COPAYREL+20*
    PSOOLD PFS+8*, IBNEW+25*, QUIT+1!, COPAYREL+2*, COPAYREL+6*, COPAYREL+7*, COPAYREL+8*, COPAYREL+11*, COPAYREL+20*
    >> PSOPAR CP+2
    PSOPFS RX+1~, RX+3, PFS+4, PFS+6, IBNEW+2, IBNEW+3
    PSOPT SCNEW~, SCNEW+2, SCNEW+6, SCNEW+16, SKIP+2, SKIP+3, SKIP+4, SKIP+5, SKIP+6, SKIP+9
    PSOQHNC SCNEW+4~
    PSOQMSH SCNEW+4~
    PSOQPGW SCNEW+4~
    PSOQRQD SCNEW+4~
    PSOQVEH SCNEW+4~
    PSOREF RX+1*, RX+2*, RX+3, RX+5, RX+6, RX+7, RX+8, PFS+4, PFS+6, PFS+8
    , PFS+9, PFS+16, PFS+18, IBNEW+2, IBNEW+33, QUIT+1!
    PSORN SCNEW~, SCNEW+8, SCNEW+9, SCNEW+10, SCNEW+11, SKIP+1
    PSORSN QUIT+1!
    PSOSAVE CP+6*, PFS+5, PFS+8, QUIT+1!
    PSOSC SC+1~, SC+2*, SC+3*, SC+4*, SC+5*, SC+9*, SCQ
    PSOSCA SCNEW+4~, SCNEW+7, SKIP+1
    PSOSCMX SCNEW+13~*, SCNEW+17*, SKIP+1, XTYPE+1~, XTYPE+2*, XTYPE+10*, XTYPE+11, XTYPE+12
    >> PSOSCP SCNEW+7
    >> PSOSITE CP+8, EN1+1
    >> PSOSITE7 CP+8*, CP+9, EN1+1*
    PSOTG COPAYREL+9!, COPAYREL+15, SCNEW~
    PSOTG( COPAYREL+18, COPAYREL+19, COPAYREL+23
    PSOTG("AO" SKIP+2*
    PSOTG("EC" SKIP+4*
    PSOTG("HNC" SKIP+6*
    PSOTG("IR" SKIP+3*
    PSOTG("MST" SKIP+5*
    PSOTG("SC" COPAYREL+24, SKIP+1*, XTYPE+4*, XTYPE+5*, XTYPE+12*
    PSOTG("SHAD" SKIP+9*
    QQ QUIT+1!
    RXP CP+4, CP+5, CP+9, RX+2, RX+3, RX+5, RX+6, RX+7, RX+8, PFS+4
    , PFS+5, PFS+6, PFS+8, PFS+9, PFS+10, PFS+14, PFS+16, PFS+18, IBNEW+1, IBNEW+2
    , IBNEW+10, IBNEW+26, IBNEW+27, IBNEW+31, IBNEW+33, IBNEW+34, FILE+3, FILE+4, FILE+5, EN1*
    , EN1+2, EXIT!, COPAYREL+2, COPAYREL+5, COPAYREL+10, COPAYREL+11, COPAYREL+13, COPAYREL+15, XTYPE+3, XTYPE+12
    SAVY XTYPE+1~, XTYPE+2*, XTYPE+10*, XTYPE+11
    U FILE+3, FILE+5
    X CP+9*, PFS+11*, PFS+18*, IBNEW+5, IBNEW+6, IBNEW+10*, QUIT+1!, EN1, SC+5~*, SC+6*
    , SC+7, SC+8*, COPAYREL+4~, SCNEW+13~*, SCNEW+14*, SCNEW+15, SCNEW+16*, XTYPE+1~, XTYPE+2*, XTYPE+6*
    , XTYPE+7, XTYPE+8*
    X(1 PFS+16*, IBNEW+6
    X2 QUIT+1!
    XTMP IBNEW+6*, IBNEW+21*, QUIT+1!
    XTMP(1 IBNEW+6*, IBNEW+21*, FILE+2, FILE+3, FILE+5
    Y IBNEW+20, IBNEW+21, QUIT+1!, SCNEW+13~, XTYPE+1~, XTYPE+9
    Y( SC+9, SCNEW+17, XTYPE+10
    Y(1 IBNEW+21, IBNEW+24, IBNEW+28, IBNEW+29, IBNEW+32, IBNEW+33, IBNEW+34, IBNEW+35
    >> YY RX+2
    ZXX SCNEW+4~, SCNEW+10*, XTYPE+1~, XTYPE+3*

    Marked Items

    Name Field # of Occurrence
    $T(GETCUR^DGNTAPI SKIP+6
    $T(GETSHAD^DGUTL3 SKIP+9
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All