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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DGPTRI4

Package: Registration

Routine: DGPTRI4


Information

DGPTRI4 ;ALB/JDS/MJK/MTC/ADL/TJ/BOK,ISF/GJW,HIOFO/FT - PTF TRANSMISSION ;5/11/15 12:24pm

Source Information

Source file <DGPTRI4.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Registration 7 PTFICD^DGPTFUT  EFFDATE^DGPTIC10  CEN^DGPTRI1  (FILL,SAVE)^DGPTRI2  ($$AO,$$DISP,$$FDATE,$$FMTICD,$$HNC,$$ION2,$$MST,$$PDIS,$$SHAD,$$SWASIA,$$TIME)^DGPTRNU  ($$CDATA,$$DXLSONLY,$$FMTMPCR,$$JUSTIFY,$$SPEC2PTF,$$TDIS)^DGPTRNU1  ($$INACTIVE,$$PTR2CODE)^DGUTL4  
DRG Grouper 1 $$ICDDATA^ICDXCODE  
Kernel 1 ($$LJ,$$REPEAT,$$RJ)^XLFSTR  
VA FileMan 1 $$GET1^DIQ  

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

Package Total Caller Graph
Registration 1 DGPTRI2  

Entry Points

Name Comments DBIA/ICR reference
701 ; -- setup 701 transaction
702 ;create 702 only if there are secondary DXs
POA(Y) ;-- Add POA to end of 101 segment with POA ;FT 3/23/15 - MAY NOT BE NEEDED
POAVAL(POA) ; -- Convert POA indicator to a 1 or 0 for use in calculating DRG
; -- note: Transmission of space " " if no corresponding DIAGNOSIS
; -- see POA^DGPTFD, same logic, different return values.
ENTER
ENTER0
SAVE ;validate data and save to MailMan message & ^TMP("AEDIT",$J)
Q
CSAVE ;sets MailMan message, not ^TMP("AEDIT",$J)
CDR
RTEN(X) ; This function will round X to the nearest multiple of ten.
; 0-4 ->DOWN; 5-9->UP
ETHNIC(DGPTJ) ;Ethnicity (use first active value)
RACE(DGPTJ) ;-- Race (use first 6 active values)
N701(PTF,DGT1) ;create 701 segment
N702(PTF) ;create 702 segment

External References

