DGPFUT61 ;SHRPE/SGM - DBRS# EDIT UTILS ; Jan 19, 2018 16:45
Source file <DGPFUT61.m>
| 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 | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
