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

Package: Registration

Routine: DGPTRI3


Information

DGPTRI3 ;ALB/JDS/MJK/BOK,ISF/GJW,HIOFO/FT - PTF TRANSMISSION ;4/23/15 8:59am

Source Information

Source file <DGPTRI3.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Registration 4 $$TSDATA^DGACT  ($$STR401,$$STR501,$$STR601,$$STR701)^DGPTFUT  EFFDATE^DGPTIC10  (CDR,SAVE)^DGPTRI2  
DRG Grouper 1 ($$CS,$$CSI)^ICDEX  

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

Package Total Caller Graph
Registration 4 DGPTC1  DGPTF4  DGPTFVC  DGPTRI2  

Entry Points

Name Comments DBIA/ICR reference
535 ; -- setup 535 transactions
PHY ; -- set up physical mvt
ENTER
ENTER0
SAVE ;
Q
VERCHK(REC) ; -- check version for all diagnosis and procedure codes
CPTDATA ; -- get 801 movement Diagnosis Data in DG801(i,j,"DATA")
; 801 movement uses CPT Record date instead of 701 type dates

External References

Name Field # of Occurrence
$$TSDATA^DGACT PHY+7, PHY+17
$$STR401^DGPTFUT VERCHK+34
$$STR501^DGPTFUT VERCHK+18
$$STR601^DGPTFUT VERCHK+26
$$STR701^DGPTFUT VERCHK+10
EFFDATE^DGPTIC10 VERCHK+5
CDR^DGPTRI2 PHY+3, PHY+13
SAVE^DGPTRI2 SAVE+1
$$CS^ICDEX VERCHK+6, VERCHK+7, CPTDATA+6
$$CSI^ICDEX VERCHK+12, VERCHK+20, VERCHK+28, VERCHK+36, VERCHK+44, CPTDATA+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"401 ",$S(ERR4=2:"ICD-9",1:"ICD-10")," Code Expected, ",$S(ERR4=2:"ICD-10",1:"ICD-9")," Code found."
  • Line Location: VERCHK+51
Function Call: WRITE
  • Prompt: !,"501 ",$S(ERR2=1:"ICD-9",1:"ICD-10")," Code Expected, ",$S(ERR2=1:"ICD-10",1:"ICD-9")," Code found."
  • Line Location: VERCHK+52
Function Call: WRITE
  • Prompt: !,"601 ",$S(ERR3=2:"ICD-9",1:"ICD-10")," Code Expected, ",$S(ERR3=2:"ICD-10",1:"ICD-9")," Code found."
  • Line Location: VERCHK+53
Function Call: WRITE
  • Prompt: !,"601 ",$S(ERR5=1:"ICD-9",1:"ICD-10")," Code Expected, ",$S(ERR5=1:"ICD-10",1:"ICD-9")," Code found."
  • Line Location: VERCHK+54
Function Call: WRITE
  • Prompt: !,"701 ",$S(ERR1=1:"ICD-9",1:"ICD-10")," Code Expected, ",$S(ERR1=1:"ICD-10",1:"ICD-9")," Code found."
  • Line Location: VERCHK+55
