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

Package: Registration

Routine: DGUTL


Information

DGUTL ;ALB/MRL - DG UTILITY FUNCTIONS ; 08 JAN 86

Source Information

Source file <DGUTL.m>

Entry Points

Name Comments DBIA/ICR reference
RI ;Reimbursable Insurance
; ** NOTE: This procedure appears to be obsolete, but code was modified
; for IB/AR Encapsulation anyways.
TS ;Table of Contents SET
TP ;Table of Contents PRINT
TH ;Table of Contents HEADER
C ;Cover Page
H ;Convert $H to Readable Date/Time
DIV ;Determine Division
DT
EOM ;Required Variable: X - Date should be in internal FM date format
LO
UPPER(X) ; -- convert to uppercase
LOWER(X) ;
QUES(DFN,DGQCODE) ; EDIT REGISTRATION DATA FOR AMIE USE ONLY
QTE
QTQ
FIRST() ;First heading of report
; RETURNS STOP; 0=GO,1=STOP
SUBSEQ() ;enter for further headings of report
; RETURNS STOP; 0=GO,1=STOP
STOPCHK
STOPPED ;
ENDREP
ASKDIV(NOTALL) ;Ask for division (one/many/all)
; Input: NOTALL - Flag that prevents selection of all divisions
; 1 = Don't allow selection of all divisions
; 0 = Allow selection of all divisions (default)
ASKDIVQ
EMGRES(DFN)
  • ICR #4800
    • Status: Active
    • Usage: Supported

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !?10,J," ",X," ",J1
    • Line Location: TP+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: TP+3
    Function Call: WRITE
    • Prompt: @IOF,!,"TABLE OF CONTENTS FOR '",$P(DGTCH,U,1),"'",?(IOM-11)
    • Line Location: TH+1
    Function Call: WRITE
    • Prompt: Y,!?10,$P(DGTCH,U,2),?IOM-7-$L($P(DGTCH,U,3)),$P(DGTCH,U,3)
    • Line Location: TH+1
    Function Call: WRITE
    • Prompt: Y,!?10,$P(DGTCH,U,2),?IOM-7-$L($P(DGTCH,U,3)),$P(DGTCH,U,3)
    • Line Location: TH+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: C+2
    Function Call: WRITE
    • Prompt: !!?$P(DGCPG(I),U,2),$P(DGCPG(I),U,1)
    • Line Location: C+3
    Function Call: WRITE
    • Prompt: !!?X1,X
    • Line Location: C+4
    Function Call: WRITE
    • Prompt: !!?X1,X
    • Line Location: C+5
    Function Call: WRITE
    • Prompt: DGCPT
    • Line Location: C+6
    Function Call: WRITE
    • Prompt: !!
    • Line Location: C+7
    Function Call: WRITE
    • Prompt: +$E(%,4,5)_"-"
    • Condition for execution: $E(%,4,5)
    • Line Location: DT+0
    Function Call: WRITE
    • Prompt: +$E(%,6,7)_"-"
    • Condition for execution: $E(%,6,7)
    • Line Location: DT+0
    Function Call: WRITE
    • Prompt: $E(%,1,3)+1700
    • Line Location: DT+0
    Function Call: WRITE
    • Prompt: " ("_$E(%_0,9,10)_":"_$E(%_"000",11,12)_")"
    • Condition for execution: %["."
    • Line Location: DT+0
    Function Call: WRITE
    • Prompt: !,"ADT parameters not set up",*7
    • Line Location: LO+1
    Function Call: WRITE
    • Prompt: !!,"Please log off the computer and then back to use this option.",!!,*7
    • Line Location: LO+2
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: FIRST+5
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: SUBSEQ+6
    Function Call: WRITE
    • Prompt: !?5,"------------- Report stopped at user's request ------------"
    • Line Location: STOPPED+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: ASKDIV+17
    Function Call: WRITE
    • Prompt: $C(7),"***WARNING...MEDICAL CENTER DIVISION FILE IS NOT SET UP***"
    • Line Location: ASKDIV+18
    Function Call: WRITE
    • Prompt: !
    • Line Location: ASKDIV+19
    Info |  Source |  Entry Points |  Interaction Calls