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
Print Page as PDF
Routine: DGPTR2

Package: Registration

Routine: DGPTR2


Information

DGPTR2 ;ALB/JDS/MJK/MTC/ADL/TJ/BOK,HIOFO/FT - PTF TRANSMISSION ;4/20/15 9:59am

Source Information

Source file <DGPTR2.m>

Entry Points

Name Comments DBIA/ICR reference
501 ; -- setup 501 transactions
; DG*636
MOV
535 ; -- do 535's
PROC ; -- setup 601 transactions
601
701 ; -- setup 701 transaction
ENTER
ENTER0
SAVE ;save segment to MailMan message and ^TMP("AEDIT",$J), if data is valid
Q
FILL ;pad with spaces to 125 characters (so DGPTR1 data checks work)
FILL384 ;pad out with spaces to 384 characters for AITC transmission
CDR
ADDQUES ;-- additional PTF questions load records for trans 501/701

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"More than one procedure record on same date/time"
  • Line Location: 601+2
Info |  Source |  Entry Points |  Interaction Calls