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 |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: DGPFUT61

Package: Registration

Routine: DGPFUT61


Information

DGPFUT61 ;SHRPE/SGM - DBRS# EDIT UTILS ; Jan 19, 2018 16:45

Source Information

Source file <DGPFUT61.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 MSG^DIALOG  ^DIC  (,CHK,UPDATE)^DIE  ^DIK  
Kernel 2 ($$FMTE,$$NOW)^XLFDT  $$NS^XUAF4  
Registration 1 (DEL,GETDBRS)^DGPFUT6  

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

Package Total Caller Graph
Registration 1 DGPFUT6  

Entry Points

Name Comments DBIA/ICR reference
DBRS() ; called from DGPFLMA3, action = 3,4,5,6
DBRSVAL(DGN,DGNIEN) ; validate DBRS#, check for uniqueness
; INPUT PARAMETERS:
; DGN - required - DBRS Number
; DGNIEN - optional - <26.131_ien>,<26.13_ien>
; if passed, 26.13_ien is required
; 26.131_ien can be "", n, or +n
; 26.13_ien required if passed
; if adding a new DBRS, 26.131_ien=""
; EXTRINSIC FUNCTION returns: p1^p2^p3 where
; p1 = -1:failed 0:passed with conditions 1:DBRS# unique
; p2 = message
; -1^message = failure
; 0^message = DGN passed, DGN assigned, but cannot determine
; if DGNIEN and that assignment are the same or
; that the DBRS internal record number match
; 0^iens = DGN passed, 26.13 values match, cannot determine
; if DBRS record number match. If DBRS#
; registered then iens=26.131ien,26.13ien
; 1[^iens] = DGN passes all business rules
; if appropriate pass back the existing IENS for
; that DBRS#
DVOUT ;
EIE(DGPFH) ; Message about EIE and deleting DBRS data
; INPUT: .DGPFH = .DGPFAH, see GETHIST^DGPFAAH for array description
ADD(DGIEN,DGDATA,DEL) ;
; INPUT PARAMETERS
; DGIEN - required - file 26.13 ien
; DEL - optional - 1:delete any existing dbrs#
; .DGDATA - optional - DBRS# to be added, do not add dups
; DGDATA(dbrs#) = iens for dbrs multiple
; first ien may be a number or +inc
; DGDATA(dbrs#,field#) = internal value
EDIT ;
; Only certain actions allowed to edit DBRS#
; FOR loop allows for editing more than one DBRS#
; DBRS() reset if appropriate in each iteration through FOR loop
EDITCHG() ;----- check to see if any data changed at all
EDTINACT ; set up DGPFAH() if no change
EDITPFA ;----- set DGPFA() to values if changes accepted
EDITPFAH ;----- Create DGPFAH()
EDITSORT ;----- Sort the DBRS() by DBRS#
EH ;
EXT(DBS,FLD) ; get external value
; DBS = DBRS#
; FLD = field number
GET(DBRS,NODE,IEN) ;
; get dbrs records from 26.13
; only return DBRS() with internal FM form of the data
; .DBRS - return array
; NODE = PRE or POST
; IEN = file 26.13 ien
NOW()
TEXT(TXT,ST,NOWR) ;
T ;

External References

Name Field # of Occurrence
DEL^DGPFUT6 ADD+13
GETDBRS^DGPFUT6 ADD+12, GET+8
MSG^DIALOG EIE+16
^DIC EDIT+25
^DIE EDIT+48, EDIT+57
CHK^DIE DBRSVAL+34
UPDATE^DIE ADD+27
^DIK EDIT+33
$$FMTE^XLFDT EXT+7
$$NOW^XLFDT NOW
$$NS^XUAF4 EXT+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+25
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+31
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+31
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+48
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+56
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+56
Function Call: WRITE
  • Prompt: !
  • Line Location: EH+5
Function Call: WRITE
  • Prompt: !,X
  • Line Location: EH+6
Function Call: WRITE
  • Prompt: !,TXT(I)
  • Line Location: TEXT+3
Routine Call
  • DIALOG
  • Line Location:
    • EIE+16
Routine Call
  • DIC
  • Line Location:
    • EDIT+25
Routine Call
  • DIE
  • Line Location:
    • EDIT+48
    • EDIT+57
Routine Call
  • DIE
  • Line Location:
    • DBRSVAL+34
Routine Call
  • DIE
  • Line Location:
    • ADD+27

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
26.131 CHK^DIE

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPF(26.13 - [#26.13] DBRSVAL+41, DBRSVAL+42, DBRSVAL+54, ADD+11, EDIT+22, EDIT+45, EDIT+46, EDIT+51

Label References

Name Line Occurrences
$$EDITCHG DBRS+22
$$EXT EDITPFA+5, EDITPFA+6, EDITPFA+7, EDITPFA+8
ADD EDIT+86
DVOUT DBRSVAL+29, DBRSVAL+32, DBRSVAL+35, DBRSVAL+47, DBRSVAL+50, DBRSVAL+51, DBRSVAL+53, DBRSVAL+54, DBRSVAL+55, DBRSVAL+57
, DBRSVAL+58, DBRSVAL+59, DBRSVAL+60, DBRSVAL+61
EDIT DBRS+18
EDITPFA DBRS+24
EDITPFAH DBRS+30
EDITSORT DBRS+28
EDTINACT DBRS+16, EDITCHG+11
EH EDIT+6
GET DBRS+13
TEXT EIE+4, EDIT+31, EDIT+56

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A EDIT+43~, EDIT+44*, EDIT+50*
ACT DBRS+7~, DBRS+9*, DBRS+16, DBRS+22
ANS DBRSVAL+22~, DBRSVAL+29*, DBRSVAL+32*, DBRSVAL+35*, DBRSVAL+47*, DBRSVAL+50*, DBRSVAL+51*, DBRSVAL+53*, DBRSVAL+54*, DBRSVAL+55*
, DBRSVAL+57*, DBRSVAL+58*, DBRSVAL+59*, DBRSVAL+60*, DBRSVAL+61*, DBRSVAL+62*, DVOUT+1
ASGN DBRSVAL+22~
CHG DBRS+7~, EDITCHG+1~, EDITCHG+2*, EDITCHG+3, EDITCHG+4*, EDITCHG+5*, EDITCHG+7, EDITCHG+8*, EDITCHG+9*, EDITCHG+11
, EDITCHG+12
DA DBRSVAL+22~, DBRSVAL+34!, DBRSVAL+40*, DBRSVAL+42*, DBRSVAL+57, DBRSVAL+61, EDIT+20~, EDIT+32~, EDIT+33*, EDIT+44*
EDIT+45, EDIT+50*, EDIT+51
DA(1 DBRSVAL+40*, DBRSVAL+42*, DBRSVAL+47, DBRSVAL+50, DBRSVAL+51, DBRSVAL+53, DBRSVAL+55, EDIT+21*, EDIT+33*, EDIT+44*
EDIT+45, EDIT+50*, EDIT+51
DBRS DBRS+7~, DBRS+13, GET~
DBRS( GET+10*, GET+12*, GET+13*, GET+14*, GET+15*, GET+16*, GET+17*
DBRS("POST" DBRS+14*, EDIT+30, EDIT+55, EDIT+65*, EDIT+66*, EDIT+67*, EDIT+68*, EDIT+69*, EDIT+72!, EDIT+75!
EDIT+76*, EDIT+77*, EDIT+78*, EDIT+79*, EDIT+80*, EDIT+83*, EDITCHG+4, EDITCHG+5, EDITCHG+7, EDITCHG+8
, EDITCHG+9, EDITPFA+3, EDITPFA+5, EDITPFA+6, EDITPFA+7, EDITPFA+8, EDITSORT+5, EXT+4
DBRS("PRE" DBRS+14, EDIT+86, EDITCHG+3, EDITCHG+4, EDITCHG+5, EDITCHG+8, EDITCHG+9, EDTINACT+3, EDTINACT+4, EDTINACT+5
EDITSORT+3
DBRS(0 EDITPFAH+2, EDITPFAH+4, EDITPFAH+5, EDITPFAH+6, EDITPFAH+7, EDITPFAH+8, EDITPFAH+10, EDITPFAH+11, EDITPFAH+12, EDITPFAH+13
EDITPFAH+14, EDITSORT+3*, EDITSORT+5*
DBS EXT~
DEL ADD~, ADD+13
DGA DBRSVAL+22~, DBRSVAL+44*, DBRSVAL+58, DBRSVAL+59, DBRSVAL+60, DBRSVAL+61
DGA(1 DBRSVAL+45*, DBRSVAL+50, DBRSVAL+51, DBRSVAL+53, DBRSVAL+54, DBRSVAL+55
DGDATA ADD~, ADD+14
DGDATA( ADD+16, ADD+22, ADD+24, ADD+25
DGDIC EDIT+17~, EDIT+35*, EDIT+38, EDIT+39, EDIT+42, EDIT+44, EDIT+50, EDIT+61, EDIT+64, EDIT+65
EDIT+66, EDIT+67, EDIT+68, EDIT+69, EDIT+76
DGDIE EDIT+17~, EDIT+39*, EDIT+42, EDIT+52*, EDIT+53*, EDIT+62, EDIT+77, EDIT+78, EDIT+79, EDIT+80
EDIT+83
DGERR DBRSVAL+22~, ADD+9~
DGEXIST ADD+9~, ADD+12, ADD+13!
DGEXIST( ADD+18
DGFDA ADD+9~, ADD+27
DGFDA( ADD+21*, ADD+23*, ADD+24*, ADD+25*
DGIEN DBRS+13, ADD~, ADD+10, ADD+11, ADD+12, ADD+13, ADD+20, EDIT+21, EDIT+22, EDIT+28
EDIT+46, EDIT+86
DGN DBRSVAL~, DBRSVAL+32, DBRSVAL+34, DBRSVAL+41, DBRSVAL+42
DGNIEN DBRSVAL~, DBRSVAL+28*, DBRSVAL+29, DBRSVAL+44, DBRSVAL+45
DGPFA( EDITPFA+2!
>> DGPFA("DBRS D ATE" , EDITPFA+7*
>> DGPFA("DBRS O THER" , EDITPFA+6*
>> DGPFA("DBRS S ITE" , EDITPFA+8*
>> DGPFA("DBRS#" EDITPFA+5*
>> DGPFAH("ACTION" DBRS+9
>> DGPFAH("DBRS" EDTINACT+6*, EDITPFAH+18*, EDITPFAH+20*, EDITPFAH+22*, EDITPFAH+28*
DGPFH EIE~
DGPFH("DBRS" EIE+2, EIE+8, EIE+9
DGPRE EDIT+5~, EDIT+86*
DGRET DBRSVAL+22~, DBRSVAL+34, DBRSVAL+35, GET+6~, GET+8
DGRET( GET+11, GET+13, GET+15, GET+16, GET+17
DGT EIE+3~
DGT("DIMAG" EIE+13*
DGT("DIMSG" EIE+5*, EIE+10*, EIE+12*, EIE+14*, EIE+15*
DIC EDIT+20~, EDIT+22*, EDIT+33
DIC("DR" EDIT+24*
DIC(0 EDIT+23*
DIE EDIT+43~, EDIT+46*
DIERR DBRSVAL+22~, DBRSVAL+35, ADD+9~
DIK EDIT+32~, EDIT+33*
DLAYGO EDIT+20~, EDIT+23*
DR EDIT+43~, EDIT+47*, EDIT+57*
DTOUT EDIT+20~, EDIT+25, EDIT+43~, EDIT+49
DUOUT EDIT+20~, EDIT+26, EDIT+43~
FLD EXT~, EXT+4, EXT+5, EXT+6, EXT+7, EXT+8
I DBRS+7~, EIE+3~, EIE+5*, ADD+9~, ADD+16*, EDITPFAH+1~, EDITPFAH+2*, EDITSORT+1~, EDITSORT+3*, EDITSORT+5*
EH+4~, EH+6*, GET+6~, GET+11*, NOW~, TEXT+1~, TEXT+2*, TEXT+3*
IEN DBRSVAL+22~, GET~, GET+7, GET+8
IENS ADD+17~, ADD+20*, ADD+21, ADD+23, ADD+24, ADD+25
INC EIE+3~, EIE+7*, EIE+10*, EIE+12*, EIE+13*, EIE+14*, EIE+15*, ADD+9~, ADD+15*, ADD+19*
, ADD+20, EDITCHG+1~, EDTINACT+1~, EDTINACT+2*, EDTINACT+6*, EDITPFAH+1~, EDITPFAH+2*, EDITPFAH+16*, EDITPFAH+18, EDITPFAH+20
EDITPFAH+22, EDITPFAH+28
J DBRS+7~, EIE+14*, ADD+9~, EDITCHG+1~, EDITCHG+3*, EDITCHG+7*, EDTINACT+1~, EDTINACT+3*, EDITPFA+1~, EDITPFA+3*
EDITPFA+4*, EDITPFA+5, EDITPFA+6, EDITPFA+7, EDITPFA+8, EDITPFAH+1~, TEXT+1~*, TEXT+2*
JINC EIE+3~, EIE+8*, EIE+9
MSG DBRSVAL+22~
MSG( DVOUT+1
MSG(1 DBRSVAL+23*
MSG(2 DBRSVAL+24*
MSG(3 DBRSVAL+25*
MSG(4 DBRSVAL+26*
MSG(5 DBRSVAL+27*
NM DBRS+7~, EIE+3~, EIE+8*, EIE+9*, EIE+10, ADD+9~, ADD+16*, ADD+18, ADD+21, ADD+22
, ADD+24, ADD+25, EDIT+17~, EDIT+61*, EDIT+65, EDIT+66, EDIT+67, EDIT+68, EDIT+69, EDIT+72
EDIT+74, EDIT+75, EDITCHG+1~, EDITCHG+3*, EDITCHG+4, EDITCHG+5, EDITCHG+7*, EDITCHG+8, EDITCHG+9, EDTINACT+1~
EDTINACT+3*, EDTINACT+4, EDTINACT+5, EDITPFA+1~, EDITPFA+3*, EDITPFA+5, EDITPFA+6, EDITPFA+7, EDITPFA+8, EDITPFAH+1~
EDITPFAH+2*, EDITPFAH+4, EDITPFAH+5, EDITPFAH+6, EDITPFAH+7, EDITPFAH+8, EDITPFAH+10, EDITPFAH+11, EDITPFAH+12, EDITPFAH+13
EDITPFAH+14, EDITSORT+1~, EDITSORT+2*, EDITSORT+3*, EDITSORT+4*, EDITSORT+5*, EXT+4, GET+6~, GET+11*, GET+13
, GET+14, GET+15, GET+16, GET+17
NM(1 EDIT+62*, EDIT+72, EDIT+74, EDIT+76, EDIT+77, EDIT+78, EDIT+79, EDIT+80, EDIT+83
NODE GET~, GET+10, GET+12, GET+13, GET+14, GET+15, GET+16, GET+17
NOWR TEXT~, TEXT+3
OUT DBRS+7~, DBRS+10*, DBRS+18, EDIT+7, EDIT+18*, EDIT+19, EDIT+25*, EDIT+26*, EDIT+30*, EDIT+31*
EDIT+38*, EDIT+42, EDIT+49*, EDIT+56*
POST EDITPFAH+3~, EDITPFAH+10*, EDITPFAH+11*, EDITPFAH+12*, EDITPFAH+13*, EDITPFAH+14*, EDITPFAH+18, EDITPFAH+20, EDITPFAH+22*, EDITPFAH+25*
EDITPFAH+26*, EDITPFAH+27*, EDITPFAH+28
PRE EDIT+43~, EDIT+45*, EDIT+54, EDIT+57, EDITPFAH+3~, EDITPFAH+4*, EDITPFAH+5*, EDITPFAH+6*, EDITPFAH+7*, EDITPFAH+8*
EDITPFAH+18*, EDITPFAH+20*, EDITPFAH+22, EDITPFAH+26, EDITPFAH+27
SP EIE+3~, EIE+6*, EIE+10
ST TEXT~, TEXT+2
TMP EDIT+20~, EDIT+28*, EDIT+30, EDIT+33, EDIT+35
TXT EIE+3~, EIE+4, TEXT~
TXT( EIE+5, EIE+14, TEXT+2*, TEXT+3
U DBRS+9, DBRSVAL+35, DVOUT+1, EIE+9, ADD+22, ADD+24, ADD+25, EDIT+28, EDIT+30, EDIT+33
EDIT+39, EDIT+42, EDIT+44, EDIT+50, EDIT+54, EDIT+55, EDIT+57, EDIT+61, EDIT+62, EDIT+64
EDIT+65, EDIT+66, EDIT+67, EDIT+68, EDIT+69, EDIT+76, EDIT+77, EDIT+78, EDIT+79, EDIT+80
EDIT+83, EDTINACT+4, EDTINACT+5, EDITPFA+5, EDITPFA+6, EDITPFA+7, EDITPFA+8, EDITPFAH+5, EDITPFAH+6, EDITPFAH+7
EDITPFAH+8, EDITPFAH+11, EDITPFAH+12, EDITPFAH+13, EDITPFAH+14, EDITPFAH+18, EDITPFAH+20, EDITPFAH+22, EDITPFAH+25, EDITPFAH+26
EDITPFAH+27, EXT+8, GET+15, GET+16, GET+17
X DBRS+7~, DBRSVAL+22~, DVOUT+1*, DVOUT+2, EIE+3~, EIE+8*, EIE+10*, EIE+12, ADD+9~, ADD+22*
, ADD+23, ADD+24*, ADD+25*, EDIT+17~, EDIT+20~, EDIT+43~, EDIT+51*, EDIT+52, EDIT+53, EDIT+54
EDIT+55, EDITCHG+1~, EDTINACT+1~, EDTINACT+4*, EDTINACT+5*, EDTINACT+6, EDITPFA+1~, EDITPFA+2*, EDITPFAH+1~, EDITPFAH+26*
EDITPFAH+27*, EH+4~, EH+6*, EXT+3~, EXT+4*, EXT+5, EXT+6, EXT+7, EXT+8, NOW~
, TEXT+1~, TEXT+2*
Y DBRS+7~, DBRSVAL+22~, DBRSVAL+41*, DBRSVAL+42, DVOUT+1*, EIE+3~, EIE+9*, ADD+9~, EDIT+17~, EDIT+26
EDIT+28, EDIT+32~, EDIT+33*, EDIT+43~, EDITPFAH+1~, EH+4~, EXT+3~, EXT+4*, EXT+5*, EXT+6*
, EXT+7*, EXT+8*, EXT+9, NOW~
Y(0 EDIT+28
Z NOW~

Marked Items

Name Field # of Occurrence
$T(EH+I EH+6
$T(T+I TEXT+2
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 |  Local Variables |  Marked Items  | All