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
Print Page as PDF
Routine: IBOUTL

Package: Integrated Billing

Routine: IBOUTL


Information

IBOUTL ;ALB/AAS - INTEGRATED BILLING OUTPUT UTILITY ROUTINE ; 8-MAR-91

Source Information

Source file <IBOUTL.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;2.0;INTEGRATED BILLING;**93**;21-MAR-94
DATE ;
; -get beginning and ending dates
; -output in ibbdt - beginning date
; ibedt - ending date
  • ICR #1137
    • Status: Active
    • Usage: Private
    BDT ; -get beginning date
    EDT ; -get ending date
    DATEQ
    PAUSE
    DAT1(X,Y) ; Convert FM date to displayable (mm/dd/yy) format.
    ; -- optional output of time, if $g(y)
    DAT2(Y) ; Convert FM date to displayable (mmm dd yyyy) format
    DAT3(X) ;Convert FM date to displayable (mm/dd/yyyy) format.
    ACTNM(X) ; -input pointer to action type file (350.1)
    ; output printable name of action type
    STOP(JOBDESC) ; Has a tasked job been requested to stop by the user?
    ; Input: JOBDESC -- Description of job to be printed
    ; Output: 0 -- Job has not been stopped
    ; 1 -- Job has been stopped
    FY(DATE)

    Interaction Calls

    Name Line Occurrences
    Function Call: READ
    • Formatting: !
    • Prompt: "Go to DATE: "
    • Variable: X
    • Timeout: DTIME
    • Line Location: EDT+1
    Function Call: WRITE
    • Prompt: *7," ??",!,"ENDING DATE must follow BEGINNING DATE."
    • Line Location: EDT+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: PAUSE+1
    Function Call: WRITE
    • Prompt: !!?5,"'"_$S($D(JOBDESC):JOBDESC,1:"Unknown Task")_"' stopped at user's request..."
    • Line Location: STOP+10
    Info |  Source |  Entry Points |  Interaction Calls