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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DGRPP

Package: Registration

Routine: DGRPP


Information

DGRPP ;ALB/MRL,AEG,LBD,ASF,LEG,RN - REGISTRATION SCREEN PROCESSOR ;Apr 05, 2020@15:16

Source Information

Source file <DGRPP.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Registration 10 ($$LOCK,UNLOCK)^DGENPTA1  ($$BEGUPLD,CKUPLOAD,ENDUPLD)^DGENUPL3  IN^DGHELP  ^DGRP11A  ^DGRPC  ^DGRPCADD  ^DGRPE  ^DGRPH  
(JUMP,LT,MOREHLP,STR,WHICH)^DGRPP1  $$UPPER^DGUTL  
VA FileMan 1 FILE^DICN  

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

Package Total Caller Graph
Registration 19 DGADDUTL  DGRP  DGRP1  DGRP10  DGRP11  DGRP11A  DGRP12  DGRP13  
DGRP14  DGRP15  DGRP2  DGRP3  DGRP4  DGRP5  DGRP6  DGRP7  
DGRP8  DGRP9  DGRPCADD  

Entry Points

Name Comments DBIA/ICR reference
EN ;
JUMP ;
Q
QQ
Q1
SENSCHK ; check whether patient record should be made sensitive
SEC ;if patient type says make record sensitive, add to security log file
CHOICE ;parse out which items were selected for edit
NEXT ;find next available screen...goto
SCRX ;goto screen X
W ;write highlighted text on screen (if parameter on)
SCR9 ; see if MT is completed. Allow only selective editing if so

External References

Name Field # of Occurrence
$$LOCK^DGENPTA1 EN+4
UNLOCK^DGENPTA1 EN+2
$$BEGUPLD^DGENUPL3 EN+1
CKUPLOAD^DGENUPL3 EN+3
ENDUPLD^DGENUPL3 EN+5
IN^DGHELP JUMP+3
^DGRP11A JUMP+5, SCRX+4
^DGRPC Q+6
^DGRPCADD JUMP+5, SCRX+2
^DGRPE JUMP+8
^DGRPH JUMP+5, JUMP+7
JUMP^DGRPP1 JUMP+1
LT^DGRPP1 Q
MOREHLP^DGRPP1 EN+19
STR^DGRPP1 EN+10
WHICH^DGRPP1 EN+9
$$UPPER^DGUTL JUMP+2
FILE^DICN SEC+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: @IOF,!!!
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: W
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: "=ENTER new "_(DGISYR+1)_" data,"
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: W
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: " to ",$S(DGRPS<DGRPLAST:"CONTINUE",1:"QUIT"),", "
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: D
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: " or "
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: ": "
  • Line Location: EN+18
Function Call: READ
  • Variable: DGRPANN
  • Timeout: DTIME
  • Line Location: EN+21
Function Call: WRITE
  • Prompt: @IOF,
  • Line Location: EN+22
Function Call: WRITE
  • Prompt: @IOF,!!!
  • Line Location: EN+23
Function Call: WRITE
  • Prompt: !!,"===> Record has been classified as sensitive."
  • Line Location: SEC+2
Function Call: WRITE
  • Prompt: Z
  • Line Location: W+1
