Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call