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

Package: Registration

Routine: DGPTOLC2


Information

DGPTOLC2 ;ALB/AS/ADL - SUMMARY BY ADM RPT, lists diagnoses,sur,pro (cont.) ; 11/15/06 3:15pm

Source Information

Source file <DGPTOLC2.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Registration 4 ^DGPMLOS  Q2^DGPTOLC1  LO^DGUTL  IN5^VADPT  
DRG Grouper 2 ($$ICDDX,$$ICDOP)^ICDCODE  $$GETDATE^ICDGTDRG  
Kernel 1 $$FMTE^XLFDT  
VA Fileman 1 (,NOW)^%DTC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGPTOLC1  

Entry Points

Name Comments DBIA/ICR reference
C
EN
E
D
CRT
DGPRO
LOS
S
P1
BS
CONT
DT
HD

External References

Name Field # of Occurrence
^%DTC E+1
NOW^%DTC EN
^DGPMLOS HD+2
Q2^DGPTOLC1 EN+3
LO^DGUTL EN
$$ICDDX^ICDCODE C
$$ICDOP^ICDCODE P1
$$GETDATE^ICDGTDRG C, P1
IN5^VADPT DGPRO+1
$$FMTE^XLFDT EN, DT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,?21,"PATIENT SUMMARY by ADMISSION",!!?51,"Run Date: ",DGDT,!,DGPT,?32,"SSN: ",$P(^DPT(+^DGPT(PTF,0),0),"^",9),?51,"Admitted: "
  • Line Location: HD+0
Function Call: WRITE
  • Prompt: !,"Elig: ",DGELIG," (",DGSTAT,")",?50,"Discharge: "
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: "Fee Basis"
  • Condition for execution: DGFEE
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: "Total LOS: "
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: $S(X>0:X,1:"1")
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: $S(X>0:X,1:"1")
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: ?55,"PTF #: ",PTF,?72,"Pg: ",DGPG
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !,"* indicates the most recent PROVIDER entered for this admission",!
  • Condition for execution: DGPMIFN>0
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !!,"Movement Date: "
  • Line Location: D+2
Function Call: WRITE
  • Prompt: ?40,"(Discharge 501)"
  • Condition for execution: DGMD(DGS)=1
  • Line Location: D+2
Function Call: WRITE
  • Prompt: !!,"Discharge Move: (701/2/3 Diagnoses)",!
  • Line Location: D+3
Function Call: WRITE
  • Prompt: !!,"Surgery Date: "
  • Line Location: S+0
Function Call: WRITE
  • Prompt: !!,"Procedure Date: "
  • Line Location: S+2
Function Call: WRITE
  • Prompt: !,"Total LOS: ",$S(DGLOS>0:DGLOS,1:"1")
  • Condition for execution: DGFEE
  • Line Location: S+3
Function Call: WRITE
  • Prompt: !
  • Line Location: S+3
Function Call: WRITE
  • Prompt: !,"Diagnosis Codes, (cont.)"
  • Line Location: C+1
Function Call: WRITE
  • Prompt: ?10,$P(DGICD,"^",3)_" ("_$P(DGICD,"^",1)_")"
  • Line Location: C+2
Function Call: WRITE
  • Prompt: " Codes, (cont.)"
  • Line Location: P1+1
Function Call: WRITE
  • Prompt: !?10,$P(DGICD,"^",4)_" ("_$P(DGICD,"^")_")"
  • Line Location: P1+2
Function Call: WRITE
  • Prompt: $TR($$FMTE^XLFDT(X,"5DF")," ","0")
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: "@"_$E(X,1,2)_":"_$E(X_"0000",3,4)
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: !,"Losing Specialty: ",DGBS
  • Line Location: BS+0
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+0
Function Call: READ
  • Prompt: "Enter <RETURN> to continue"
  • Formatting: ?20
  • Timeout: DTIME
  • Variable: Y
  • Line Location: CONT+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(2 E
^DGPM - [#405] DGPRO
^DGPM("APTF" EN+2, DGPRO
^DGPT - [#45] EN+2, E+1, E+3, HD, D, D+1, D+2, S, S+1, S+2
^DIC(42.4 - [#42.4] BS
^DIC(8 - [#8] E
^DPT - [#2] E, E+2, HD
^VA(200 - [#200] E+2, E+3

Label References

Name Line Occurrences
BS D+2
C D+2, D+3
CONT S+3
CRT C+1, P1+1
D EN+2
DGPRO E+3
DT HD, HD+1, D+2, S, S+2
E EN+2
HD EN+2
LOS D+2
P1 S, S+1, S+2
S D

Naked Globals

Name Field # of Occurrence
^( E, E+2, D+1, S, S+2
^("401P" S+1
^("P" E+3
^(0 EN+2, E, E+2, E+3, D+1, D+2, BS
^(70 E+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN*, E*, LOS*
>> D1 E+1*
>> DFN EN+2*, E, E+2
>> DG70 E+1*, E+2, E+3, HD+1, D+3
>> DGADM EN+1*, EN+2*, E+1, HD
>> DGBS D+2*, BS*
>> DGC D+2*, D+3*, S*, S+1*, S+2*, C, C+2, P1
>> DGDT EN*, HD
>> DGELIG E*, HD+1
DGF S*, S+1!, P1+1
>> DGFEE E+1*, HD+1, D+2, S+3
>> DGICD C*, C+2, P1*, P1+2
>> DGLOS E+1*, S+3, LOS+1*
>> DGLV E+1*, LOS*, LOS+1
>> DGM D+2*, D+3*, C, LOS
DGMD D+1!*
DGMD( D+1*, D+2
>> DGNAME EN+1*
>> DGPG EN+2*, HD+3*
>> DGPMIFN EN+2*, HD+2, HD+3
>> DGPRO E+2*, E+3*, HD+2, DGPRO+1*, DGPRO+2*
>> DGPT EN*, EN+2*, HD
>> DGPTF( EN+1*!, EN+2
>> DGPTTMP C*, P1*
>> DGPTX EN+2*
>> DGS D+1*, D+2*, S*, S+2*
>> DGSTAT E*, HD+1
>> DGSUR S*, S+1*, S+2*, P1
DT EN, E+1
DTIME CRT, CONT+1
IOF HD
IOSL C+1, P1+1, CONT
IOST CRT, S+3
>> PTF EN+1*, EN+2*, E+1, E+3, HD, HD+3, D, D+1, D+2, S
, S+1, S+2, C, P1, DGPRO
U C, P1
VAIP DGPRO+1!, DGPRO+2!
VAIP("E" DGPRO*, DGPRO+1
VAIP(7 DGPRO+1
>> X E*, E+1, HD*, HD+1*, HD+2*, D+2*, S*, S+2*, DT*, DGPRO*
>> X1 E+1*
>> X2 E+1*
>> Y CRT*, CONT*, CONT+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All