Function Call: WRITE
  • Prompt: @DGVI,Z,@DGVO
  • Line Location: W+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGSL(38.1 - [#38.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(391 - [#391] SENSCHK+5
^DGSL(38.1 - [#38.1] SENSCHK+4, SEC+2
^DIC(8 - [#8] SENSCHK+7
^DPT - [#2] JUMP+8, Q1+3, SENSCHK+3, SENSCHK+5, SENSCHK+6

Label References

Name Line Occurrences
@( JUMP+5, SCRX+5
CHOICE JUMP+6
NEXT EN+20, EN+21
Q JUMP+1, NEXT+1
Q1 EN+9
QQ EN+7, EN+23, JUMP+8
SCR9 CHOICE+5
SCRX JUMP+7, JUMP+8
SEC SENSCHK+5, SENSCHK+8
SENSCHK Q+3
W EN+12, EN+13, EN+14, EN+15, EN+18

Naked Globals

Name Field # of Occurrence
^("TYPE" SENSCHK+5
^(0 SENSCHK+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % JUMP+3
%DT Q1!
C Q1!
DA Q1+3*, SEC+3!
DD SEC+1!, SEC+3!
>> DFN EN+1, EN+2, EN+3, EN+4, EN+5, JUMP+8, Q1+3, SENSCHK+3, SENSCHK+4, SENSCHK+5
, SENSCHK+6, SEC+1, SEC+2
DGA Q1!
DGA1 Q1!
DGA2 Q1!
DGAAC Q1!
DGAD Q1!
DGCH JUMP+6*, Q+2!, CHOICE+5, CHOICE+6
DGDEP Q+1!
DGDONE Q+5~*
DGDONE2 Q+5~*
DGDR JUMP+6*, JUMP+7, Q1!, CHOICE+5*, CHOICE+6*
DGEDCN Q+6*!
>> DGEFDT EN+12
DGELVER Q, QQ!
DGFL CHOICE+4~*, CHOICE+5, SCR9+2*, SCR9+5*
DGGTOT Q+2!
>> DGIAINEW EN+27*
DGINC Q+1!
DGINR Q+1!
DGIRI Q+2!
>> DGISYR EN+12
DGMTC Q+1!, SCR9+1, SCR9+2
DGMTC("D" SCR9+4
DGMTC("S" SCR9+3
DGMTED Q+1!
>> DGNOBUCK EN+24
DGNOCOPY EN+25*, Q+2!
DGPRI Q+2!
DGREL Q+1!
DGRP EN+9!, Q1!
DGRPAG Q1!
DGRPAN EN+9*, EN+14, Q1!, CHOICE+5, CHOICE+6
DGRPANN EN+21*, EN+24, EN+27*, JUMP+1, JUMP+2*, JUMP+3*, JUMP+5, JUMP+6, Q1!
DGRPANP EN+14, JUMP+3, Q1!
DGRPCM QQ!
DGRPD Q1!
DGRPLAST EN+13, QQ!, NEXT+1, NEXT+2
DGRPNA QQ!
>> DGRPOUT EN+7*, EN+18*, EN+21*, EN+23, JUMP+1, Q
DGRPS EN+9, EN+12, EN+13, EN+17, EN+24, EN+27, JUMP+5, JUMP+7, JUMP+8, QQ!
, CHOICE+5, CHOICE+6, NEXT+1, NEXT+3, NEXT+4, NEXT+6, NEXT+7
DGRPSE1 Q+2!
DGRPSEL EN+18, EN+19, Q1!
DGRPSELT Q1!, SCR9+2, SCR9+3, SCR9+4
DGRPTYPE QQ!
DGRPU QQ!
DGRPV EN+9, EN+15, EN+17, EN+18, Q, Q+6, QQ!
DGRPVR Q1!
DGRPVV QQ!, NEXT+3
DGRPVV( EN+9
DGRPVV(8 EN+27*
DGRPVV(9 EN+18, EN+27*
DGRPW QQ!
DGRPX Q1!
DGSP Q+1!
DGTMOT EN+7, Q1+2!
DGTOT Q+1!
DGVI QQ!, W+1, W+2
DGVO QQ!, W+2
DIC Q1+3!, SEC+1*, SEC+3!
DIC("DR" SEC+1*
DIC(0 SEC+1*
DINUM SEC+1*, SEC+3!
DIRUT Q1+2!
DO SEC+1!, SEC+3!
DT EN+12
DTIME EN+21
DTOUT EN+7, Q1+2!
DUOUT Q1+2!
DUZ SEC+1
ELIG SENSCHK+1~, SENSCHK+2*, SENSCHK+6*, SENSCHK+7
FLAG SENSCHK+1~, SENSCHK+2*, SENSCHK+5, SENSCHK+6, SEC+2*
I EN+9*, EN+10*, JUMP+6*, Q1+3!, NEXT+3*
I1 Q1+3!
I2 Q1+3!
I3 Q1+3!
IOF EN+7, EN+23
IOST EN+20, W+1
J Q1+3!, CHOICE+5*, NEXT+3*
U EN+27
X JUMP+2*, JUMP+3*, JUMP+7*, JUMP+8*, Q1+3!, SENSCHK+1~, SENSCHK+5*, SENSCHK+7*, SENSCHK+8, SEC+1*
, SEC+3!, NEXT+2*, NEXT+3*, NEXT+4*, NEXT+6*, NEXT+7*, SCRX+1*, SCRX+2, SCRX+4, SCRX+5
X1 Q1+3!
X2 Q1+3!
X3 Q1+3!
Y Q1+3!, SEC+3!
Z EN+12*, EN+13*, EN+14*, EN+15*, EN+18*, JUMP+3*, Q1+3!, W+1, W+2
Z1 Q1+3!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All