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

Package: Registration

Routine: DGPTFTR


Information

DGPTFTR ;ALB/JDS,HIOFO/FT - TRANSMISSION OF PTF ;8/20/15 3:47pm

Source Information

Source file <DGPTFTR.m>

Call Graph

Call Graph

Call Graph Total: 21

Package Total Call Graph
Registration 14 ^DGPTFTR0  LOG^DGPTFTR1  (BULL,CEN,OPEN,SCAN)^DGPTFTR3  ^DGPTFVC1  (EN,LINES)^DGPTFVC2  ^DGPTFVC3  ^DGPTR0  LOG^DGPTR1  
^DGPTRI0  LOG^DGPTRI1  (CEN,FDT,FMT,RTY)^DGPTUTL  SETTRAN^DGPTUTL1  $$SITE^VASITE  ^VATRAN  
VA FileMan 3 IX^DIC  ^DIE  $$GET1^DIQ  
Kernel 2 ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
MailMan 2 INST^XMA21  (,ENT1)^XMD  

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

Package Total Caller Graph
Registration 7 DG PTF TRANSMISSION VADATS  DGPTC  DGPTC1  DGPTF099  DGPTF2  DGPTFVC  DGPTRPO  

Entry Points

Name Comments DBIA/ICR reference
Q ;
XMIT ;transmit message with PTF segments
ENQ1
PWR ;get the PTF record and start processing it
LOG ;called from PRINT+1^DGPTF2,CLS+1^DGPTF2,EN^DGPTFVC
SCAN
COM1 ;called from DGPTC1
CHECK(DGPTXMZ) ;check if every two lines in message body equal 384 characters
DATQ
ENN ;PTF Transmission [DG PTF TRANSMISSION VADATS]
SMSG ;send MailMan message
DAT ;create a MailMan message, transmit it and move on to process additional PTFs
ENQ
EN5 ;select a PTF RELEASE date or range
ROUTER ;called from DGPTF099,DGPTRPO
REC ;update PTF RECORD multiple in PTF RELEASE (45.83). includes PTF record ien, date transmitted, & message ien
COM
QMSG(DGPTMIEN) ;notify others about bad segment length

External References

Name Field # of Occurrence
^%ZTLOAD QMSG+4
^DGPTFTR0 COM1+10
LOG^DGPTFTR1 LOG+1
BULL^DGPTFTR3 DAT+4
CEN^DGPTFTR3 PWR+5
OPEN^DGPTFTR3 PWR+18
SCAN^DGPTFTR3 ENQ
^DGPTFVC1 Q+6
EN^DGPTFVC2 Q+7
LINES^DGPTFVC2 PWR+8
^DGPTFVC3 Q+6
^DGPTR0 COM1+10
LOG^DGPTR1 LOG+1
^DGPTRI0 COM1+10
LOG^DGPTRI1 LOG+1
CEN^DGPTUTL ENN+2, PWR+2
FDT^DGPTUTL ENN+4
FMT^DGPTUTL SCAN+1, PWR+6
RTY^DGPTUTL ENN+3
SETTRAN^DGPTUTL1 DAT+3, XMIT+10
IX^DIC EN5+3, EN5+5
^DIE REC+3, REC+4
$$GET1^DIQ PWR+14
$$SITE^VASITE SMSG+2
^VATRAN EN5+13
$$FMTE^XLFDT PWR+13
$$NOW^XLFDT QMSG+2
INST^XMA21 ROUTER+4
^XMD SMSG+16
ENT1^XMD XMIT+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Another user is already transmitting. Please try again later."
  • Line Location: ENN+1
Function Call: WRITE
  • Prompt: !,"There are no "_$S($G(DGRTY)=2:"CENSUS",1:"PTF")_" records in this date range to transmit."
  • Line Location: EN5+4
Function Call: WRITE
  • Prompt: !!,"Now transmitting ",$P(DGRTY0,U)," records..."
  • Line Location: SCAN+8
Function Call: WRITE
  • Prompt: !,"Includes records of "
  • Line Location: SCAN+9
Function Call: WRITE
  • Prompt: " Admitted: ",$TR($$FMTE^XLFDT(DGADM,"5DF")," ","0")," "
  • Line Location: PWR+13
