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

Package: Registration

Routine: DGPTSC01


Information

DGPTSC01 ;ALB/MTC - Additional routines to check for valid jumping ; JUN 14,1991

Source Information

Source file <DGPTSC01.m>

Entry Points

Name Comments DBIA/ICR reference
501 ;-- check if jump to expanded question was valid.
401 ;-- check if jump to expanded question was valid.
701 ;--
ERRMSG ;-- generic error message
ENQ ;
DRUG ;-- if default drug is present in 45.89 then use it
DRUGQ ;
ACTIVE(PTF,DRUG) ;-- check if drug has been inactivated

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"*** ERROR *** You must select a ICD that requires an expanded response."
  • Line Location: ERRMSG+1
Function Call: WRITE
  • Prompt: !,"*** ERROR *** This Substance has been inactivated as of ",Y
  • Line Location: ACTIVE+5
Info |  Source |  Entry Points |  Interaction Calls