Function Call: WRITE
  • Prompt: !,"801 ",$S(ERR6=1:"ICD-9",1:"ICD-10")," Code Expected, ",$S(ERR6=1:"ICD-10",1:"ICD-9")," Code found."
  • Line Location: VERCHK+56

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCPT(46 - [#46] CPTDATA+8, CPTDATA+10
^DGPT - [#45] 535+5, PHY+11, VERCHK+9, VERCHK+17, VERCHK+25, VERCHK+33, VERCHK+41, CPTDATA+4, CPTDATA+5, CPTDATA+6

Label References

Name Line Occurrences
CPTDATA VERCHK+49
ENTER0 PHY+9, PHY+19, PHY+24
PHY 535+5
SAVE PHY+25

Naked Globals

Name Field # of Occurrence
^( 535+5, PHY+11
^("401P" VERCHK+41
^(0 535+5, PHY+11
^(70 VERCHK+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% VERCHK+1~, VERCHK+9*, VERCHK+10*, VERCHK+11, VERCHK+18*, VERCHK+19, VERCHK+26*, VERCHK+27, VERCHK+34*, VERCHK+35
, VERCHK+41*, VERCHK+42*, VERCHK+43
CODSYSD VERCHK+1~, VERCHK+6*, VERCHK+13, VERCHK+21, VERCHK+45
CODSYSP VERCHK+1~, VERCHK+7*, VERCHK+29, VERCHK+37
>> DG801( CPTDATA+6*, CPTDATA+8, CPTDATA+10*, CPTDATA+11, CPTDATA+17!
DGARRX PHY+6~, PHY+7*, PHY+16~, PHY+17*
DGARRY PHY+6~, PHY+7, PHY+16~, PHY+17
DGARRY(7 PHY+8, PHY+18
DGCPTDT CPTDATA+2~, CPTDATA+6*
DGCPTSYS CPTDATA+2~, CPTDATA+6*, CPTDATA+13
>> DGERR VERCHK+51*, VERCHK+52*, VERCHK+53*, VERCHK+54*, VERCHK+55*, VERCHK+56*
>> DGHEAD PHY+1
DGICD VERCHK+1~, VERCHK+11*, VERCHK+12, VERCHK+19*, VERCHK+20, VERCHK+27*, VERCHK+28, VERCHK+35*, VERCHK+36, VERCHK+43*
, VERCHK+44, CPTDATA+11*, CPTDATA+12
DGM 535+5*, PHY+3, PHY+7, PHY+8*, PHY+9, PHY+24, PHY+26!
DGPTDAT VERCHK+2~
DGPTF VERCHK+1~
>> DGTD 535+5*, PHY+1, PHY+11
EFFDATE VERCHK+2~, VERCHK+6, VERCHK+7
ERR1 VERCHK+1~, VERCHK+11, VERCHK+13*, VERCHK+55
ERR2 VERCHK+1~, VERCHK+19, VERCHK+21*, VERCHK+52
ERR3 VERCHK+1~, VERCHK+27, VERCHK+29*, VERCHK+53
ERR4 VERCHK+1~, VERCHK+35, VERCHK+37*, VERCHK+51
ERR5 VERCHK+1~, VERCHK+43, VERCHK+45*, VERCHK+54
ERR6 VERCHK+1~, VERCHK+56, CPTDATA+11, CPTDATA+13*
F CPTDATA+7*, CPTDATA+15*, CPTDATA+17, CPTDATA+20!
FLD VERCHK+1~
H CPTDATA+2~, CPTDATA+3*, CPTDATA+4*, CPTDATA+5
I 535+5*, VERCHK+1~, VERCHK+17*, VERCHK+18, VERCHK+25*, VERCHK+26, VERCHK+33*, VERCHK+34, CPTDATA+2~, CPTDATA+3*
CPTDATA+5*, CPTDATA+6, CPTDATA+20!
I2 CPTDATA+2~, CPTDATA+4*, CPTDATA+6, CPTDATA+8, CPTDATA+10, CPTDATA+11, CPTDATA+17*
ICD VERCHK+1~, VERCHK+11*, VERCHK+19*, VERCHK+27*, VERCHK+35*, VERCHK+43*
IEN CPTDATA+2~
IMPDATE VERCHK+2~
J 535+5, PHY+11, VERCHK+1~
K CPTDATA+2~, CPTDATA+7*, CPTDATA+8*, CPTDATA+10, CPTDATA+20!
K1 CPTDATA+2~, CPTDATA+7*, CPTDATA+9*, CPTDATA+10, CPTDATA+11, CPTDATA+20!
L PHY+9*, PHY+19*, PHY+24*, PHY+26!, ENTERENTER0CPTDATA+2~, CPTDATA+11*
M VERCHK+1~, VERCHK+17*
N CPTDATA+2~, CPTDATA+3*, CPTDATA+20!
>> PTF CPTDATA+4, CPTDATA+5, CPTDATA+6, CPTDATA+8
REC VERCHK~, VERCHK+3, VERCHK+5, VERCHK+9, VERCHK+10, VERCHK+17, VERCHK+18, VERCHK+25, VERCHK+26, VERCHK+33
, VERCHK+34, VERCHK+41
>> T1 535+5, PHY+1
>> T2 535+5
U 535+5, PHY+3, PHY+7, PHY+8, PHY+13, PHY+17, PHY+18, PHY+24, ENTERENTER0
, VERCHK+11, VERCHK+19, VERCHK+27, VERCHK+35, VERCHK+42, VERCHK+43, CPTDATA+6, CPTDATA+10, CPTDATA+11
VER VERCHK+1~
X PHY+1*, PHY+9*, PHY+11*, PHY+13, PHY+17, PHY+18*, PHY+24*, PHY+26!, ENTERENTER0
, VERCHK+1~, VERCHK+12*, VERCHK+13, VERCHK+20*, VERCHK+21, VERCHK+28*, VERCHK+29, VERCHK+36*, VERCHK+37, VERCHK+44*
, VERCHK+45, CPTDATA+12*, CPTDATA+13
Y PHY+1*, ENTER*, ENTER0*, VERCHK+1~
Z PHY+3*, PHY+9*, PHY+11*, PHY+13*, PHY+19*, PHY+24*, PHY+26!, ENTERENTER0
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All