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

Package: Outpatient Pharmacy

Routine: PSOSULB1


Information

PSOSULB1 ;BHAM ISC/RTR,SAB - Print suspended labels cont. ;10/10/96

Source Information

Source file <PSOSULB1.m>

Entry Points

Name Comments DBIA/ICR reference
DEV
DEV1
  • ICR #2478
    • Status: Other
    • Usage: Private
    START
    ASK
    PRLBL
    FDAPRT ; Selects FDA Medication Guide Printer
    QUE
    MESS
    MESSL
    BAIMAIL ;Send mail message
    DSH(REC) ; ePharmacy - verify that 3/4 days supply has elapsed before printing from suspense
  • ICR #2478
    • Status: Other
    • Usage: Private
    DSHDT(RXIEN,RFL) ; ePharmacy function to determine the 3/4 of the days supply date
    ; Input: RXIEN = Prescription file #52 ien
    ; RFL = fill#
    ; Returns: DATE value of last date of service plus 3/4 of days supply
    ; PREVRX = Previous Rx if PREVRX^PSOREJP2 identified one that
    ; should be used in the 3/4 days' supply calculation.
    LFDS(RXIEN) ;

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: $C(7),!!,"PROFILES MUST BE SENT TO PRINTER !!",!
    • Line Location: DEV1+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: ASK+0
    Function Call: WRITE
    • Prompt: $C(7),!!,"NOTHING THRU DATE TO PRINT"
    • Line Location: ASK+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: ASK+3
    Function Call: WRITE
    • Prompt: !
    • Line Location: ASK+10
    Function Call: WRITE
    • Prompt: !
    • Line Location: PRLBL+0
    Function Call: WRITE
    • Prompt: $C(7),!,"You must select a valid FDA Medication Guide printer."
    • Line Location: FDAPRT+4
    Function Call: WRITE
    • Prompt: !!,"PRINT FROM SUSPENSE JOB QUEUED!",!
    • Line Location: QUE+5
    Function Call: WRITE
    • Prompt: $C(7),!!?3,"NOTHING QUEUED TO PRINT!",!
    • Line Location: MESS+0
    Function Call: WRITE
    • Prompt: $C(7),!?3,"LABELS MUST BE SENT TO A PRINTER!",!
    • Line Location: MESSL+0

    FileMan Files Accessed Via FileMan Db Call

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