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

Package: Registration

Routine: DGPTODI1


Information

DGPTODI1 ;ALB/AS - DRG INDEX REPORT ; 20 MAY 87 09:00

Source Information

Source file <DGPTODI1.m>

Entry Points

Name Comments DBIA/ICR reference
RD
ASK
DC
B
S
R
P
C
OK
Q

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?12,*7,"** NOTE: 132 columns required for output",!
  • Line Location: DGPTODI1+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: RD+0
Function Call: WRITE
  • Prompt: !!,"For (A)CTIVE ADMISSIONS or",!?4,"(D)ISCHARGED PATIENTS: DISCHARGED// "
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: X
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!?12,"CHOOSE FROM:",!?12,"A - Active admissions (all current inpatients) or",!?12,"D - Discharged patients within a date range",!
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DC+0
Function Call: WRITE
  • Prompt: !,*7,?12,"Please limit your discharge date range to no more than 1 year"
  • Line Location: DC+1
Function Call: WRITE
  • Prompt: !!,"For (T)RANSFER DRGs or",!?4,"(D)RG from 701/702/703 TRANSACTIONS: TRANSFER DRGs// "
  • Line Location: B+0
Function Call: WRITE
  • Prompt: X
  • Line Location: B+0
Function Call: WRITE
  • Prompt: !!?12,"CHOOSE FROM:",!?12,"D - to include DRGs calculated using diagnosis codes from",!?16,"701/702/703 transactions",!?12,"T - to include TRANSFER DRGs based on diagnosis codes from",!?16,"501 transactions",!
  • Line Location: B+1
Function Call: WRITE
  • Prompt: !!,"Choose PTF Status(es) to include:",!?4,"(A)LL STATUSES or",!?4,"(O)PEN,(C)LOSED,(R)ELEASED,(T)RANSMITTED ONLY: ALL// "
  • Line Location: S+0
Function Call: WRITE
  • Prompt: X
  • Line Location: S+1
Function Call: WRITE
  • Prompt: !!,"(R)ANGE or (E)XACT MATCH or (A)LL DRGs: ALL// "
  • Line Location: R+0
Function Call: WRITE
  • Prompt: X
  • Line Location: R+0
Function Call: WRITE
  • Prompt: !!?12,"CHOOSE FROM:",!?12,"R - to specify a range of DRGs or",!?12,"A - to select ALL DRGs or",!?12,"E - to specify a DRG to match exactly",!
  • Line Location: R+1
Function Call: WRITE
  • Prompt: !!,"Sort by (P)ATIENT NAME or (T)ERMINAL DIGIT ORDER: PATIENT// "
  • Line Location: P+0
Function Call: WRITE
  • Prompt: X
  • Line Location: P+0
Function Call: WRITE
  • Prompt: !!?12,"CHOOSE FROM:",!?12,"T - to sort by terminal digit order or",!?12,"P - to sort by patient last name",!
  • Line Location: P+1
Function Call: WRITE
  • Prompt: !!,"Choose (I)NCLUDE or (S)UPPRESS NO CODES LISTING: INCLUDE// "
  • Line Location: C+0
Function Call: WRITE
  • Prompt: X
  • Line Location: C+0
Function Call: WRITE
  • Prompt: !!,"You have selected output for: ",!?4,$S(DGD:"Patients discharged between ",1:"Active admissions.")
  • Line Location: C+3
Function Call: WRITE
  • Prompt: $S(DGS="A":"es",1:" only"),"."
  • Condition for execution: DGD
  • Line Location: C+5
Function Call: WRITE
  • Prompt: !?4,"Search for ",$S(DGR=2:"all DRG codes",1:"DRG code: ")
  • Line Location: C+5
Function Call: WRITE
  • Prompt: DGC1
  • Line Location: C+5
Function Call: WRITE
  • Prompt: " to DRG code: ",DGC2
  • Condition for execution: DGR=1
  • Line Location: C+5
Function Call: WRITE
  • Prompt: "."
  • Line Location: C+5
Function Call: WRITE
  • Prompt: !?4,"No Codes Listing ",$S(DGC:"included",1:"suppressed"),"."
  • Line Location: C+6
Function Call: WRITE
  • Prompt: !?4,"Sort report by ",$S(DGP:"patient last name.",1:"terminal digit order."),!
  • Line Location: C+7
Function Call: WRITE
  • Prompt: !!?6,"Enter <RET> if this information is correct",!?10,"Enter 'N' for NO to exit",!!
  • Line Location: OK+0

FileMan Files Accessed Via FileMan Db Call

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