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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: DGPTFVC3

Package: Registration

Routine: DGPTFVC3


Information

DGPTFVC3 ;ALB/MTC - VAILIDATION CHECK FOR PTF ADDITIONAL QUESTIONS ; 18 MAR 91

Source Information

Source file <DGPTFVC3.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 2 HOME^%ZIS  $$FMTE^XLFDT  
Registration 2 (ANYPSY,DC,FLAGCHK,GETNUM,SCAN)^DGPTSCAN  LO^DGUTL  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGPTFTR  

Entry Points

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

External References

Name Field # of Occurrence
HOME^%ZIS INIT+4
ANYPSY^DGPTSCAN 701+4
DC^DGPTSCAN CHKFL5+2, CHKFL4+2, 701+4
FLAGCHK^DGPTSCAN 701+7
GETNUM^DGPTSCAN CHKFL5+5, 701+8
SCAN^DGPTSCAN CHKFL5+2, CHKFL4+2, 701+4
LO^DGUTL INIT+4
$$FMTE^XLFDT W401+1, W501+1

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
Routine Call
  • %ZIS
  • Line Location:
    • INIT+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPT - [#45] 501+2, CHKFL5+3, CHKFL5+4, 401+2, CHKFL4+3, CHKFL4+4, 701+2, 701+5, 701+6, W401+1
, W501+1, INIT+3

Label References

Name Line Occurrences
401 EN+2
501 EN+2
701 EN+2
CHK4Q CHKFL4+3
CHK5Q CHKFL5+3
CHK7Q 701+2, 701+5
CHKFL4 401+2
CHKFL5 501+2
ENQ EN+1
INIT EN+1
INITQ INIT+1
W401 CHKFL4+6
W501 CHKFL5+7
W701 701+10

Naked Globals

Name Field # of Occurrence
^(0 501+2, 401+2
^(300 CHKFL5+4, CHKFL4+4, 701+6
^(70 701+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DG701 701+7*, CHK7Q+1!
DGBPC ENQ+1!, CHKFL5+3, CHK5Q!, CHKFL4+3, CHK4Q!, 701+5
DGBPC( CHKFL5+7, 701+10
DGBPC(1 CHKFL4+6
>> DGERR CHKFL5+7*, CHKFL4+6*, 701+10*, INIT+3*
DGFNUM CHKFL5+7, CHK5Q!, 701+10, CHK7Q+1!
DGHOLD ENQ+1!, 501+2*, CHKFL5+1, CHKFL5+4*, CHKFL5+7, 401+2*, CHKFL4+1, CHKFL4+4*, CHKFL4+6, CHK7Q+1!
DGI 701+3*, CHK7Q+1!
DGII CHKFL5+7*, CHK5Q!, 701+10*, CHK7Q+1!
DGJ ENQ+1!, CHKFL5+1*, CHKFL4+1*
DGMOV ENQ+1!, 501+2*, 501+3!, CHKFL5+3, CHKFL5+4, W501+1
DGOUT EN+1, ENQ+1!, INIT+1*, INIT+2*, INIT+3*
DGPTF ENQ+1!, 501+2, CHKFL5+3, CHKFL5+4, 401+2, CHKFL4+3, CHKFL4+4, 701+2, 701+5, 701+6
, W401+1, W501+1, INIT+2*, INIT+3
DGPTIT ENQ+1!, 501+1!, CHK5Q!, 401+1!, CHK4Q!, 701+1!
DGPTIT( CHKFL5+1*, CHKFL4+1*, 701+3*
DGREC ENQ+1!, 701+2*, 701+3
DGSUR ENQ+1!, 401+2*, CHKFL4+3, CHKFL4+4, W401+1
DGTREC 701+6*, 701+10, CHK7Q+1!
>> PTF INIT+1, INIT+2
U CHKFL5+1, CHKFL5+7, CHKFL4+1, CHKFL4+6, 701+3, 701+10
X W401+1~*, W401+2, W501+1~*, W501+2

Marked Items

Name Field # of Occurrence
$T(ERRMSG+1 W401+2
$T(ERRMSG+DGII W501+2, W701+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All