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  | All
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>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
Registration 1 (FLAGCHK,GETNUM,SCAN)^DGPTSCAN  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 11

Package Total Caller Graph
Registration 11 501  DGPTX41  DGPTX53  DGPTX74  DGPTX75  DGX44  DGX58  DGX5F2  
DGX5FD7  DGX76  ^DGPT  

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

External References

Name Field # of Occurrence
FLAGCHK^DGPTSCAN 701+6
GETNUM^DGPTSCAN 701+6
SCAN^DGPTSCAN 501+5, 401+5, 701+5

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" ACTIVE+5
^DGPT - [#45] 501+3, 401+3, 701+3, ACTIVE+4
^DIC(45.61 - [#45.61] DRUG+5, ACTIVE+4
^DIC(45.89 - [#45.89] DRUG+5

Label References

Name Line Occurrences
$$ACTIVE 501+6, 701+9
DRUGQ DRUG+3
ENQ 501+6, 501+8, 401+6, 401+8, 701+3, 701+10, 701+11
ERRMSG 501+7, 401+7, 701+11

Naked Globals

Name Field # of Occurrence
^(0 DRUG+5, ACTIVE+4
^(70 701+3, ACTIVE+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTIVE ACTIVE+2~, ACTIVE+3*, ACTIVE+5*, ACTIVE+6
>> DA 501+3, 401+3, 701+2, 701+3
>> DA(1 501+3, 401+3
DATE ACTIVE+2~, ACTIVE+4*, ACTIVE+5
DG701 501+2~, 401+2~, 701+1~, 701+7, ENQ+1!
DGBPC 501+2~, 401+2~, 701+1~, ENQ+1!
DGBPC( 501+6, 401+6, 701+7!, 701+9
>> DGER 501+1*, 501+6*, 501+7*, 401+6*, 401+7*, 701+8*, 701+9*, 701+10*
>> DGFLAG 501+6, 401+6, 701+9
>> DGFNUM 701+7, 701+9
DGHOLD 501+2~, 501+3*, 501+4, 401+2~, 401+3*, 401+4, 701+1~, ENQ+1!
DGI 501+4*, 401+4*, 701+4*, 701+7*, 701+9*, ENQ+1!
DGPTF 501+2~, 501+3*, 501+6, 401+2~, 701+1~, 701+2*, 701+9, ENQ+1!
DGPTIT 501+2~, 401+2~, 701+1~, ENQ+1!
DGPTIT( 501+4*, 401+4*, 701+4*
DGPTIT(0 DRUG+2
DGREC 701+1~, 701+3*, 701+4
DGTI DRUG+5*, DRUGQ+1!
DGTX 501+1*, 501+6!, 401+1*, 401+6, 701+2*, 701+9!, 701+10, ENQ+1!, DRUG+4!, DRUG+5*
DGTY DRUG+2*, DRUG+3, DRUG+5, DRUGQ+1!
DRUG ACTIVE~, ACTIVE+4
DT ACTIVE+4
PTF ACTIVE~, ACTIVE+4
SUBDATE ACTIVE+2~, ACTIVE+4*, ACTIVE+5
U 501+4, 401+4, 701+4, 701+7, DRUG+5, ACTIVE+4
>> X 501+1, 501+6*, 401+1, 401+6*, 701+2, 701+9*
>> Y ACTIVE+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All