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

Package: Registration

Routine: DGPTDD


Information

DGPTDD ;ALB/LD - DD CALLS FOR PTF (#45) FILE;Nov 20, 2020@09:44

Source Information

Source file <DGPTDD.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 2 ($$FMADD,$$NOW)^XLFDT  F4^XUAF4  
VA FileMan 2 $$IENS^DILF  ^DIR  
Registration 1 INP^VADPT  

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

Package Total Caller Graph
Registration 26 401  501  601  CPT RECORD DATE/TIME  DGPTX1  DGPTX42  DGPTX53  DGPTX75  
DGPTXC2  DGPTXC3  DGPTXX1  DGPTXX11  DGPTXX14  DGPTXX2  DGPTXX4  DGPTXX7  
DGPTXX8  DGPTXX9  DGX45  DGX59  DGX5F4  DGX5FD10  DGX64  DGX76  
^DGCPT(46  ^DGPT  

Entry Points

Name Comments DBIA/ICR reference
ACTIVE(X,Y,DGADM) ; Suffix active during patient's admission date?
ACTLST(DGADM) ; List of active suffixes
NEXTSCR ;
NEXTSCRQ ;
NOTIFY(OLDVAL,NEWVAL,DA,FILE,TYPE,ACTION) ;
ALLCLEAR(DATA) ;RETURN TRUE IF ALL NODES ARE EMPTY
GETNODE(NAME,FILE,IEN) ;RETURN A FREE NODE IN NOTIFIER DATA
GETFIELD(TYPE,SUB) ;RETURN SUBSCRIPT FIELD NAME
NOTIFYP(OLDVAL,NEWVAL,DA,FILE,TYPE,ACTION) ;
GETFLD(TYPE,SUB) ;RETURN SUBSCRIPT FIELD NAME

External References

Name Field # of Occurrence
$$IENS^DILF NOTIFY+6, NOTIFYP+5
^DIR NEXTSCR+2
INP^VADPT NOTIFY+59
$$FMADD^XLFDT GETNODE+4
$$NOW^XLFDT NOTIFY+57, GETNODE+3, NOTIFYP+41
F4^XUAF4 NOTIFY+68, NOTIFYP+44

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,"Choose From:",!
  • Line Location: ACTLST+19
Function Call: WRITE
  • Prompt: !
  • Line Location: NEXTSCR+1
Function Call: WRITE
  • Prompt: @IOF,"Choose From:",!
  • Line Location: NEXTSCR+3
Routine Call
  • DIR
  • Line Location:
    • NEXTSCR+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] NOTIFY+65
^DGPT - [#45] ACTIVE+16, ACTLST+11, NOTIFY+10, NOTIFY+11, NOTIFY+21, NOTIFY+22, NOTIFY+56, NOTIFY+67, NOTIFYP+9, NOTIFYP+10
, NOTIFYP+40, NOTIFYP+43
^DIC(42 - [#42] NOTIFY+64
^DIC(45.68 - [#45.68] ACTIVE+15, ACTIVE+18, ACTIVE+19, ACTIVE+20, ACTIVE+21, ACTLST+15, ACTLST+16, ACTLST+17, ACTLST+18
^DIC(45.81 - [#45.81] ACTIVE+14, ACTLST+13, ACTLST+14, ACTLST+18
^TMP("ACTSUFF" ACTLST+18*, ACTLST+20, ACTLST+22, ACTLST+23!
^XTMP( NOTIFY+36, NOTIFY+37, NOTIFY+38, NOTIFY+41!, NOTIFY+42*, NOTIFY+43*, NOTIFY+46, NOTIFY+47, NOTIFY+49!, NOTIFY+52!
, NOTIFY+53!, NOTIFY+54*, NOTIFY+55*, NOTIFY+56*, NOTIFY+57*, NOTIFY+58*, NOTIFY+61*, NOTIFY+62*, NOTIFY+70*, NOTIFY+71*
, GETNODE+2, GETNODE+3, GETNODE+4*, NOTIFYP+18, NOTIFYP+19, NOTIFYP+20, NOTIFYP+23!, NOTIFYP+24*, NOTIFYP+25*, NOTIFYP+29
, NOTIFYP+30, NOTIFYP+32!, NOTIFYP+35!, NOTIFYP+36!, NOTIFYP+38*, NOTIFYP+39*, NOTIFYP+40*, NOTIFYP+41*, NOTIFYP+42*, NOTIFYP+46*
, NOTIFYP+47*

Label References

Name Line Occurrences
$$ALLCLEAR NOTIFY+14, NOTIFY+24
$$GETFIELD NOTIFY+35
$$GETFLD NOTIFYP+17
$$GETNODE NOTIFY+32, NOTIFYP+14
NEXTSCR ACTLST+21
NEXTSCRQ NEXTSCR+2

Naked Globals

Name Field # of Occurrence
^(0 ACTIVE+16, ACTLST+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTION NOTIFY~, NOTIFY+3, NOTIFYP~, NOTIFYP+3
CLEAR NOTIFY+4~, NOTIFY+13*, NOTIFY+14*, NOTIFY+15, NOTIFY+16, NOTIFY+18!, NOTIFY+23*, NOTIFY+24*, NOTIFY+25, NOTIFY+26
, NOTIFY+28!, NOTIFY+44*, NOTIFY+47, NOTIFY+48*, NOTIFY+49, NOTIFY+50*, NOTIFYP+4~, NOTIFYP+27*, NOTIFYP+30, NOTIFYP+31*
, NOTIFYP+32, NOTIFYP+33*
CLEAR("ALL" NOTIFY+44*, NOTIFY+48*, NOTIFY+51, NOTIFYP+27*, NOTIFYP+31*, NOTIFYP+34
DA NOTIFY~, NOTIFY+6, NOTIFYP~, NOTIFYP+5
DATA ALLCLEAR~
DATA( ALLCLEAR+3, ALLCLEAR+4
DFN NOTIFY+4~, NOTIFY+8*, NOTIFY+10*, NOTIFY+21*, NOTIFY+31, NOTIFY+55, NOTIFYP+4~, NOTIFYP+7*, NOTIFYP+9*, NOTIFYP+12
, NOTIFYP+39
DGACT ACTIVE+12~, ACTIVE+13*, ACTIVE+21*, ACTIVE+22
DGADM ACTIVE~, ACTIVE+16*, ACTIVE+17*, ACTIVE+18, ACTLST~, ACTLST+11*, ACTLST+12*, ACTLST+15
DGCTR ACTLST+9~, ACTLST+10*, ACTLST+18*
DGEFDT ACTIVE+12~, ACTIVE+13*, ACTIVE+18*, ACTIVE+19*, ACTIVE+20
DGEFFDT ACTLST+9~, ACTLST+10*, ACTLST+15*, ACTLST+16*, ACTLST+17
DGEFFIEN ACTLST+9~, ACTLST+17*, ACTLST+18
DGEFIEN ACTIVE+12~, ACTIVE+13*, ACTIVE+20*, ACTIVE+21
DGFL ACTIVE+12~, ACTIVE+13*, ACTIVE+14, ACTIVE+15*
DGI ACTIVE+12~, ACTIVE+14*, ACTIVE+15, ACTLST+9~, ACTLST+14*, ACTLST+15, ACTLST+16, ACTLST+17, ACTLST+18
DGOUT ACTLST+9~, ACTLST+10*, ACTLST+20, ACTLST+22, NEXTSCR+2*
DGST ACTLST+9~, ACTLST+13*, ACTLST+14, ACTLST+18
DGSUFPTR ACTIVE+12~, ACTIVE+13*, ACTIVE+15*, ACTIVE+18, ACTIVE+19, ACTIVE+20, ACTIVE+21
DGX ACTLST+9~, ACTLST+20*, ACTLST+22
DGY ACTLST+9~, NEXTSCR+1*
DIR NEXTSCR+2!
DIR(0 NEXTSCR+2*
DIRUT NEXTSCR+2!
DT ACTIVE+17, ACTLST+12, GETNODE+4
DTOUT NEXTSCR+2!
DUOUT NEXTSCR+2!
EXISTS NOTIFY+4~, NOTIFY+36*, NOTIFY+40, NOTIFY+42, NOTIFYP+4~, NOTIFYP+18*, NOTIFYP+22, NOTIFYP+24
EXISTS("NEW" NOTIFY+37*, NOTIFY+40, NOTIFYP+19*, NOTIFYP+22
EXISTS("OLD" NOTIFY+38*, NOTIFY+40, NOTIFYP+20*, NOTIFYP+22
FIELD NOTIFY+4~, NOTIFY+35*, NOTIFY+36, NOTIFY+37, NOTIFY+38, NOTIFY+41, NOTIFY+42, NOTIFY+43, NOTIFYP+4~, NOTIFYP+17*
, NOTIFYP+18, NOTIFYP+19, NOTIFYP+20, NOTIFYP+23, NOTIFYP+24, NOTIFYP+25
FILE NOTIFY~, NOTIFY+32, NOTIFY+52, NOTIFY+58, NOTIFY+71, GETNODE~, GETNODE+2, NOTIFYP~, NOTIFYP+14, NOTIFYP+35
, NOTIFYP+42, NOTIFYP+47
GTYPE NOTIFY+4~, NOTIFY+45*, NOTIFY+46, NOTIFY+47, NOTIFY+49, NOTIFYP+4~, NOTIFYP+28*, NOTIFYP+29, NOTIFYP+30, NOTIFYP+32
IEN NOTIFY+4~, NOTIFY+6*, NOTIFY+7, NOTIFY+54, GETNODE~, GETNODE+2, NOTIFYP+4~, NOTIFYP+5*, NOTIFYP+6, NOTIFYP+38
IEN("TOP" NOTIFY+7*, NOTIFY+10, NOTIFY+11, NOTIFY+22*, NOTIFY+32, NOTIFY+52, NOTIFY+56, NOTIFY+67, NOTIFY+71, NOTIFYP+6*
, NOTIFYP+9, NOTIFYP+10, NOTIFYP+14, NOTIFYP+35, NOTIFYP+40, NOTIFYP+43, NOTIFYP+47
INST NOTIFY+5~, NOTIFY+64*, NOTIFY+65*, NOTIFY+67*, NOTIFY+68, NOTIFY+69*, NOTIFY+70, NOTIFYP+4~, NOTIFYP+43*, NOTIFYP+44
, NOTIFYP+45*, NOTIFYP+46
IOF ACTLST+19, NEXTSCR+3
IOSL ACTLST+21, NEXTSCR+1
NAME NOTIFY+4~, NOTIFY+32*, NOTIFY+36, NOTIFY+37, NOTIFY+38, NOTIFY+41, NOTIFY+42, NOTIFY+43, NOTIFY+46, NOTIFY+47
, NOTIFY+49, NOTIFY+52, NOTIFY+53, NOTIFY+54, NOTIFY+55, NOTIFY+56, NOTIFY+57, NOTIFY+58, NOTIFY+61, NOTIFY+62
, NOTIFY+70, NOTIFY+71, GETNODE~, GETNODE+2, GETNODE+3, GETNODE+4, NOTIFYP+4~, NOTIFYP+14*, NOTIFYP+18, NOTIFYP+19
, NOTIFYP+20, NOTIFYP+23, NOTIFYP+24, NOTIFYP+25, NOTIFYP+29, NOTIFYP+30, NOTIFYP+32, NOTIFYP+35, NOTIFYP+36, NOTIFYP+38
, NOTIFYP+39, NOTIFYP+40, NOTIFYP+41, NOTIFYP+42, NOTIFYP+46, NOTIFYP+47
NEWVAL NOTIFY~, NOTIFY+14, NOTIFY+24, NOTIFYP~
NEWVAL( NOTIFY+34, NOTIFY+40, NOTIFY+43, NOTIFYP+16, NOTIFYP+22, NOTIFYP+25
NEWVAL(1 NOTIFY+3, NOTIFY+8, NOTIFYP+3, NOTIFYP+7
NEWVAL(11 NOTIFY+23, NOTIFY+24, NOTIFY+29!
NEWVAL(2 NOTIFY+8, NOTIFY+20, NOTIFY+21, NOTIFY+22, NOTIFYP+7
NEWVAL(3 NOTIFY+13, NOTIFY+14, NOTIFY+19!
NODE NOTIFY+4~, NOTIFY+32*, NOTIFY+36, NOTIFY+37, NOTIFY+38, NOTIFY+41, NOTIFY+42, NOTIFY+43, NOTIFY+46, NOTIFY+47
, NOTIFY+49, NOTIFY+52, NOTIFY+54, NOTIFY+55, NOTIFY+56, NOTIFY+57, NOTIFY+58, NOTIFY+61, NOTIFY+62, NOTIFY+70
, NOTIFY+71, NOTIFYP+4~, NOTIFYP+14*, NOTIFYP+18, NOTIFYP+19, NOTIFYP+20, NOTIFYP+23, NOTIFYP+24, NOTIFYP+25, NOTIFYP+29
, NOTIFYP+30, NOTIFYP+32, NOTIFYP+35, NOTIFYP+38, NOTIFYP+39, NOTIFYP+40, NOTIFYP+41, NOTIFYP+42, NOTIFYP+46, NOTIFYP+47
NUMBER GETFIELD+1~, GETFIELD+5*, GETFIELD+8*, GETFIELD+12*, GETFLD+1~, GETFLD+4*, GETFLD+6*, GETFLD+8*
OLDVAL NOTIFY~, NOTIFYP~
OLDVAL( NOTIFY+33, NOTIFY+34, NOTIFY+40, NOTIFY+42, NOTIFYP+15, NOTIFYP+16, NOTIFYP+22, NOTIFYP+24
OLDVAL(11 NOTIFY+23, NOTIFY+24, NOTIFY+29!
OLDVAL(3 NOTIFY+13, NOTIFY+14, NOTIFY+19!
RECTYPE NOTIFY+4~, NOTIFY+8*, NOTIFY+11*, NOTIFY+22*, NOTIFY+31, NOTIFYP+4~, NOTIFYP+7*, NOTIFYP+10*, NOTIFYP+12
RETURN ALLCLEAR+1~, ALLCLEAR+2*, ALLCLEAR+3, ALLCLEAR+4*, ALLCLEAR+5, GETNODE+1~, GETNODE+2*, GETNODE+3*, GETNODE+5, GETFIELD+1~
, GETFIELD+2*, GETFIELD+4*, GETFIELD+5*, GETFIELD+6*, GETFIELD+8*, GETFIELD+9*, GETFIELD+11*, GETFIELD+12*, GETFIELD+13, GETFLD+1~
, GETFLD+2*, GETFLD+4*, GETFLD+6*, GETFLD+8*, GETFLD+9
STATION NOTIFY+4~, NOTIFY+68, NOTIFY+69, NOTIFYP+4~, NOTIFYP+44, NOTIFYP+45
SUB NOTIFY+4~, NOTIFY+8*, NOTIFY+11*, NOTIFY+16*, NOTIFY+17*, NOTIFY+22*, NOTIFY+26*, NOTIFY+27*, NOTIFY+31, NOTIFY+33*
, NOTIFY+34, NOTIFY+35, NOTIFY+40, NOTIFY+42, NOTIFY+43, NOTIFY+47*, NOTIFY+48, ALLCLEAR+1~, ALLCLEAR+3*, ALLCLEAR+4
, GETFIELD~, GETFIELD+4, GETFIELD+5, GETFIELD+6, GETFIELD+8, GETFIELD+9, GETFIELD+11, GETFIELD+12, NOTIFYP+4~, NOTIFYP+7*
, NOTIFYP+10*, NOTIFYP+12, NOTIFYP+15*, NOTIFYP+16, NOTIFYP+17, NOTIFYP+22, NOTIFYP+24, NOTIFYP+25, NOTIFYP+30*, NOTIFYP+31
, GETFLD~, GETFLD+4, GETFLD+6, GETFLD+8
TYPE NOTIFY~, NOTIFY+7*, NOTIFY+8, NOTIFY+9, NOTIFY+12, NOTIFY+20, NOTIFY+35, NOTIFY+36, NOTIFY+37, NOTIFY+38
, NOTIFY+41, NOTIFY+42, NOTIFY+43, NOTIFY+54, GETFIELD~, GETFIELD+3, GETFIELD+7, GETFIELD+9, GETFIELD+10, NOTIFYP~
, NOTIFYP+6*, NOTIFYP+7, NOTIFYP+8, NOTIFYP+17, NOTIFYP+18, NOTIFYP+19, NOTIFYP+20, NOTIFYP+23, NOTIFYP+24, NOTIFYP+25
, NOTIFYP+38, GETFLD~, GETFLD+3, GETFLD+5, GETFLD+7
U ACTIVE+15, ACTIVE+16, ACTIVE+21, ACTLST+11, ACTLST+18, ACTLST+22, NOTIFY+10, NOTIFY+11, NOTIFY+21, NOTIFY+22
, NOTIFY+56, NOTIFY+64, NOTIFY+65, NOTIFY+67, NOTIFY+68, NOTIFY+69, GETNODE+4, NOTIFYP+9, NOTIFYP+10, NOTIFYP+40
, NOTIFYP+43, NOTIFYP+44, NOTIFYP+45
VAERR NOTIFY+4~, NOTIFY+60
VAIN NOTIFY+4~
VAIN(11 NOTIFY+62
VAIN(2 NOTIFY+61
VAIN(4 NOTIFY+63, NOTIFY+64, NOTIFY+66
X ACTIVE~, ACTIVE+15
>> XPDNM NOTIFY+3, NOTIFYP+3
Y ACTIVE~, ACTIVE+14
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All