Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

    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

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PS(52.5 - [#52.5] Classic Fileman Calls
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call