SD53P495 ;ALB/RBS - ENV/POST-INSTALL FOR PATCH SD*5.3*495 ; 5/2/07 12:24pm
Source file <SD53P495.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENV | ;Environment check
|
|
| POST | ;Post-Install
|
|
| POST1 | ;Set parameter value
|
|
| START | ;Background job entry point
|
|
| FILE(SDENCPTR,SDAIEN,SDARAY) | ;file new entry
; create #409.48 file ; Input: ; SDENCPTR - [required] O/P Encounter file pointer (#409.68) ; SDAIEN - [required] IEN of (#626140) record to convert ; SDARAY - [required] Array of Internal values of all fields ; Output: ; Function Value - returns 1 on success, 0 on failure and error msg |
|
| SENDMSG(SDSTOP) | ;send MailMan msg to patch installer
|
|
| ADD(SDLN,SDTXT) | ;add line
|
|
| PROGCHK(XPDABORT) | ;checks programmer variables
|
|
| ISRUNING(XPDABORT) | ;check if running
|
|
| NOFILE | ;no File
|
|
| TASK | ;run TaskMan
|
|
| XTMP | ;setup ^XTMP to control output for 90 days
|
|
| UPXTMP(SDENCPTR,NODE,SDENT) | ;add to ^XTMP
; Input: ; SDENCPTR - Encounter IEN ; NODE - Unique subscript ; Output: none |
