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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DGPTODI3

Package: Registration

Routine: DGPTODI3


Information

DGPTODI3 ;ALB/MTC - DRG INDEX(CONT),PRINT FROM ^UTILITY GLOBAL ; 8/29/01 11:08am

Source Information

Source file <DGPTODI3.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
DRG Grouper 1 $$DRGD^ICDGTDRG  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGPTODI2  

Entry Points

Name Comments DBIA/ICR reference
HDR
HD1
LN
NC
TOT
L2
DT
PNC
FLG
HD2

External References

Name Field # of Occurrence
$$DRGD^ICDGTDRG HD1+6
$$FMTE^XLFDT DT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!?61,"Summary Page",!!!,"Total combined hits for Medical Center of all DRGs: ",DGTP(1),!,"The following list gives the total hits by DRG:"
  • Line Location: DGPTODI3+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DGPTODI3+5
Function Call: WRITE
  • Prompt: " DRG ",$J(DRG,3),":",$J(DRG(DRG),4)
  • Line Location: DGPTODI3+5
Function Call: WRITE
  • Prompt: $P(^DPT(DFN,0),"^",1)
  • Line Location: LN+1
Function Call: WRITE
  • Prompt: ?55,"----------"
  • Condition for execution: DGD=0
  • Line Location: LN+2
Function Call: WRITE
  • Prompt: ?55
  • Line Location: LN+2
Function Call: WRITE
  • Prompt: ?76
  • Line Location: LN+4
Function Call: WRITE
  • Prompt: $J(DGLOS,4),?83,$J(DGBE,5)
  • Line Location: LN+4
Function Call: WRITE
  • Prompt: $J(DGLOS,4),?83,$J(DGBE,5)
  • Line Location: LN+4
Function Call: WRITE
  • Prompt: ?99
  • Line Location: LN+5
Function Call: WRITE
  • Prompt: $S(DGSTAT=0:"O",DGSTAT=1:"C",DGSTAT=2:"R",1:"T")
  • Line Location: LN+5
Function Call: WRITE
  • Prompt: $S($D(^VA(200,DGPRO,0)):$E($P(^VA(200,DGPRO,0),"^",1),1,29),1:"not specified"),"/"
  • Line Location: LN+6
Function Call: WRITE
  • Prompt: !,?103,$E($P(^DIC(42.4,DGBS,0),"^",1),1,29)
  • Line Location: LN+7
Function Call: WRITE
  • Prompt: " *"
  • Line Location: FLG+0
Function Call: WRITE
  • Prompt: !
  • Line Location: TOT+0
Function Call: WRITE
  • Prompt: !!,"FLAGS: H - Total Above High Trim: ",DGAT," * - Total 1 Day LOS: ",DG1DAY," A - Total Above ALOS: ",DGAAL
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: !!?64,"-",DGPAG,"-"
  • Line Location: TOT+2
Function Call: WRITE
  • Prompt: $TR($$FMTE^XLFDT(Y,"5DF")," ","0")
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: @IOF,!,"DRG INDEX FOR DRG ",DRG,?30,"Weight: "
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: $P(%,"^",2),?46,"Low Trim: "
  • Line Location: HD1+3
Function Call: WRITE
  • Prompt: DGLO,?60,"High Trim: ",DGHI,?76,"Avg LOS: ",DGAL
  • Line Location: HD1+3
Function Call: WRITE
  • Prompt: ?105,"PRINTED: "
  • Line Location: HD1+4
Function Call: WRITE
  • Prompt: Y,!?3,"For ",$S(DGD:"Discharge Dates from: ",1:"Active Admissions")
  • Line Location: HD1+4
Function Call: WRITE
  • Prompt: Y,!?3,"For ",$S(DGD:"Discharge Dates from: ",1:"Active Admissions")
  • Line Location: HD1+4
Function Call: WRITE
  • Prompt: Y,!?3,"For ",$S(DGD:"Discharge Dates from: ",1:"Active Admissions")
  • Line Location: HD1+4
Function Call: WRITE
  • Prompt: Y,!?3,"For ",$S(DGD:"Discharge Dates from: ",1:"Active Admissions")
  • Line Location: HD1+4
Function Call: WRITE
  • Prompt: ?18,^ICD(DRG,1,%,0),!
  • Line Location: HD1+5
Function Call: WRITE
  • Prompt: ?18,DGDX(%),!
  • Line Location: HD1+7
Function Call: WRITE
  • Prompt: !!,?44,"ADMISSION",?55,"DISCHARGE",?66,"TRANSFER",?97,"PTF",?103,"TRANSFERRING PROVIDER/"
  • Line Location: HD1+8
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?33,"SSN",?44,"DATE",?55,"DATE",?66,"DATE",?77,"LOS",?91,"FLGS",?97,"STAT",?103,"LOSING SPECIALTY"
  • Line Location: HD1+9
Function Call: WRITE
  • Prompt: !,DGNC,?9,$P(^DPT(DFN,0),"^"),?45,$P(^(0),"^",9),?63
  • Line Location: PNC+0
