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,JAM - REGISTRATION SCREEN PROCESSOR ;Apr 05, 2020@15:16

Source Information

Source file <DGRPP.m>

Call Graph

Call Graph

Call Graph Total: 12

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

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

Package Total Caller Graph
Registration 18 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 ; DG*5.3*1143 - Discard edits if the RTA Edit Flag is set (edits are pending)
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
SAVEADDR ; DG*5.3*1143 - (S)ave option from screen 1.1 editing
; Call function to transmit the data and save
DISCARD
DISCONF() ; DG*5.3*1143 - Confirm if user wants to discard the changes
REF ;End of page prompt (Refresh)

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+5
^DGRP11A JUMP+7, SCRX+4
^DGRPC Q+8
^DGRPCADD JUMP+7, SCRX+2
CLEAN^DGRPCADD EN+64, JUMP+3
DISCARD^DGRPCADD DISCARD+1
RTASEND^DGRPCADD SAVEADDR+2
^DGRPE JUMP+10
^DGRPH JUMP+7, JUMP+9
JUMP^DGRPP1 JUMP+3
LT^DGRPP1 Q
MOREHLP^DGRPP1 EN+24
STR^DGRPP1 EN+10
WHICH^DGRPP1 EN+9
$$UPPER^DGUTL EN+38
FILE^DICN SEC+1
^DIR DISCONF+5, REF+4

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+18
Function Call: WRITE
  • Prompt: " to ",$S(DGRPS<DGRPLAST:"CONTINUE",1:"QUIT"),", "
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: D
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: " or "
  • Line Location: EN+20
Function Call: WRITE
  • Prompt: ": "
  • Line Location: EN+23
Function Call: READ
  • Variable: DGRPANN
  • Timeout: DTIME
  • Line Location: EN+29
Function Call: WRITE
  • Prompt: @IOF,
  • Line Location: EN+30
Function Call: WRITE
  • Prompt: @IOF,!!!
  • Line Location: EN+31
Function Call: WRITE
  • Prompt: !,"Screen <1.1> changes discarded."
  • Line Location: EN+46
Function Call: WRITE
  • Prompt: @IOF,!!!
  • Line Location: EN+48
Function Call: WRITE
  • Prompt: !,"Screen <1.1> changes discarded."
  • Line Location: EN+55
Function Call: WRITE
  • Prompt: @IOF,!!!
  • Line Location: EN+57
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
Function Call: WRITE
  • Prompt: @IOF,!!!
  • Line Location: SAVEADDR+4
Routine Call
  • DIR
  • Line Location:
    • DISCONF+5
    • REF+4

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+10, Q1+3, SENSCHK+3, SENSCHK+5, SENSCHK+6

Label References

