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

Package: Registration

Routine: DGMTO1


Information

DGMTO1 ;ALB/CAW,AEG/EG - AGREED TO PAY DEDUCTIBLE PRINT (CON'T) ; 1/21/05 8:08am

Source Information

Source file <DGMTO1.m>

Entry Points

Name Comments DBIA/ICR reference
START ;
; loop through cat Cs for active ones
CATCLST
QTC
ACTIVE ;
CATCOUT ;
PRINT ;
HDR ;
CHK ;Check to pause on screen
PAUSE ;
LEGEND ;Legend at end of report

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)["C-"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "Active Patients Who Have Not Agreed To Pay Deductible",?70,"Page: "_DGPAGE
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"Date Range: "_$$FDATE^DGMTUTL(DGYRAGO)_" to "_$$FDATE^DGMTUTL(DGTODAY)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: ?51,"Run Date: "_$E($$FTIME^DGMTUTL(%),1,18)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,""
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?37,"PATIENT",?47,"MEANS TEST"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?25,"STATUS",?40,"ID",?49,"SOURCE",?58,"PAST",?64,"INHOUSE",?73,"FUTURE"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,DGLINE
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: !!,"ACTIVE= Sched. Admissions, Dispositions, Pt. Movements, or Clinic Appts."
  • Line Location: LEGEND+1
Function Call: WRITE
  • Prompt: !!,?10,"INHOUSE = Current Inpatient"
  • Line Location: LEGEND+2
Function Call: WRITE
  • Prompt: !,?10,"PAST = ",$$FDATE^DGMTUTL(DGYRAGO)," to ",$$FDATE^DGMTUTL(DGTODAY)
  • Line Location: LEGEND+3
Function Call: WRITE
  • Prompt: !,?10,"FUTURE = After ",$$FDATE^DGMTUTL(DGTODAY)
  • Line Location: LEGEND+4
Info |  Source |  Entry Points |  Interaction Calls