Function Call: WRITE
  • Prompt: !,?64,"-",DGPAG,"-",@IOF
  • Condition for execution: DGPAG>0
  • Line Location: HD2+0
Function Call: WRITE
  • Prompt: !,"PTF #",?9,"PATIENT NAME",?45,"SSN",?60,"ADMISSION DATE",!,DGLN
  • Line Location: HD2+0
Function Call: WRITE
  • Prompt: @IOF,"A ",$S(DGB:"transfer ",1:""),"DRG can not be computed for 1 or more movement(s) associated with the following PTF records because ",$S(DGB:"transfer ",1:""),"ICD code(s) "
  • Line Location: NC+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: DGB
  • Line Location: NC+2
Function Call: WRITE
  • Prompt: "are missing:"
  • Line Location: NC+2
Function Call: WRITE
  • Prompt: !
  • Line Location: NC+5
Function Call: WRITE
  • Prompt: !?64,"-",DGPAG,"-",!
  • Line Location: NC+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" HD1+4
^DIC(42.4 - [#42.4] LN+7
^DPT - [#2] LN+1, PNC
^ICD - [#80.2] HD1
^UTILITY($J DGPTODI3+3, DGPTODI3+6, L2, HD1+10*, NC+4
^VA(200 - [#200] LN+6

Label References

Name Line Occurrences
DT LN+2, LN+3, PNC
FLG LN+4
HD1 HD1+1
HD2 NC+3, NC+4
HDR DGPTODI3+3, LN
L2 DGPTODI3+3
LN L2
NC DGPTODI3+6
PNC NC+4
TOT DGPTODI3+3

Naked Globals

Name Field # of Occurrence
^( L2, NC+4
^(0 HD1, PNC

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DGPTODI3+5*, FLG+1*, TOT*, HD1*, HD1+1, HD1+3, HD1+7*, NC+5*
>> DFN LN+1*, PNC, NC+4*
DG1DAY DGPTODI3+2*, DGPTODI3+6!, FLG*, TOT+1, TOT+2*
DGAAL DGPTODI3+2*, DGPTODI3+6!, FLG+1*, TOT+1, TOT+2*
DGAL DGPTODI3+6!, FLG+1, HD1+3*
DGAT DGPTODI3+2*, DGPTODI3+6!, FLG+1*, TOT+1, TOT+2*
>> DGB HD1+4, NC+1, NC+2
>> DGBE LN+4*, FLG+1
>> DGBS LN+6*, LN+7
DGBT DGPTODI3+2*, DGPTODI3+6!, FLG+1*, TOT+2*
>> DGD LN+2, HD1+4
DGDT DGPTODI3+6!, L2*, LN+3, PNC, NC+4*
DGDX HD1+6~
DGDX( HD1+7
>> DGED HD1+4
>> DGFY2K HD1, HD1+1*, HD1+2*
DGFY2KSV HD1+1~*, HD1+2
DGFY2KYR HD1+1~*
DGHI DGPTODI3+6!, FLG+1, HD1+3*
DGLN DGPTODI3+2*, DGPTODI3+6!, TOT, HD1+10, HD2, NC+5
DGLN2 DGPTODI3+2*, DGPTODI3+6!
DGLO DGPTODI3+6!, HD1+3*
>> DGLOS LN+4*, FLG, FLG+1
DGNC DGPTODI3+6!, PNC, NC+4*
>> DGP DGPTODI3+3, LN+1
DGPAG DGPTODI3+2*, DGPTODI3+6!, TOT+2, HD1+10*, HD2*, NC*, NC+5*, NC+6
>> DGPRO LN+6*
DGPT DGPTODI3+3*, DGPTODI3+6!, LN+1
>> DGSD HD1+4
>> DGSTAT LN+5*
DGTD DGPTODI3+3*, DGPTODI3+6!
DGTDRG DGPTODI3+2*, DGPTODI3+6!, LN+1*
DGTP DGPTODI3+2*, DGPTODI3+6!, LN+1*, TOT, TOT+2*, NC*, NC+4*, NC+5
DGTP(1 DGPTODI3+2*, DGPTODI3+4, TOT+2*
DGUNIQ DGPTODI3+2*, DGPTODI3+6!, LN+2*, TOT, TOT+2*
>> DRG DGPTODI3+3*, DGPTODI3+5*, L2, TOT+2, HDR, HD1, HD1+6, HD1+10
>> DRG( DGPTODI3+5, TOT+2*
DT HD1+4, HD1+6
DXD HD1+6~*
I DGPTODI3+6!, TOT*, NC+5*
IOF DGPTODI3+4, HDR, HD2, NC+1
IOSL LN, TOT, NC+4, NC+5
J DGPTODI3+3*, DGPTODI3+5*, DGPTODI3+6!
J1 DGPTODI3+3*, DGPTODI3+6!, L2
K DGPTODI3+6!, L2*
L DGPTODI3+6!, L2*
>> SSN(1 DGPTODI3+2*, LN+2*, TOT+2*
>> SSN(2 LN+2*
>> X L2*, LN+1, LN+2, LN+3, LN+4, LN+5, LN+6
>> Y LN+2*, LN+3*, DT*, HD1+4*, PNC*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All