Function Call: WRITE
  • Prompt: $$GET1^DIQ(45,J_",",DGZ)_" "
  • Line Location: PWR+14
Function Call: WRITE
  • Prompt: ?70," Okay"
  • Line Location: PWR+20
Function Call: WRITE
  • Prompt: !,"Transmission Queued"
  • Line Location: XMIT+7
Routine Call
  • DIE
  • Line Location:
    • REC+3
    • REC+4
Routine Call
  • DIC
  • Line Location:
    • EN5+3
    • EN5+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPT - [#45] Classic Fileman Calls,  GET1^DIQ
^DGP(45.83 - [#45.83] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGP(45.83 - [#45.83] ENN+1, EN5+13, ENQ1, DAT+2, PWR+3, Q+1
^DGP(45.84 - [#45.84] COM1+3
^DGPT - [#45] PWR+4, PWR+6, PWR+12, COM1+2, COM1+3, COM1+4
^DPT - [#2] PWR+12, COM1+3, COM1+4
^TMP("AEDIT" PWR+13!, PWR+19!
^TMP("AERROR" PWR+13!
^VA(200 - [#200] XMIT+3
^XMB(3.9 - [#3.9] XMIT+2*, CHECK+2, CHECK+5

Label References

Name Line Occurrences
CHECK XMIT+4
COM PWR+16, LOG+1
COM1 PWR+17
DAT PWR+3
DATQ DAT+4
EN5 EN5+4
ENQ EN5+13
ENQ1 EN5+3, EN5+7, EN5+14
LOG SCAN+2
PWR DAT+5, PWR+3, PWR+4, PWR+5, PWR+6, PWR+21, XMIT+10
QMSG CHECK+8
REC XMIT+8
ROUTER XMIT+1
SCAN EN5+14
XMIT DAT+1, PWR+8, PWR+20

Naked Globals

Name Field # of Occurrence
^( PWR+3, COM1+2, COM1+3
^(0 PWR+4, PWR+12, COM1+3
^(70 PWR+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D EN5+3*, EN5+5*!
DA REC+3*!, REC+4*!
DGACNT ENQ1!, PWR+13*
DGADM PWR+12*, PWR+13, Q+3!
DGAO Q+3!
DGCDR Q+3!
>> DGCI PWR+17*
DGCN ENQ1!
DGCN0 ENQ1!, PWR+5, PWR+8, PWR+17
>> DGCNT SCAN+2*, DAT+1, PWR+8, PWR+10, PWR+20, XMIT+2, XMIT+10*
>> DGD SCAN+2*, DAT+2*, DAT+3, DAT+4, PWR+3, REC+3
DGDOB Q+3!
DGED EN5+7*, ENQ1!, DAT+3, DAT+4
DGERR SCAN!, PWR+10*, PWR+18, PWR+20, Q+6, Q+7, LOG+1
DGFIRST SCAN+7~*, PWR+8, PWR+9*, XMIT+9*
DGFMT EN5+14*, ENQ1!, PWR+6
DGFMTDT ENN+4*, ENQ1!
DGHEAD Q+3!
>> DGID SCAN+2*, XMIT+7, XMIT+10*
>> DGIDN( XMIT+7*
DGJ XMIT+2*, XMIT+10, Q+3!
DGK XMIT+8*, XMIT+10!, REC+3, REC+4, Q+3!
DGL Q+3!
DGLOGIC ENQ1!
DGM Q+3!
DGNAM Q+3!
DGNODE PWR+12*, PWR+15!
DGNT Q+3!
DGO Q+3!
DGOUTX EN5+14, ENQ1!, DAT+3, XMIT+10
DGPICD10 Q+3!
DGPROC Q+3!
DGPROCD Q+3!
DGPTFMT ENQ1!, PWR+6, COM1+10, LOG+1
DGPTLAST CHECK+1~, CHECK+3*, CHECK+4
DGPTLOOP CHECK+1~, CHECK+4*, CHECK+5
DGPTMIEN QMSG~, SMSG+12
DGPTNODE CHECK+1~, CHECK+2*, CHECK+3
DGPTSLF ENQ1!, DAT+1, PWR+1, XMIT+4*, XMIT+5, CHECK+4, CHECK+7*
DGPTTEXT CHECK+1~, SMSG+1~
DGPTTEXT(1 SMSG+4*
DGPTTEXT(2 SMSG+5*
DGPTTEXT(3 SMSG+6*
DGPTTEXT(4 SMSG+7*
DGPTTEXT(5 SMSG+8*
DGPTTEXT(6 SMSG+9*
DGPTTEXT(7 SMSG+10*
DGPTTEXT(8 SMSG+11*
DGPTTEXT(9 SMSG+12*
DGPTTOT CHECK+1~, CHECK+5*, CHECK+6
DGPTXMZ CHECK~, CHECK+2, CHECK+5, CHECK+8, CHECK+10
DGRTY ENN+3, EN5+4, ENQ1!, PWR+4, PWR+5, PWR+8, PWR+16, PWR+17
DGRTY0 ENQ1!, SCAN+8
DGSD EN5+5*, ENQ1!, SCAN+2
>> DGSDI ROUTER+4*
DGSENFLG REC+2*, REC+5!
DGSSN Q+3!
DGSTCNT ENQ1!
DGSTCNT("P" PWR+10*, XMIT+8
DGSUD Q+3!
DGSUR Q+3!
DGT Q+3!
DGTD Q+3!
>> DGTR SCAN+2*, PWR+20*
DGX ENQ1!, Q+3!
DGXLS Q+3!
DGXM ENQ1!
>> DGXMZ XMIT+2
DGY SCAN+1~*
DGZ PWR+14*, PWR+15!
DIC EN5+1!*, EN5+5!, ENQ1!, Q+3!
DIC("A" EN5+1*, EN5+5*
DIC("S" EN5+2*, EN5+5*
DIC(0 EN5+1*, EN5+5*
DICR PWR+10!
DIE REC+3*!, REC+4*!
>> DILOCKTM ENN+1
DR REC+3*!, REC+4*!
DR(2 REC+3*
DT EN5+7, PWR+5, XMIT+2
DUZ XMIT+3, ROUTER+5, SMSG+3, SMSG+14
E Q+3!
ERR Q+3!
F Q+3!
G Q+3!
H Q+3!
I Q+3!
>> J DAT+5*, PWR+3*, PWR+4, PWR+6, PWR+8*, PWR+10, PWR+12, PWR+14, PWR+17, XMIT+2
, XMIT+10*, COM, COM1+2, COM1+3, COM1+4
K COM1+2*, COM1+3*, COM1+4*, Q+2*, Q+3!
L Q+3!
>> P PWR+3*, PWR+8
>> PTF PWR+17*, COM*
T Q+3!
>> T1 PWR+8*, PWR+17*, COM*, Q+6
>> T2 PWR+8*, PWR+17*, COM*
U SCAN+8, PWR+3, PWR+4, PWR+5, PWR+8, PWR+12, PWR+17, XMIT+3, CHECK+3, SMSG+2
VAT EN5+13!, ENQ1!
VAT( ROUTER+4
VAT("F" PWR+8, PWR+20
VATERR EN5+13!, ENQ1!
VATNAME EN5+13*!, ENQ1!
W Q+3!
>> X EN5+3, EN5+7, PWR+8*, PWR+12*, ROUTER+4*
XMDF ROUTER+4*!
XMDUN ENQ1!, XMIT+3*
XMDUZ XMIT+3*, ROUTER+4*, SMSG+1~, SMSG+3*
XMN ROUTER+4*!
XMSUB SMSG+1~, SMSG+2*
XMTEXT SMSG+1~, SMSG+13*
XMY ENQ1!, XMIT+1!, SMSG+1~
XMY( ROUTER+5*, SMSG+14*
XMY("ICD-10OITPTFExpansionTeam@domain.ext" SMSG+15*
>> XMZ XMIT+2*, XMIT+4, XMIT+7, REC+3
>> Y ENN+3*, ENN+4, EN5+4, EN5+7, SCAN+1*, PWR+5, PWR+6*, PWR+8*
>> Y(0 EN5+5, EN5+7
Z Q+3!
ZTDESC QMSG+1~, QMSG+2*
ZTDTH QMSG+1~, QMSG+2*
ZTIO QMSG+1~, QMSG+2*
ZTRTN QMSG+1~, QMSG+2*
ZTSAVE QMSG+1~
ZTSAVE("DGPTMIEN" QMSG+3*
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