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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: DGPTODCM

Package: Registration

Routine: DGPTODCM


Information

DGPTODCM ;ALB/JAT - PTF DRG CASE MIX REPORT ; 9/14/01 10:35am

Source Information

Source file <DGPTODCM.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Registration 1 C^DGUTL  
VA Fileman 1 DT^DIQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGPTOD1  

Entry Points

Name Comments DBIA/ICR reference
HEAD ; top of page
UNLOAD ;
COVER ; cover page
SVC ; Service names
TOT ; print totals
PRINT ; print a line

External References

Name Field # of Occurrence
C^DGUTL COVER+4
DT^DIQ HEAD+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,?10,"Total Weight: Sum of all DRGs",!!
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: ?62,"-",P,"-"
  • Condition for execution: P
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: @IOF,!,"DRG Case Mix Summary for ",$S(DGFLAG'["M":G2_" SERVICE",1:"MEDICAL CENTER"),$S(DGFLAG["Spec":" by Specialty",1:"") I 'DGD
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: " for Active Admissions"
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !,"Discharge Dates from "
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: $P(Y,"@",1)," to "
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: $P(Y,"@",1)," to "
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: E
  • Line Location: HEAD+15
Function Call: WRITE
  • Prompt: !
  • Line Location: UNLOAD+21
Function Call: WRITE
  • Prompt: !,?10,"Total Weight: Sum of all DRGs",!!
  • Line Location: UNLOAD+22
Function Call: WRITE
  • Prompt: ?62,"-",P,"-"
  • Condition for execution: P
  • Line Location: UNLOAD+23
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: UNLOAD+23
Function Call: WRITE
  • Prompt: !,?5,B1,?38,$J(B2,12,2),?58,$J(B3,10),?75,$J(B4,14,2)
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !!,?5,"TOTALS",?38,$J(T2,12,2),?58,$J(T3,10),?75,$J(T4,14,2)
  • Line Location: TOT+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" COVER+3, HEAD+4
^DIC(42.4 - [#42.4] UNLOAD+10
^UTILITY("DGPTOD1" DGPTODCM+6, DGPTODCM+30!
^VA(200 - [#200] UNLOAD+17

Label References

Name Line Occurrences
COVER DGPTODCM+27
HEAD DGPTODCM+27, UNLOAD+7, UNLOAD+14, PRINT+1
PRINT UNLOAD+5, UNLOAD+12, UNLOAD+19
SVC UNLOAD+3
TOT UNLOAD+6, UNLOAD+13, UNLOAD+20
UNLOAD DGPTODCM+29

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DGPTODCM+5~, COVER+3*, HEAD+1*, UNLOAD+21*
B1 DGPTODCM+4~, UNLOAD+3*, UNLOAD+10*, UNLOAD+17*, PRINT+2
B2 DGPTODCM+4~, UNLOAD+4*, UNLOAD+11*, UNLOAD+18*, PRINT+2, PRINT+3
B3 DGPTODCM+4~, UNLOAD+4*, UNLOAD+11*, UNLOAD+18*, PRINT+2, PRINT+3
B4 DGPTODCM+4~, UNLOAD+4*, UNLOAD+11*, UNLOAD+18*, PRINT+2
DGB DGPTODCM+3~, DGPTODCM+10*, DGPTODCM+12*, DGPTODCM+18, DGPTODCM+19, COVER+3, HEAD+5
DGBED DGPTODCM+3~, UNLOAD+8
DGBED( DGPTODCM+18*, DGPTODCM+19*, UNLOAD+9, UNLOAD+11
DGCPG DGPTODCM+5~
DGCPG(1 COVER+1*
DGCPG(2 COVER+2*, COVER+3*
DGCPG(3 COVER+3*
>> DGD COVER+2, COVER+3, HEAD+3, HEAD+4
DGDEF DGPTODCM+3~, DGPTODCM+7*, DGPTODCM+8
>> DGED COVER+3, HEAD+4
DGFLAG DGPTODCM+5~, DGPTODCM+26*, COVER+1, HEAD+3
DGP DGPTODCM+3~, DGPTODCM+10*, DGPTODCM+13*, DGPTODCM+21, DGPTODCM+22
DGPASS DGPTODCM+4~, DGPTODCM+25*, HEAD+6, HEAD+9, HEAD+12, UNLOAD+7*, UNLOAD+14*
DGPRO DGPTODCM+3~, UNLOAD+15
DGPRO( DGPTODCM+21*, DGPTODCM+22*, UNLOAD+16, UNLOAD+18
DGREF DGPTODCM+3~, DGPTODCM+6*, DGPTODCM+7, DGPTODCM+8*, DGPTODCM+9, DGPTODCM+10
DGS DGPTODCM+3~, DGPTODCM+9*, DGPTODCM+11*, DGPTODCM+15, DGPTODCM+16
>> DGSD COVER+3, HEAD+4
DGSNM DGPTODCM+5~, UNLOAD+3, SVC+1*
DGSVC DGPTODCM+3~, UNLOAD+1
DGSVC( DGPTODCM+15*, DGPTODCM+16*, UNLOAD+2, UNLOAD+4
DGTCH DGPTODCM+5~, COVER+4*
DGWGT DGPTODCM+3~, DGPTODCM+9*, DGPTODCM+15, DGPTODCM+16, DGPTODCM+18, DGPTODCM+19, DGPTODCM+21, DGPTODCM+22
DT HEAD+5
E DGPTODCM+5~, HEAD+1*, HEAD+15!*, UNLOAD+21*
>> G2 HEAD+3
IOF HEAD+3, UNLOAD+23
IOSL HEAD+1, UNLOAD+21, PRINT+1
P DGPTODCM+5~, DGPTODCM+25*, HEAD+1, HEAD+2, HEAD+3, HEAD+16*, UNLOAD+21, UNLOAD+22, UNLOAD+23
P3 DGPTODCM+5~, DGPTODCM+26*, COVER+4
T1 DGPTODCM+4~
T2 DGPTODCM+4~, DGPTODCM+28*, PRINT+3*, TOT+1, TOT+2*
T3 DGPTODCM+4~, DGPTODCM+28*, PRINT+3*, TOT+1, TOT+2*
T4 DGPTODCM+4~, PRINT+3*, TOT+1
U DGPTODCM+9, DGPTODCM+10, DGPTODCM+15, DGPTODCM+16, DGPTODCM+18, DGPTODCM+19, DGPTODCM+21, DGPTODCM+22, UNLOAD+4, UNLOAD+10
, UNLOAD+11, UNLOAD+17, UNLOAD+18
X DGPTODCM+4~, UNLOAD+1*, UNLOAD+2*, UNLOAD+4, UNLOAD+8*, UNLOAD+9*, UNLOAD+10, UNLOAD+11, UNLOAD+15*, UNLOAD+16*
, UNLOAD+17, UNLOAD+18, SVC+1
Y DGPTODCM+4~, COVER+3*, HEAD+4*, HEAD+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All