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

Package: Registration

Routine: DGPTOLC2


Information

DGPTOLC2 ;ALB/AS/ADL,HIOFO/FT - SUMMARY BY ADM RPT, lists diagnoses,sur,pro (cont.) ;3/19/15 11:44am

Source Information

Source file <DGPTOLC2.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Registration 6 ^DGPMLOS  PTFICD^DGPTFUT  ($$GETLABEL,EFFDATE,WRITECOD)^DGPTIC10  Q2^DGPTOLC1  LO^DGUTL  IN5^VADPT  
VA FileMan 2 (,NOW)^%DTC  FIELD^DID  
DRG Grouper 1 $$ICDDATA^ICDXCODE  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGPTOLC1  

Entry Points

Name Comments DBIA/ICR reference
C ; --Print Diagnosis and POA display
EN ;called from DGPTOLC1
E ;
D
CRT
DGPRO
LOS
S ; --
P1 ; -- Print Procedure Code
BS
CONT
DT
HD

External References

Name Field # of Occurrence
^%DTC E+9
NOW^%DTC EN+1
^DGPMLOS HD+2
PTFICD^DGPTFUT D+6, D+12
$$GETLABEL^DGPTIC10 D+4, D+10, S+1, S+5, S+6, C+3
EFFDATE^DGPTIC10 E+1
WRITECOD^DGPTIC10 C+5, P1+4
Q2^DGPTOLC1 EN+4
LO^DGUTL EN+1
FIELD^DID E+5
$$ICDDATA^ICDXCODE C+2, P1+2
IN5^VADPT DGPRO+1
$$FMTE^XLFDT EN+1, 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+4
Function Call: WRITE
  • Prompt: ?40,"(Discharge 501)"
  • Condition for execution: DGMD(DGS)=1
  • Line Location: D+4
Function Call: WRITE
  • Prompt: $$GETLABEL^DGPTIC10(EFFDATE,"D")
  • Line Location: D+4
Function Call: WRITE
  • Prompt: !!,"Discharge Move: (701/2/3 Diagnoses)",$$GETLABEL^DGPTIC10(EFFDATE,"D"),!
  • Line Location: D+10
Function Call: WRITE
  • Prompt: !!,"Surgery Date: "
  • Line Location: S+1
Function Call: WRITE
  • Prompt: $$GETLABEL^DGPTIC10(EFFDATE,"P")
  • Line Location: S+1
Function Call: WRITE
  • Prompt: !!,"Procedure Date: "
  • Line Location: S+6
Function Call: WRITE
  • Prompt: $$GETLABEL^DGPTIC10(EFFDATE,"P")
  • Line Location: S+6
Function Call: WRITE
  • Prompt: !,"Total LOS: ",$S(DGLOS>0:DGLOS,1:"1")
  • Condition for execution: DGFEE
  • Line Location: S+10
Function Call: WRITE
  • Prompt: !
  • Line Location: S+10
Function Call: WRITE
  • Prompt: !,"Diagnosis Codes, (cont.)",$$GETLABEL^DGPTIC10(EFFDATE,"D")
  • Line Location: C+3
Function Call: WRITE
  • Prompt: " ["_$S($P(DGDXPOA,U,2)]"":$P(DGDXPOA,U,2),1:" ")_"]"
  • Line Location: C+8
Function Call: WRITE
  • Prompt: " Codes, (cont.)"
  • Line Location: P1+3
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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] FIELD^DID

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
BS D+4
C D+8, D+14
CONT S+10
CRT C+3, P1+3
D EN+3
DGPRO E+11
DT HD, HD+1, D+4, S+1, S+6
E EN+3
HD EN+3
LOS D+4
P1 S+2, S+4, S+5, S+7, S+9
S D

Naked Globals

Name Field # of Occurrence
^( E+2, E+7, E+10, D+1, S+1, S+6
^("401P" S+5
^("P" E+11
^(0 EN+3, E+2, E+10, E+11, D+1, D+3, BS
^(70 E+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+1*, E+4*, E+6*, E+8, LOS*
>> D1 E+9*
>> DFN EN+3*, E+2, E+7, E+10
DG501 D+5!, D+6, D+15!
DG501( D+8
>> DG70 E+9*, E+10, E+11, HD+1, D+9, D+10
DG701 D+11!, D+12, D+15!
DG701( D+14
>> DGADM EN+2*, EN+3*, E+9, HD
>> DGBS D+3*, BS*
>> DGC S+2*, S+4*, S+5*, S+7*, S+9*, P1+1, P1+2, P1+4
>> DGDT EN+1*, HD
DGDXPOA D+8*, D+14*, D+15!, C+1, C+2, C+5, C+8
>> DGELIG E+2*, HD+1
DGF S+1*, S+5!, P1+3
>> DGFEE E+9*, HD+1, D+4, S+10
DGFLDERR E+3~
DGFLDPTR E+3~
DGFLDPTR("POINTER" E+6
DGLOOP D+7*, D+8*, D+13*, D+14*, D+15!, C+4
>> DGLOS E+9*, S+10, LOS+1*
>> DGLV E+9*, LOS*, LOS+1
>> DGM D+3*, D+10*, LOS
DGMD D+1!*
DGMD( D+1*, D+2, D+4, D+6
>> DGNAME EN+2*
>> DGPG EN+3*, HD+3*
>> DGPMIFN EN+3*, HD+2, HD+3
>> DGPRO E+10*, E+11*, HD+2, DGPRO+1*, DGPRO+2*
>> DGPT EN+1*, EN+3*, HD
>> DGPTF( EN+2*!, EN+3
>> DGPTTMP C+2*, C+6, C+7, P1+2*, P1+5
>> DGPTX EN+3*
>> DGS D+1*, D+2*, D+4, D+6, S+1*, S+3, S+6*, S+8
>> DGSTAT E+8*, HD+1
>> DGSUR S+1*, S+3*, S+4, S+5*, S+6*, S+8*, S+9, P1+1, P1+2, P1+4
DT EN+1, E+9
DTIME CRT, CONT+1
>> EFFDATE D+4, D+10, S+1, S+5, S+6, C+2, C+3, C+5, P1+2, P1+4
IOF HD
IOSL C+3, P1+3, CONT
IOST CRT, S+10
>> PTF EN+2*, EN+3*, E+1, E+9, E+11, HD, HD+3, D, D+1, D+2
, D+6, D+12, S+1, S+3, S+5, S+6, S+8, DGPRO
U S+4, S+9, C+1, C+2, C+5, C+6, C+7, C+8, P1+2, P1+5
VAIP DGPRO+1!, DGPRO+2!
VAIP("E" DGPRO*, DGPRO+1
VAIP(7 DGPRO+1
>> X E+7*, E+8, E+9, HD*, HD+1*, HD+2*, D+3*, S+1*, S+6*, DT*
, DGPRO*
>> X1 E+9*
>> X2 E+9*
>> Y CRT*, CONT*, CONT+1*
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 |  Naked Globals |  Local Variables |  All