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

Package: Registration

Routine: DGPTRI0


Information

DGPTRI0 ;MJK/JS/ADL/TJ,ISF/GJW,HIOFO/FT - PTF TRANSMISSION ;4/9/15 2:57pm

Source Information

Source file <DGPTRI0.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Registration 9 $$CVEDT^DGCV  UP^DGHELP  $$GETSTAT^DGMSTAPI  PTFICD^DGPTFUT  EFFDATE^DGPTIC10  HEAD^DGPTRI1  (501,SAVE)^DGPTRI2  $$CKPOS^DGPTUTL  
$$EMGRES^DGUTL  
VA FileMan 2 $$GET1^DIQ  ^DIR  
DRG Grouper 1 $$ICDDATA^ICDXCODE  
Kernel 1 $$REPEAT^XLFSTR  
Scheduling 1 $$SHAD^SDCO22  

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 DGPTFTR  

Entry Points

Name Comments DBIA/ICR reference
ENTER0
SAVE ;
FORMAT ;format value
PTFNMFT(DG10) ;this function will format the name of the patient for
; transmission of the 101 record to Austin. In addition, this
; function will be used by OPC so that the format will be consistent
; for OPC and PTF.
; INPUT : DG10 - .01 field from the patient record.
; OUTPUT: name in the format proper format.
; A = <12 - characters of last name padded with blanks>
; B = <1 - first initial of fist name>
; C = <1 - first initial of middle name>
; returns :ABC <14 - characters>
DGNAM
Q
FORMAT0 ;format value with zeros
SUR ;
401 ; -- setup 401 transactions (402 and 403 are no longer used. All surgeries are 401 segments.)
ENTER
101 ; -- setup 101 transmission
; control data and name
501

External References

