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

Package: Registration

Routine: DGPTFD


Information

DGPTFD ;ALB/MTC/ADL,HIOFO/FT,WOIFO/PMK - Sets Required Variables for DRG on 701 Screen ;6/2/15 11:28am

Source Information

Source file <DGPTFD.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
DRG Grouper 3 $$CODEC^ICDEX  $$GETDATE^ICDGTDRG  $$ICDDATA^ICDXCODE  
Registration 3 ($$STR401,$$STR601,$$STR701,$$STR701P)^DGPTFUT  EFFDATE^DGPTIC10  ^DGPTICD  
Kernel 1 $$STRIP^XLFSTR  
Lexicon Utility 1 $$IMPDATE^LEXU  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Registration 6 DGOIL1  DGPTDRG  DGPTF4  DGPTOD2  DGPTODI2  ^DGPT  

Entry Points

Name Comments DBIA/ICR reference
EN1 ;-- entry point from 701
DRG ;
Q
OLD ;-- used to format diagnostic codes for old PTF records
TAG ;-- used to build sur/proc string date
POA(POA) ; Calculate of POA should be used in DRG
; coordinate with POA^DGPTRI4

External References

Name Field # of Occurrence
$$STR401^DGPTFUT EN1+44
$$STR601^DGPTFUT EN1+63
$$STR701^DGPTFUT EN1+25
$$STR701P^DGPTFUT EN1+22
EFFDATE^DGPTIC10 EN1+16
^DGPTICD DRG+1
$$CODEC^ICDEX OLD+1
$$GETDATE^ICDGTDRG EN1+14
$$ICDDATA^ICDXCODE EN1+28, EN1+37, EN1+56, EN1+60, TAG+1
$$IMPDATE^LEXU EN1+32
$$STRIP^XLFSTR EN1+45, EN1+64

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPT - [#45] EN1+1, EN1+34, EN1+43, EN1+45, EN1+59, EN1+62, EN1+64
^DPT - [#2] EN1+12

Label References

Name Line Occurrences
$$POA EN1+32, EN1+38
DRG EN1+59
OLD EN1+34
Q EN1+4
TAG EN1+45, EN1+64

Naked Globals

Name Field # of Occurrence
^("401P" EN1+59
^(0 EN1+12, EN1+34
^(70 EN1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AGE EN1+12*, Q!
>> DFN EN1+12
DG701 EN1+19~, EN1+25*, EN1+27, EN1+28, EN1+30
>> DGCPT DRG+1
>> DGCST EN1+14, EN1+18
>> DGDAT EN1+14*, EN1+18*
DGDMS EN1+8*, Q!
DGDRGPRT DRG+1*, Q!
DGDX EN1+20*, EN1+30*, EN1+38*, Q!, OLD+2*
DGDXPOA EN1+19~, EN1+20*, EN1+32*, EN1+38*
DGEXP EN1+6*, Q!
DGI EN1+27*, EN1+28, EN1+30, EN1+32, EN1+34*, EN1+43*, EN1+44, EN1+45, EN1+49*, EN1+50
, EN1+60*, EN1+62*, EN1+63, EN1+64, EN1+66*, EN1+67, Q!
DGJ EN1+34*, Q!, OLD+1*, TAG+1*
DGNODE EN1+34*, Q!, OLD+1
DGPOA EN1+19~, EN1+22*, EN1+32, EN1+38
DGPOACNT EN1+19~, EN1+23*
DGPROC EN1+41!, EN1+59*, EN1+60*, EN1+66*, EN1+73*, Q!
DGPROC( EN1+64*, EN1+66, EN1+67, EN1+71*, TAG+1*
DGPT Q!
DGPT(70 EN1+1*, EN1+4, EN1+6, EN1+8, EN1+10, EN1+12, EN1+24, EN1+34, EN1+36, EN1+59
>> DGPTTMP EN1+28*, EN1+29, EN1+37*, EN1+38, EN1+56*, EN1+57, EN1+60*, TAG+1*
DGSURG EN1+41!, EN1+49*, EN1+55*, Q!
DGSURG( EN1+45*, EN1+49, EN1+50, EN1+57*, TAG+1*
>> DGTMP EN1+36*, EN1+37, EN1+38
DGTRS EN1+10*, Q!
>> DGVAR EN1+45*, EN1+64*, TAG+1
>> DISDATE EN1+14, EN1+18
DOB EN1+12*, Q!
DT EN1+12, EN1+14
>> EFFDATE EN1+18, EN1+28, EN1+32, EN1+37, EN1+56, EN1+60, TAG+1
I EN1+47~, EN1+51*, EN1+54, EN1+68*, EN1+71
ICDSURG Q!
ICDSURG( EN1+54*
K EN1+45*, EN1+64*, Q!, TAG+1
POA POA~, POA+6*, POA+7
>> PTF EN1+1, EN1+14, EN1+16, EN1+22, EN1+25, EN1+34, EN1+43, EN1+44, EN1+45, EN1+59
, EN1+62, EN1+63, EN1+64
SEX EN1+12*, Q!
SUB EN1+48~*, EN1+57*
U EN1+4, EN1+6, EN1+8, EN1+10, EN1+12, EN1+27, EN1+28, EN1+29, EN1+30, EN1+32
, EN1+34, EN1+36, EN1+38, EN1+49, EN1+51, EN1+53, EN1+55, EN1+57, EN1+60, EN1+66
, EN1+68, EN1+70, EN1+73, OLD+1, TAG+1
X EN1+44*, EN1+45, EN1+47~, EN1+50*, EN1+51, EN1+59*, EN1+60, EN1+63*, EN1+64, EN1+67*
, EN1+68, OLD+1*, OLD+2, TAG+1
Y EN1+47~, EN1+51*, EN1+53, EN1+54, EN1+55, EN1+56, EN1+68*, EN1+70, EN1+71, EN1+73
Z EN1+47~, EN1+53*, EN1+70*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All