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

Package: Registration

Routine: DGPTFVC2


Information

DGPTFVC2 ;ALB/MJK - Expanded PTF Close-Out Edits ; Jul 20 88

Source Information

Source file <DGPTFVC2.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
ENQ
ERROR ;
LINES ; -- count the number of lines to be xmited for PTF rec
; input : Y := ifn of ^DGPT
; output: X := line count
501 ; -- count 501 mvts to xmit
; input : Y := IFN
; DGMTY := indicates entering from flag option [optional]
; output: C := # of entries
535 ; -- count 535 mvts to xmit
; input : Y := IFN
; DGMTY := indicates entering from flag option [optional]
; output: C := # of entries

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,DGM," There are '",C,"' ",DGM," movements but only '",DGMAX,"' can be sent to Austin."
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !," *** Contact PTF supervisor ***"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,">>>> ",$S(DGM="P":"Procedure",1:"Surgery")," date/time of '",Y,"' is after the discharge date."
  • Line Location: ERROR+2
Info |  Source |  Entry Points |  Interaction Calls