Name Field # of Occurrence
$$CVEDT^DGCV 101+43
UP^DGHELP DGNAM+1
$$GETSTAT^DGMSTAPI 101+41
PTFICD^DGPTFUT SUR+20
EFFDATE^DGPTIC10 SUR+17
HEAD^DGPTRI1 DGPTRI0+15
501^DGPTRI2 501
SAVE^DGPTRI2 SAVE+1
$$CKPOS^DGPTUTL 101+21
$$EMGRES^DGUTL 101+48
$$GET1^DIQ 101+50
^DIR SUR+8
$$ICDDATA^ICDXCODE SUR+23
$$SHAD^SDCO22 101+46
$$REPEAT^XLFSTR SUR+27

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^HL(779.004 - [#779.004] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] 101+19
^DGPM("APTF" 101+19
^DGPT - [#45] 101+21, 401+1, SUR+1, SUR+2
^DIC(11 - [#11] 101+13
^DIC(21 - [#21] 101+18
^DIC(45.1 - [#45.1] 101+5
^DIC(45.3 - [#45.3] SUR+11
^DIC(5 - [#5] 101+30, 101+32
^UTILITY($J 401+1!, SUR+4*, SUR+6

Label References

Name Line Occurrences
$$PTFNMFT 101+3
501 401+1, SUR+1
DGNAM PTFNMFT+11
ENTER DGPTRI0+14, SUR+16
FORMAT 101+7, 101+22, 101+34, 101+50
FORMAT0 101+30, 101+32, 101+39
SAVE 101+54, SUR+32
SUR SUR+3, SUR+4, SUR+32

Naked Globals

Name Field # of Occurrence
^( SUR+4
^("ODS" 101+19
^(0 101+5, 101+13, 101+18, 101+30, 101+32, SUR+4, SUR+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DG0 DGPTRI0+12, DGPTRI0+14, 101+9, 101+36, 101+41, 101+43, 101+46, 101+48
DG10 DGPTRI0+10, 101+3, 101+13, 101+15, PTFNMFT~, PTFNMFT+11
>> DG101 101+5, 101+7, 101+9, 101+38, 101+39
>> DG11 101+30, 101+32, 101+34, 101+50
>> DG32 101+18
>> DG321 101+24, 101+27
DG401CODES SUR+19~, SUR+20
DG401CODES( SUR+22, SUR+23, SUR+25
>> DG52 101+11
>> DG70 101+36
>> DGAO 101+24*
>> DGDOB 101+15*
>> DGERR SUR+6*
>> DGHEAD DGPTRI0+15*, 101+2, SUR+11
DGLOOP SUR+19~, SUR+21*, SUR+22*, SUR+23, SUR+25
>> DGNAM DGNAM, DGNAM+2*, PTFNMFT+11*, PTFNMFT+12
>> DGNT 101+27*
DGOCODE SUR+19~, SUR+25*, SUR+26
DGPOS 101+18*, 101+19*, 101+21*, 101+22, 101+24, 101+27, 101+28!
DGPTDAT SUR+17~
DGPTTMP SUR+19~, SUR+23*, SUR+24
DGSTRING SUR+19~, SUR+21*, SUR+26*, SUR+27
>> DGSUD SUR+4*, SUR+6, SUR+11
>> DGSUR SUR+2*, SUR+3, SUR+4, SUR+11, SUR+16
DGVALUE 101+7, 101+22, 101+34, 101+50, 101+53!, FORMAT+1*
DGVALUE0 101+30, 101+32, 101+39, 101+53!, FORMAT0+1*
DIR SUR+8!
DIR("A" SUR+8*
DIR("B" SUR+8*
DIR(0 SUR+8*
E 101+27*, 101+28!
EFFDATE SUR+17~, SUR+23
>> F SUR+4*, SUR+6, SUR+7
G 101+24*, 101+28!
I 401+1*, SUR+1*, SUR+2, SUR+20, DGNAM*, PTFNMFT+10~
IMPDATE SUR+17~
>> J 101+19, 401+1, SUR+1, SUR+2, SUR+17, SUR+20
>> L DGPTRI0+14*, 101+7*, 101+22*, 101+30*, 101+32*, 101+34*, 101+39*, 101+50*, SUR+16*, FORMAT+1
, FORMAT0+1, ENTER, ENTER0
>> PTF 101+21
>> T1 101+2, 101+55, SUR+4, SUR+11
>> T2 SUR+4
U DGPTRI0+10, DGPTRI0+12, DGPTRI0+14, 101+3, 101+5, 101+7, 101+9, 101+11, 101+13, 101+15
, 101+18, 101+21, 101+24, 101+27, 101+30, 101+32, 101+36, 101+38, 101+48, 101+50
, SUR+11, SUR+23, SUR+25, FORMAT+1, FORMAT0+1, ENTER, ENTER0
X DGPTRI0+10*, DGPTRI0+12*, DGPTRI0+14*, 101+7*, 101+22*, 101+30*, 101+32*, 101+34*, 101+39*, 101+41*
, 101+43*, 101+44*, 101+46*, 101+48*, 101+50*, SUR+16*, FORMAT+1, FORMAT0+1, ENTER, ENTER0
, DGNAM*, DGNAM+1, DGNAM+2, PTFNMFT+10~
>> Y DGPTRI0+10*, DGPTRI0+12*, DGPTRI0+14*, DGPTRI0+15*, 101+2*, 101+3*, 101+5*, 101+7*, 101+9*, 101+11*
, 101+13*, 101+15*, 101+16*, 101+22*, 101+28*, 101+30*, 101+32*, 101+34*, 101+36*, 101+38*
, 101+39*, 101+41*, 101+43*, 101+44*, 101+46*, 101+48*, 101+50*, 101+55*, SUR+6, SUR+11*
, SUR+27*, SUR+29*, ENTER*, ENTER0*
>> Z DGPTRI0+14*, 101+7*, 101+22*, 101+30*, 101+32*, 101+34*, 101+39*, 101+50*, SUR+16*, FORMAT+1
, FORMAT0+1, ENTER, ENTER0, DGNAM*
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