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

Package: CMOP

Routine: PSXEDUTL


Information

PSXEDUTL ;BIR/HTW-CMOP Release/Edit Utility ;[ 04/08/97 2:06 PM ]

Source Information

Source file <PSXEDUTL.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 4 NOW^%DTC  FILE^DICN  ^DIK  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
OREL ; Called from PSODISP to check for CMOP during manual Release
  • ICR #2344
    • Status: Withdrawn
    • Usage: Private
    LAST ; Find last event, Find last fill
    HELP ; QTY HELP
    EQTY2 ;
    QTY ;Check quantity
    RREL1
    RREL ; This for Release Refills PSODISP
  • ICR #2344
    • Status: Withdrawn
    • Usage: Private
    SUS ; From SUP^PSORXED1 If suspense date edited to future date resuspend
  • ICR #2344
    • Status: Withdrawn
    • Usage: Private
    EQTY ;W !,"Y=",Y
    CS
    D1 ;

    External References

    Name Field # of Occurrence
    NOW^%DTC SUS+9
    FILE^DICN SUS+5
    ^DIK SUS+1
    ^DIR EQTY+3, EQTY2+4

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"RX# "_$P(RX0,"^")_" HAS BEEN SUSPENDED FOR CMOP UNTIL "_$E(SD,4,5)_"-"_$E(SD,6,7)_"-"_$E(SD,2,3)_".",!
    • Line Location: SUS+10
    Function Call: WRITE
    • Prompt: " Sorry no ^ jumping allowed"
    • Line Location: EQTY+4
    Function Call: WRITE
    • Prompt: " Sorry no ^ jumping allowed"
    • Line Location: EQTY2+5
    Function Call: WRITE
    • Prompt: !!,"This is a CMOP drug. The quantity may not contain alpha characters (i.e.; ML) or more than two decimal places (i.e.; .01)."
    • Line Location: HELP+1
    Function Call: WRITE
    • Prompt: !,"Enter a whole number between 0 and 99999999 inclusive. The total entry cannot exceed 11 characters."
    • Line Location: HELP+2
    Routine Call
    • DIR
    • Line Location:
      • EQTY+3
      • EQTY2+4

    FileMan Files Accessed Via FileMan Db Call

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

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(52.5 - [#52.5] SUS+6!
    ^PSDRUG - [#50] EQTY+1, EQTY2+2
    ^PSDRUG("AQ" EQTY+1, EQTY2+2
    ^PSRX - [#52] LAST+1, SUS+1, SUS+3, SUS+6, SUS+7, SUS+8*, SUS+9*, EQTY+1, EQTY+2, EQTY2+1
    , EQTY2+3, EQTY2+9*

    Label References

    Name Line Occurrences
    D1 OREL+4, RREL1
    EQTY EQTY+4
    EQTY2 EQTY2+5, EQTY2+8
    HELP QTY+1
    LAST OREL+1, RREL+1
    OREL CS+2
    QTY EQTY2+7
    RREL CS+1

    Naked Globals

    Name Field # of Occurrence
    ^(0 EQTY+2

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % SUS+9
    B LAST+1*, D1+3!
    B( RREL1, LAST+1*
    B(0 OREL+4
    C D1+3!
    CNT D1+2!
    >> DA SUS+1*, SUS+3, SUS+7, SUS+8, SUS+9
    DD SUS+4!
    >> DIC SUS+2*
    >> DIC("DR" SUS+3*
    >> DIC(0 SUS+2*
    >> DIK SUS+1*
    DIR EQTY+3!, EQTY+6!
    DIR("A" EQTY+1*, EQTY2+2*
    DIR("B" EQTY+2*, EQTY2+3*
    DIR(0 EQTY+1*, EQTY2+1*
    DO SUS+4!
    >> DRG EQTY+1*, EQTY2+1*, EQTY2+2
    >> DTOUT EQTY+5, EQTY2+6
    DUZ SUS+9
    >> FDA SUS+7*
    FLAG D1+3!
    I D1+3!
    >> IR SUS+7*, SUS+8*, SUS+9
    ISUF OREL+4*, RREL1*, CS~, CS+1!, CS+2!
    NEWDT D1+3!
    P1 D1+2!
    P2 D1+2!
    PPLSAVE D1+2!
    PSOCMOP SUS+11!
    >> PSOSITE SUS+3
    PSX1 D1+3!
    PSX2 D1+3!
    PSXACT D1+1!, D1+2!
    PSXCK D1+2!
    PSXDA D1+1!
    PSXDRUG D1+2!
    PSXER D1+3!
    >> PSXEXIT EQTY+5*, EQTY2+6*
    PSXFDA D1+1!
    PSXFDT D1+3!
    >> PSXFLAG CS+1*, CS+2*
    PSXIEN D1+2!
    PSXIR D1+1!
    PSXJOB D1+3!
    PSXLF D1+2!
    PSXLFD D1+1!
    PSXPPL D1+2!
    PSXPPL1 D1+2!
    >> PSXRFL EQTY2+3, EQTY2+9
    PSXRX D1+3!
    PSXRX0 D1+1!
    PSXRXF D1+1!
    PSXRXN D1+1!
    PSXRXP D1+1!
    PSXRXS D1+1!
    PSXSD D1+3!
    >> RFD SUS+9
    >> RX0 SUS+1*, SUS+10
    >> RXN SUS+1*, SUS+2, SUS+6
    >> RXP LAST+1
    >> RXS SUS+1
    >> SD SUS+3, SUS+6, SUS+9, SUS+10
    SUSPT D1+3!
    X SUS+2*, EQTY2+8, EQTY2+9, QTY+1!
    >> XTYPE CS+1, CS+2
    Y SUS+6, EQTY+4!, EQTY+5, EQTY+6!, EQTY2+5!, EQTY2+6, EQTY2+9!
    YY RREL1, CS~, CS+1*
    Z0 HELP+2!
    >> ZRX EQTY+1, EQTY+2, EQTY2+1, EQTY2+3, EQTY2+9
    Info |  Source |  Call 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