Name Line Occurrences
$$DISCONF EN+42, EN+51
@( JUMP+7, SCRX+5
CHOICE JUMP+8
DISCARD EN+45, EN+54, QQ+1
NEXT EN+26, EN+64
Q JUMP+1, JUMP+4, NEXT+1
Q1 EN+9
QQ EN+7, EN+31, EN+48, EN+57, JUMP+10, SAVEADDR+4
REF EN+46, EN+55
SAVEADDR EN+60
SCR9 CHOICE+5
SCRX EN+35, EN+37, EN+41, EN+50, JUMP+9, JUMP+10, SAVEADDR+6
SEC SENSCHK+5, SENSCHK+8
SENSCHK Q+3
W EN+12, EN+15, EN+18, EN+19, EN+20, EN+23

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+5
%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+10, Q1+3, SENSCHK+3, SENSCHK+4, SENSCHK+5
, SENSCHK+6, SEC+1, SEC+2, SAVEADDR+2
DGA Q1!
DGA1 Q1!
DGA2 Q1!
DGAAC Q1!
DGAD Q1!
>> DGADDEDIT EN+14, EN+35, EN+37, EN+41, EN+50, EN+60, QQ+1
DGCH JUMP+8*, Q+2!, CHOICE+5, CHOICE+6
DGCONF EN+50~
DGCONFIRM EN+41~, EN+42*, EN+43, EN+51*, EN+52
DGDEP Q+1!
DGDONE Q+5~*
DGDONE2 Q+5~*
DGDR JUMP+8*, JUMP+9, Q1!, CHOICE+5*, CHOICE+6*
DGEDCN Q+8*!
>> DGEFDT EN+12
DGELVER Q, QQ+2!
DGFL CHOICE+4~*, CHOICE+5, SCR9+2*, SCR9+5*
DGGTOT Q+2!
>> DGIAINEW EN+68*
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+65
DGNOCOPY EN+66*, Q+2!
DGPRI Q+2!
DGREL Q+1!
DGRP EN+9!, Q1!
DGRPAG Q1!
DGRPAN EN+9*, EN+19, Q1!, CHOICE+5, CHOICE+6
DGRPANN EN+29*, EN+35, EN+37, EN+38*, EN+41, EN+50, EN+60, EN+64, EN+65, EN+68*
, JUMP+1, JUMP+3, JUMP+4, JUMP+5*, JUMP+7, JUMP+8, Q1!
DGRPANP EN+19, JUMP+5, Q1!
DGRPCM QQ+2!
DGRPD Q1!
DGRPLAST EN+18, QQ+2!, NEXT+1, NEXT+2
DGRPNA QQ+2!
>> DGRPOUT EN+7*, EN+23*, EN+29*, EN+31, EN+41, EN+48, EN+50, EN+57, EN+64, JUMP+4
, Q, SAVEADDR+4, DISCONF+7*, REF+5*
DGRPS EN+9, EN+12, EN+18, EN+22, EN+35, EN+37, EN+41, EN+50, EN+65, EN+68
, JUMP+7, JUMP+9, JUMP+10, QQ+2!, CHOICE+5, CHOICE+6, NEXT+1, NEXT+3, NEXT+4, NEXT+6
, NEXT+7, SAVEADDR+6
DGRPSE1 Q+2!
DGRPSEL EN+23, EN+24, Q1!
DGRPSELT Q1!, SCR9+2, SCR9+3, SCR9+4
DGRPTYPE QQ+2!
DGRPU QQ+2!
DGRPV EN+9, EN+20, EN+22, EN+23, Q, Q+8, QQ+2!
DGRPVR Q1!
DGRPVV QQ+2!, NEXT+3
DGRPVV( EN+9
DGRPVV(8 EN+68*
DGRPVV(9 EN+23, EN+68*
DGRPW QQ+2!
DGRPX Q1!
DGRTAHOLD Q+7!
DGRTAON EN+64, JUMP+3, Q+7!
DGSP Q+1!
DGTMOT EN+7, Q1+2!, DISCONF+7*, REF+5*
DGTOT Q+1!
DGVI QQ+2!, W+1, W+2
DGVO QQ+2!, W+2
DIC Q1+3!, SEC+1*, SEC+3!
DIC("DR" SEC+1*
DIC(0 SEC+1*
DINUM SEC+1*, SEC+3!
DIR DISCONF+1~, REF+1~
DIR("?" DISCONF+4*
DIR("A" DISCONF+3*, REF+3*
DIR(0 DISCONF+2*, REF+2*
DIROUT DISCONF+1~, REF+1~
DIRUT Q1+2!, DISCONF+7
DO SEC+1!, SEC+3!
DT EN+12
DTIME EN+29
DTOUT EN+7, Q1+2!, DISCONF+1~, REF+1~, REF+5
DUOUT Q1+2!, DISCONF+1~, REF+1~
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+8*, Q1+3!, NEXT+3*
I1 Q1+3!
I2 Q1+3!
I3 Q1+3!
IOF EN+7, EN+31, EN+48, EN+57, SAVEADDR+4
IOST EN+26, W+1
J Q1+3!, CHOICE+5*, NEXT+3*
U EN+68
X EN+35*, EN+37*, EN+38*, EN+41*, EN+50*, JUMP+5*, JUMP+9*, JUMP+10*, 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, SAVEADDR+6*, DISCONF+1~, REF+1~
X1 Q1+3!
X2 Q1+3!
X3 Q1+3!
Y Q1+3!, SEC+3!, DISCONF+1~, DISCONF+8, REF+1~
Z EN+12*, EN+15*, EN+18*, EN+19*, EN+20*, EN+23*, JUMP+5*, 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