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

Package: Outpatient Pharmacy

Routine: PSOCMOP


Information

PSOCMOP ;BIR/HTW-Rx Order Entry Screen for CMOP ; 6/28/07 7:35am

Source Information

Source file <PSOCMOP.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Outpatient Pharmacy 4 REVERSE^PSOBPSU1  UNMARK^PSOCMOP  ^PSOCMOPA  EN^PSOHLSN1  
VA Fileman 4 NOW^%DTC  FILE^DICN  ^DIE  ^DIK  
Kernel 1 $$PATCH^XPDUTL  
MailMan 1 ^XMD  
Pharmacy Data Management 1 DRG^PSSHUIDG  

Caller Graph

Caller Graph Total: 14

Package Total Caller Graph
Outpatient Pharmacy 12 PSO126IX  PSOCMOP  PSOCMOPA  PSOCMOPC  PSOPOS13  PSORESUS  PSORXL  PSORXL1  
PSOSUCLE  PSOSUTL  PSOUTL  PSOUTLA  
CMOP 2 PSX41PST  PSXRESUB  

Entry Points

Name Comments DBIA/ICR reference
RESET ;
UNMARK ;Entry point to unmark drug for CMOP dispense
TOP ;
SUS ;
ACT
FILTRAN(RX,RFD) ; Test fill's CMOP tran status, return 1 if OK to send
SUS1 ;
COMM(RXN,COMM) ;EP process problem message to g.cmop managers
A
RXL
LOCK
CMPRXTYP(SUSDA) ; given suspense record SUSDA returns RX CMOP TYPE C - CS, N -Non-CS
  • ICR #2476
    • Status: Active
    • Usage: Private
    START ; Establish CMOP PPL
    S ; Auto-Suspend CMOPS
    KCMPX(SUS,VAL) ; Kill ^PS(52.5,"CMP",VAL index given SUS
    SCMPX(SUS,VAL) ; Set ^PS(52.5,"CMP",VAL index given SUS
    PIECE(REC,DLM,VP) ; VP="Variable^Piece"
    ; Set Variable V = piece P of REC using delimiter DLM
    NOW()
    PUT(REC,DLM,VP) ; VP="Variable^Piece"
    ; pass by reference D PUT^PSOCMOP(.REC,DLM,VP)
    ; Set Variable V into piece P of REC using delimiter DLM
    TEST
  • ICR #2476
    • Status: Active
    • Usage: Private
    LOOP
    D1

    External References

    Name Field # of Occurrence
    NOW^%DTC ACT+3, UNMARK+5, NOW
    FILE^DICN LOCK+2
    ^DIE LOOP+22
    ^DIK SUS+3
    REVERSE^PSOBPSU1 LOCK+9
    UNMARK^PSOCMOP LOOP+4
    ^PSOCMOPA FILTRAN+3
    EN^PSOHLSN1 LOCK+7
    DRG^PSSHUIDG UNMARK+7
    ^XMD COMM+4
    $$PATCH^XPDUTL UNMARK+7

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,RX_" REINSTATED -- "
    • Line Location: SUS+1
    Function Call: WRITE
    • Prompt: !!,"RX# ",$P(^PSRX(RXN,0),"^")_" HAS BEEN SUSPENDED for CMOP Until "_LFD_"."
    • Line Location: LOCK+4
    Routine Call
    • DIE
    • Line Location:
      • LOOP+22

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PSRX - [#52] Classic Fileman Calls
    ^PS(52.5 - [#52.5] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(52.5 - [#52.5] SUS+2, LOCK+2!, CMPRXTYP+3, KCMPX+2, KCMPX+4!, SCMPX+2, SCMPX+4*
    ^PS(55 - [#55] TEST+5
    ^PSDRUG - [#50] LOOP+4, LOOP+6, LOOP+8, UNMARK+2*, UNMARK+3*, UNMARK+4, UNMARK+5*, UNMARK+6*, CMPRXTYP+4
    ^PSDRUG("AQ" LOOP+2, UNMARK+2!
    ^PSRX - [#52] TEST+5, LOOP+2, LOOP+7, LOOP+15, LOOP+17, LOOP+19, LOOP+21, LOOP+24, LOOP+30, SUS+2
    , SUS+4, LOCK+1, LOCK+2, LOCK+3*, LOCK+4, LOCK+5, LOCK+6, ACT, ACT+1, ACT+2*
    , ACT+3*, CMPRXTYP+3

    Label References

    Name Line Occurrences
    $$CMPRXTYP KCMPX+2, SCMPX+2
    $$FILTRAN LOOP+27
    ACT LOCK+3
    COMM LOOP+9
    D1 TOP+4, LOOP+35, RESET+1, RESET+3, S+4, A
    PIECE KCMPX+3, SCMPX+3
    RESET TEST+6
    START TOP+2
    SUS S+2
    TEST TOP+1, TOP+3, SUS1+2, A+1
    TOP RXL+1

    Naked Globals

    Name Field # of Occurrence
    ^("STA" LOOP+17
    ^(0 LOOP+21, UNMARK+6*
    ^(2 LOOP+21
    ^(3 SUS+2

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % ACT+3, ACT+4!, UNMARK+1~, UNMARK+5, UNMARK+8!, NOW
    %H ACT+4!
    %I ACT+4!
    ACT TEST~, SUS+2*
    B TEST~
    C TEST~
    CK TEST~, LOOP+2*, LOOP+4, LOOP+6, LOOP+8, UNMARK+2, UNMARK+3, UNMARK+4, UNMARK+5, UNMARK+6
    , UNMARK+7
    CMOP FILTRAN+1~
    CMOP( FILTRAN+4, FILTRAN+5
    CNT TEST~, LOOP*, D1!
    COMM TEST~, LOOP+6~, LOOP+9, LOCK+6*, LOCK+7!, COMM~
    COMM(1 LOOP+7*
    COMM(2 LOOP+8*
    COUNT D1!
    DA TOP+3, LOOP+22*, S+1~, S+2*, SUS+2, SUS+3*, SUS+4, LOCK, LOCK+1, LOCK+2*
    , ACT, ACT+1, ACT+2, ACT+3, SUS1+2, FILTRAN+1~, FILTRAN+2*
    DD LOCK+2!
    DEA CMPRXTYP+2~, CMPRXTYP+4*
    DFLG TEST~, SUS+2, D1!
    DFN TEST+1~, TEST+5*!, KCMPX+1~, KCMPX+4, SCMPX+1~, SCMPX+4
    DIC LOCK*, ACT+4!
    DIC("DR" LOCK+1*
    DIC(0 LOCK*
    DIE LOOP+22!*, ACT+4!
    >> DIK SUS+3*
    DIROUT D1!
    DIRUT D1!
    DIV KCMPX+1~, KCMPX+4, SCMPX+1~, SCMPX+4
    DLM PIECE~, PIECE+2, PUT~, PUT+4
    DO LOCK+2!
    DR LOOP+22*, ACT+4!
    DRGDA CMPRXTYP+2~, CMPRXTYP+3*, CMPRXTYP+4
    DT TEST+6, LOOP+21
    DTOUT D1!
    DUOUT D1!
    DUZ ACT+3, UNMARK+5
    EXDT D1!
    F KCMPX+1~, KCMPX+2*, KCMPX+3, SCMPX+1~, SCMPX+2*, SCMPX+3
    FDA ACT+1*, ACT+4!
    FLAG TEST~, TEST+2*, LOOP*, LOOP+33*, D1!
    FLD D1!
    FROM RXL~*, RXL+1
    I TEST~, ACT*, ACT+4!, CMPRXTYP+4*
    >> IR ACT+1*, ACT+2*, ACT+3
    L D1!
    >> LFD LOCK+3*, LOCK+4, LOCK+5, LOCK+6, ACT+3
    MW TEST~, LOOP+24*
    NEWDT TEST~
    P PIECE+2~*, PUT+3~*, PUT+4
    P1 TEST~, TEST+2*, LOOP*
    P2 TEST~, TEST+2*, LOOP+33*
    PDUZ D1!
    PI TEST~, S+2*, D1!
    PPL TOP+1*, TOP+2, TOP+3*, TOP+4*, TEST+4, LOOP, LOOP+34!*, RESET+3*, SUS1+1~, SUS1+2*
    , SUS1+3, A*
    >> PPL1 A
    PSOCMOP D1+1!
    PSOCPDA LOOP+22*!
    >> PSOFROM TOP+1, RESET+3, RXL
    PSOMC TEST+5*, TEST+6!
    PSOMDT TEST+5*, TEST+6!
    PSONAME LOCK+2*!
    >> PSORX("PSOL" TOP+1, TOP+4, A
    >> PSOSITE LOCK+1
    >> PSOX("FILL DA TE" , LOOP+21
    REC PIECE~, PIECE+2, PUT~, PUT+4*
    REF D1+1!
    REL TEST~, LOOP+30*, LOOP+31, RESET+3
    REPRINT D1+1!
    RFD TEST~, LOOP+19*, LOOP+20, LOOP+24!, LOOP+27, LOOP+30!, FILTRAN~, FILTRAN+4, FILTRAN+5
    >> RFD1 SUS+4*, LOCK+1
    RFDATE D1+1!
    RFL1 D1+1!
    RFLL D1+1!
    RX TEST~, LOOP*, LOOP+2, LOOP+7, LOOP+9, LOOP+11, LOOP+13, LOOP+15, LOOP+17, LOOP+19
    , LOOP+20, LOOP+21, LOOP+22, LOOP+24, LOOP+27, LOOP+30, LOOP+33, SUS+1, FILTRAN~, FILTRAN+2
    , KCMPX+1~, SCMPX+1~
    RX("CMOP" LOOP+33*, LOOP+34, RESET+1, RESET+3, S+2, SUS1+4*
    RX("PSO" LOOP*, LOOP+34!
    RX0 TEST~, SUS+2*
    RX1 D1+1!
    RX1("CMOP" LOOP+34*, SUS1+4
    RXDA CMPRXTYP+2~, CMPRXTYP+3*
    RXF ACT*, ACT+3, ACT+4!
    >> RXFL( LOOP+20
    >> RXLTOP TOP+3
    RXN TEST~, SUS+2*, SUS+3, LOCK, LOCK+2, LOCK+3, LOCK+4, LOCK+5, LOCK+6, LOCK+7
    , LOCK+9, COMM~
    RXP TEST+1~, LOCK*, LOCK+1
    RXPD D1+1!
    >> RXPR( LOOP+11, LOCK
    >> RXRP( LOOP+13
    >> RXRS( LOOP+11
    RXS TEST+1~, SUS+2*, SUS+3
    SD TEST+1~, SUS+2*, LOCK+1, LOCK+2, LOCK+3, D1+1!
    SDT KCMPX+1~, KCMPX+4, SCMPX+1~, SCMPX+4
    SUS KCMPX~, KCMPX+2, KCMPX+4, SCMPX~, SCMPX+2, SCMPX+4
    SUSDA CMPRXTYP~, CMPRXTYP+3
    SUSPT S+3*, D1+1!
    TRX TEST+1~, TEST+4*, TEST+5!
    TYP CMPRXTYP+2~, CMPRXTYP+4*, CMPRXTYP+5, KCMPX+1~, KCMPX+2*, KCMPX+4, SCMPX+1~, SCMPX+2*, SCMPX+4
    U LOOP+6, LOOP+8, CMPRXTYP+3, CMPRXTYP+4, PIECE+2, PUT+3, KCMPX+3, SCMPX+3
    V PIECE+2~*, PUT+3~*, PUT+4
    VAL KCMPX~, KCMPX+4, SCMPX~, SCMPX+4
    VALMSG TEST+1~, LOCK+5*
    VP PIECE~, PIECE+2, PUT~, PUT+3
    WARN D1+1!
    WARNS LOOP+6~*
    X TEST+1~, LOCK*, ACT+4!, UNMARK+1~, UNMARK+4*, UNMARK+5*, UNMARK+6, UNMARK+8!
    X7 TEST+1~, LOOP+19*, LOOP+24!, SUS+4!*, D1!
    >> XFLAG SUS1+3*
    XFROM LOOP+35, RESET+2, SUS+1, D1+1!, RXL+1
    XMSUB COMM+1~, COMM+3*
    XMTEXT COMM+1~, COMM+2*
    >> XMY("I:G.CMOP MANAGERS" , COMM+2*
    XX KCMPX+1~, KCMPX+3*, SCMPX+1~, SCMPX+3*
    Y TEST+1~, S+1~, LOCK+2, ACT+4!
    Z UNMARK+1~, UNMARK+4*, UNMARK+8!
    ZD TEST+1~
    ZD( SUS+2
    ZY D1+1!
    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