Name Field # of Occurrence
PTFICD^DGPTFUT N702+14
EFFDATE^DGPTIC10 N702+13
CEN^DGPTRI1 701+7
FILL^DGPTRI2 CSAVE+2
SAVE^DGPTRI2 702+4, SAVE+1
$$AO^DGPTRNU N701+48
$$DISP^DGPTRNU N701+10
$$FDATE^DGPTRNU N701+11, N702+8
$$FMTICD^DGPTRNU N701+31, N702+20
$$HNC^DGPTRNU N701+52
$$ION2^DGPTRNU N701+49
$$MST^DGPTRNU N701+51
$$PDIS^DGPTRNU N701+22
$$SHAD^DGPTRNU N701+57
$$SWASIA^DGPTRNU N701+50
$$TIME^DGPTRNU N701+12, N702+9
$$CDATA^DGPTRNU1 N701+9, N702+6
$$DXLSONLY^DGPTRNU1 702+2, N701+33
$$FMTMPCR^DGPTRNU1 N701+38
$$JUSTIFY^DGPTRNU1 N701+27
$$SPEC2PTF^DGPTRNU1 N701+17, N701+39
$$TDIS^DGPTRNU1 N701+18
$$INACTIVE^DGUTL4 ETHNIC+9, RACE+9
$$PTR2CODE^DGUTL4 ETHNIC+10, ETHNIC+12, RACE+10, RACE+12
$$GET1^DIQ N701+8, N701+16, N701+19, N701+20, N701+23, N701+24, N701+25, N701+30, N701+31, N701+32
, N701+40, N701+46, N701+55, N702+7
$$ICDDATA^ICDXCODE N702+17
$$LJ^XLFSTR N702+21
$$REPEAT^XLFSTR N702+25
$$RJ^XLFSTR N701+41

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DGPT - [#45] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPT - [#45] POA+1, ETHNIC+4, RACE+4, N701+36
^DIC(10 - [#10] RACE+8
^DIC(10.2 - [#10.2] ETHNIC+8
^DPT - [#2] ETHNIC+4, RACE+4
^XMB(3.9 - [#3.9] CSAVE+4*, CSAVE+5*

Label References

Name Line Occurrences
$$ETHNIC N701+53
$$N701 701+1
$$N702 702+3
$$POAVAL POA+3
$$RACE N701+54
CSAVE 701+7
SAVE 701+8

Naked Globals

Name Field # of Occurrence
^( N701+36
^(0 N701+36

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ASIH N701+4~, N701+25*, N701+26*, N701+27*, N701+28
D1ONLY N701+3~, N701+33*, N701+34
DDATE N701+3~, N701+10*, N701+36
DDDIS N701+3~
DDIS N701+11*, N701+14, N702+3~, N702+8*, N702+11
DFN N701+1~, N701+8*
>> DG70 POA+2
>> DG71 POA+2
DGARRAY ETHNIC+3~, ETHNIC+4*, RACE+3~, RACE+4*
DGARRAY( ETHNIC+6, ETHNIC+7, RACE+6, RACE+7
>> DGCNT CSAVE+4*, CSAVE+5*
DGDX N702+1~, N702+19*, N702+20*, N702+21*, N702+24
>> DGERR 701+7
DGETHNIC ETHNIC+3~, ETHNIC+5*, ETHNIC+11*, ETHNIC+13*, ETHNIC+15
DGI RACE+3~, RACE+5*, RACE+6*, RACE+7
DGK RACE+3~
DGLOOP ETHNIC+3~, ETHNIC+5*, ETHNIC+6*, ETHNIC+7, N702+1~, N702+15*, N702+16*, N702+17, N702+19, N702+22
DGNODE ETHNIC+3~, ETHNIC+7*, ETHNIC+8, ETHNIC+9, ETHNIC+10, ETHNIC+12, RACE+3~, RACE+7*, RACE+8, RACE+9
, RACE+10, RACE+12
DGNUM ETHNIC+3~, ETHNIC+5*, ETHNIC+6, ETHNIC+14*, RACE+3~, RACE+5*, RACE+6, RACE+14*
DGPOA POA+1~*, POA+3, N702+1~, N702+22*, N702+23*, N702+24
DGPTJ ETHNIC~, ETHNIC+4, RACE~, RACE+4
DGPTTMP N702+1~, N702+17*, N702+18
DGRACE RACE+3~, RACE+5*, RACE+11*, RACE+13*, RACE+16*, RACE+17
>> DGRTY 702+1
DGSTRING N702+1~, N702+15*, N702+24*, N702+25
DGT1 N701~, N701+5*, N701+6
DGX ETHNIC+3~, ETHNIC+10*, ETHNIC+11, ETHNIC+12*, ETHNIC+13, RACE+3~, RACE+10*, RACE+11, RACE+12*, RACE+13
, RACE+15*, RACE+16
>> DGXMZ CSAVE+4, CSAVE+5
DGY ETHNIC+3~, ETHNIC+5*, ETHNIC+15*, ETHNIC+16, RACE+3~, RACE+5*, RACE+17*, RACE+18
DGY1 CSAVE+1~, CSAVE+3*, CSAVE+4
DGY2 CSAVE+1~, CSAVE+3*, CSAVE+5
DSPEC N701+3~, N701+16*, N701+17
DTM N701+3~, N701+10*, N701+11, N701+12, N702+3~, N702+7*, N702+8, N702+9
DXCODES N702+3~, N702+14
DXCODES( N702+16, N702+17, N702+19, N702+22
EFFDATE N702+3~, N702+17
I N701+1~, N701+3~, N702+1~
IENS N701+1~, N701+7*, N701+8, N701+16, N701+19, N701+20, N701+23, N701+24, N701+25, N701+30
, N701+31, N701+32, N701+46, N701+55, N702+1~, N702+4*, N702+7
IENS2 N701+1~, N701+8*, N701+40
IMPDATE N702+3~
>> J 701+1, 702+2, 702+3, POA+1
K 701+2~, 701+6*, POA+1~, POA+3*
L POA+1~, POA+2*, POA+3, ENTER, ENTER0
NNAME N701+2~, N701+6*, N701+9, N702+2~, N702+5*, N702+6
NODE N701+1~, N701+9*, N701+14*, N701+15*, N701+17*, N701+18*, N701+19*, N701+21*, N701+22*, N701+23*
, N701+24*, N701+28*, N701+29*, N701+30*, N701+31*, N701+32*, N701+34*, N701+38*, N701+39*, N701+41*
, N701+42*, N701+43*, N701+44*, N701+47*, N701+48*, N701+49*, N701+50*, N701+51*, N701+52*, N701+53*
, N701+54*, N701+56*, N701+58*, N701+59, N702+1~, N702+6*, N702+11*, N702+12*, N702+25*, N702+26
PDIS N701+3~
POA POAVAL~, POAVAL+3*, POAVAL+7
PTF N701~, N701+7, N701+9, N701+10, N701+18, N701+22, N701+33, N701+36, N701+48, N701+49
, N701+50, N701+51, N701+52, N701+53, N701+54, N701+57, N702~, N702+4, N702+6, N702+13
, N702+14
RACEA N701+3~
SA N701+3~
SC N701+3~, N701+40*, N701+41
SHAD N701+3~, N701+57*, N701+58
>> T1 701+1, 701+6, 701+7, 701+8
TDIS N701+3~, N701+12*, N701+13*, N701+15, N702+3~, N702+9*, N702+10*, N702+12
TYDIS N701+3~
U POA+2, POA+3, ENTER, ENTER0, N701+38, N701+39, N702+17, N702+18, N702+19, N702+22
VAA N701+4~, N701+20*, N701+21
X ENTER, ENTER0, RTEN~, RTEN+2, N701+1~, N701+3~, N701+36*, N701+38, N701+39, N701+46*
, N701+47, N701+55*, N701+56
Y 701+1*, 701+6*, 702+3*, POA~, POA+3*, ENTER*, ENTER0*, CSAVE+3, CDR*
>> Z ENTER, ENTER0, CDR, N701+36*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All