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

Package: Registration

Routine: DGPTFVC3


Information

DGPTFVC3 ;ALB/MTC,HIOFO/FT - VAILIDATION CHECK FOR PTF ADDITIONAL QUESTIONS ;10/21/14 1:59pm

Source Information

Source file <DGPTFVC3.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
ENQ ;
501 ;-- check 501's for inconsistent data
CHKFL5 ;-- check field entries
CHK5Q
401 ;-- check 401's for inconsistent data
CHKFL4 ;-- check field entries
CHK4Q
701 ;-- process 701 load DGPTIT array
CHK7Q ;
W401 ;-- display error message for 401
W501 ;-- display error message for 501
W701 ;-- display error messages for 701
INIT ;
INITQ
ERRMSG ;-- error messages

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"401 Surgery date: ",X,"...",$P($T(ERRMSG+1),";",4)
  • Line Location: W401+2
Function Call: WRITE
  • Prompt: !,"501 Movement date: ",X,"...",$P($T(ERRMSG+DGII),";",4)
  • Line Location: W501+2
Function Call: WRITE
  • Prompt: !,"701 ",$P($T(ERRMSG+DGII),";",4)
  • Line Location: W701+1
Info |  Source |  Entry Points |  Interaction Calls