DGBT1P2 ;ALB/MRY - Patch #2 Environment Check ; 4/23/02 10:04 AM
Source file <DGBT1P2.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;
|
|
ABRT | ; Abort transport, but leave in ^XTMP.
|
|
POST | ; Post install - add #392.31 file to list of DGBT files in Package file.
|
|
PKG | ; Retrieve 'DGBT' Package name
; Get Package IEN |
|
UPD | ; - Update fields not updated by the KIDS install.
; fields: ; File (#6) ; multiple ; Fields ; multiple |
|
FILE | ; Add #392.31 to list of files under Bene Travel.
|
|
FLDS | ; Add ASSIGN A VERSION NUMBER? entries to File entry #392.31
|
|
DD | ;Hardset IDENTIFIER routine into DD (DBIA #4093)
|
|
EXIT |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DIC(9.4 - [#9.4] | Classic Fileman Calls, FIND^DIC |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | POST+1~, FLDS+5*, EXIT! |
DA(1 | FILE+2*, FILE+3, FLDS+1*, FLDS+2 |
DGBTARRY | POST+1~, EXIT! |
DGBTARRY("DILIST" | PKG+4, PKG+5, PKG+6 |
DGBTI | POST+1~, PKG+3*, PKG+4*, PKG+5, PKG+6, EXIT! |
DGBTIEN | POST+1~, PKG+3*, PKG+6*, PKG+7, FILE+2, FLDS+1, EXIT! |
DIC | POST+1~, FILE+2*, FILE+3*, FLDS+1*, FLDS+2*, FLDS+5, EXIT! |
DIC("P" | FILE+3*, FLDS+2* |
DIC(0 | FILE+3*, FLDS+1* |
>> DIE | FLDS+5* |
DR | POST+1~, FLDS+6*, EXIT! |
DT | EN+2 |
DUZ | EN+2 |
DUZ(0 | EN+2 |
U | EN+2 |
X | POST+1~, FILE+1*, FLDS+3*, FLDS+6, EXIT! |
>> XPDABORT | EN+1* |
>> Y | FLDS+5 |