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

Call Graph Total: 12

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 15

Package Total Caller Graph
Outpatient Pharmacy 13 PSO126IX  PSOCMOP  PSOCMOPA  PSOCMOPC  PSOPOS13  PSORESUS  PSORXL  PSORXL1  
PSOSUCLE  PSOSUTL  PSOUTL  PSOUTLA  ^PS(52.5  
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+3
    ^DIE LOOP+29
    ^DIK SUS+3
    REVERSE^PSOBPSU1 LOCK+10
    UNMARK^PSOCMOP LOOP+8
    ^PSOCMOPA FILTRAN+3
    EN^PSOHLSN1 LOCK+8
    $$DS^PSSDSAPI LOOP+26
    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),"^")_" SUSPENDED for CMOP Until "_LFD_"."
    • Line Location: LOCK+5
    Routine Call
    • DIE
    • Line Location:
      • LOOP+29

    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.4 - [#52.4] LOOP+26
    ^PS(52.5 - [#52.5] SUS+2, LOCK+3!, CMPRXTYP+3, KCMPX+2, KCMPX+4!, SCMPX+2, SCMPX+4*
    ^PS(55 - [#55] LOOP+3
    ^PSDRUG - [#50] LOOP+8, LOOP+10, LOOP+12, UNMARK+2*, UNMARK+3*, UNMARK+4, UNMARK+5*, UNMARK+6*, CMPRXTYP+4
    ^PSDRUG("AQ" LOOP+6, UNMARK+2!
    ^PSRX - [#52] LOOP+3, LOOP+6, LOOP+11, LOOP+19, LOOP+21, LOOP+23, LOOP+25, LOOP+28, LOOP+31, LOOP+37
    , SUS+2, SUS+4, LOCK, LOCK+2, LOCK+3, LOCK+4*, LOCK+5, LOCK+6, LOCK+7, ACT
    , ACT+1, ACT+2*, ACT+3*, CMPRXTYP+3
    ^XUSEC("PSORPH" LOOP+25, LOOP+26

    Label References

    Name Line Occurrences
    $$CMPRXTYP KCMPX+2, SCMPX+2
    $$FILTRAN LOOP+34
    ACT LOCK+4
    COMM LOOP+13
    D1 TOP+4, LOOP+43, RESET+1, RESET+3, S+4, A
    PIECE KCMPX+3, SCMPX+3
    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+21
    ^(0 LOOP+28, UNMARK+6*
    ^(2 LOOP+28
    ^(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+6*, LOOP+8, LOOP+10, LOOP+12, 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+10~, LOOP+13, LOCK+7*, LOCK+8!, COMM~
    COMM(1 LOOP+11*
    COMM(2 LOOP+12*
    COUNT D1!
    DA TOP+3, LOOP+29*, S+1~, S+2*, SUS+2, SUS+3*, SUS+4, LOCK, LOCK+1, LOCK+2
    , LOCK+3*, ACT, ACT+1, ACT+2, ACT+3, SUS1+2, FILTRAN+1~, FILTRAN+2*
    DD LOCK+3!
    DEA CMPRXTYP+2~, CMPRXTYP+4*
    DFLG TEST~, SUS+2, D1!
    DFN TEST+1~, LOOP+2~, LOOP+3*!, KCMPX+1~, KCMPX+4, SCMPX+1~, SCMPX+4
    DIC LOCK+1*, ACT+4!
    DIC("DR" LOCK+2*
    DIC(0 LOCK+1*
    DIE LOOP+29!*, 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+3!
    DR LOOP+29*, ACT+4!
    DRGDA CMPRXTYP+2~, CMPRXTYP+3*, CMPRXTYP+4
    DT LOOP+4, LOOP+28
    DTOUT D1!
    DUOUT D1!
    DUZ LOOP+25, LOOP+26, 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+41*, 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+4*, LOCK+5, LOCK+6, LOCK+7, ACT+3
    MW TEST~, LOOP+31*
    NEWDT TEST~
    P PIECE+2~*, PUT+3~*, PUT+4
    P1 TEST~, TEST+2*, LOOP*
    P2 TEST~, TEST+2*, LOOP+41*
    PDUZ D1!
    PI TEST~, S+2*, D1!
    PPL TOP+1*, TOP+2, TOP+3*, TOP+4*, LOOP, LOOP+42!*, RESET+3*, SUS1+1~, SUS1+2*, SUS1+3
    , A*
    >> PPL1 A
    PSOCMOP D1+1!
    PSOCPDA LOOP+29*!
    >> PSOFROM TOP+1, RESET+3, RXL
    PSOMC LOOP+3*, LOOP+4!
    PSOMDT LOOP+3*, LOOP+4!
    PSONAME LOCK+3*!
    >> PSORX("PSOL" TOP+1, TOP+4, A
    PSORXSIT LOCK~*, LOCK+2
    >> PSOSITE LOCK+2
    >> PSOX("FILL DA TE" , LOOP+28
    REC PIECE~, PIECE+2, PUT~, PUT+4*
    REF D1+1!
    REL TEST~, LOOP+37*, LOOP+38, RESET+3
    REPRINT D1+1!
    RFD TEST~, LOOP+23*, LOOP+25, LOOP+26, LOOP+27, LOOP+31!, LOOP+34, LOOP+37!, FILTRAN~, FILTRAN+4
    , FILTRAN+5
    >> RFD1 SUS+4*, LOCK+2
    RFDATE D1+1!
    RFL1 D1+1!
    RFLL D1+1!
    RX TEST~, LOOP*, LOOP+3, LOOP+6, LOOP+11, LOOP+13, LOOP+15, LOOP+17, LOOP+19, LOOP+21
    , LOOP+23, LOOP+25, LOOP+26, LOOP+27, LOOP+28, LOOP+29, LOOP+31, LOOP+34, LOOP+37, LOOP+41
    , SUS+1, FILTRAN~, FILTRAN+2, KCMPX+1~, SCMPX+1~
    RX("CMOP" LOOP+41*, LOOP+42, RESET+1, RESET+3, S+2, SUS1+4*
    RX("PSO" LOOP*, LOOP+42!
    RX0 TEST~, SUS+2*
    RX1 D1+1!
    RX1("CMOP" LOOP+42*, SUS1+4
    RXDA CMPRXTYP+2~, CMPRXTYP+3*
    RXF ACT*, ACT+3, ACT+4!
    >> RXFL( LOOP+27
    >> RXLTOP TOP+3
    RXN TEST~, SUS+2*, SUS+3, LOCK+1, LOCK+3, LOCK+4, LOCK+5, LOCK+6, LOCK+7, LOCK+8
    , LOCK+10, COMM~
    RXP TEST+1~, LOCK+1*, LOCK+2
    RXPD D1+1!
    >> RXPR( LOOP+15, LOCK+1
    >> RXRP( LOOP+17
    >> RXRS( LOOP+15
    RXS TEST+1~, SUS+2*, SUS+3
    SD TEST+1~, SUS+2*, LOCK+2, LOCK+3, LOCK+4, 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~
    TYP CMPRXTYP+2~, CMPRXTYP+4*, CMPRXTYP+5, KCMPX+1~, KCMPX+2*, KCMPX+4, SCMPX+1~, SCMPX+2*, SCMPX+4
    U LOOP+10, LOOP+12, LOCK, 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+6*
    VP PIECE~, PIECE+2, PUT~, PUT+3
    WARN D1+1!
    WARNS LOOP+10~*
    X TEST+1~, LOCK+1*, ACT+4!, UNMARK+1~, UNMARK+4*, UNMARK+5*, UNMARK+6, UNMARK+8!
    X7 TEST+1~, LOOP+23*, LOOP+31!, SUS+4!*, D1!
    >> XFLAG SUS1+3*
    XFROM LOOP+39, LOOP+43, 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+3, 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