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

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls