Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Registration 5 IN^DGHELP  ^DGPTODI2  (C,E,H,RANGE)^DGPTODI4  LO^DGUTL  (CLOSE,ZIS)^DGUTQ  
VA Fileman 2 ^%DT  YN^DICN  
Kernel 1 ^%ZIS  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DG PTF DRG INDEX  

Entry Points

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

External References

Name Field # of Occurrence
^%DT DC, DC+1
^%ZIS DGPTODI1+2
IN^DGHELP ASK+1, B+1, S+2, R+1, P+1, C+1
^DGPTODI2 DGPTODI1+4
C^DGPTODI4 C+1
E^DGPTODI4 R+4
H^DGPTODI4 S+2
RANGE^DGPTODI4 R+4
LO^DGUTL DGPTODI1+2
CLOSE^DGUTQ DGPTODI1+4
ZIS^DGUTQ DGPTODI1+4
YN^DICN OK

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?12,*7,"** NOTE: 132 columns required for output",!
  • Line Location: DGPTODI1+4
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • 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
Routine Call
  • %ZIS
  • Line Location:
    • DGPTODI1+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ICD - [#80.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("RM" DGPTODI1+4
^DD("DD" C+4

Label References

Name Line Occurrences
ASK DGPTODI1+2, ASK+1
B B+1
C C+1
DC DC, DC+1
OK OK
P R+3, P+1
Q DGPTODI1+2, DGPTODI1+4
R ASK+2, R+1
RD ASK, B, S+1, R, P, C
S S+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ASK+1*, B+1*, S+2, R+1*, P+1*, C+1, OK*, OK+1, Q!
%DT DC*, Q!
%DT("A" DC*, DC+1*
%DT(0 DC*, DC+1*
DGB ASK+2*, B+2*, C+4, Q!
DGC C+2*, C+6, Q!
DGC1 R+3*, C+5, Q!
DGC2 R+3*, C+5, Q!
DGD ASK+2*, C+3, C+4, C+5, Q!
DGED ASK+2*, DC+2*, C+4, Q!
DGP P+2*, C+7, Q!
DGPGM DGPTODI1+3*, Q!
DGQ DGPTODI1+2, RD*, ASK*, DC*, DC+1*, B, S+1, R, R+4, P
, C, OK+1*, Q!
DGR R+2*, R+3*, R+4, C+5, Q!
DGS ASK+2*, S+3*, C+4, C+5, Q!
DGSD ASK+2*, DC*, DC+1, C+4, Q!
DGVAR DGPTODI1+3*, Q!
DIC R+4*, Q!
DIC(0 R+4*
DT ASK+2, DC
DTIME RD
IO DGPTODI1+4
IOP DGPTODI1+2*!
POP DGPTODI1+4, Q!
X DGPTODI1+4*, RD*, RD+1*, ASK*, ASK+2, DC, DC+1, B*, B+2, S+1*
, S+3, R*, R+2, R+3, P*, P+2, C*, C+2, Q!
Y DC, DC+1, DC+2, C+4*, Q!
Z ASK*, B*, S+1*, R*, P*, C*, Q!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All