IBJPI ;DAOU/BHS - IBJP eIV SITE PARAMETERS SCREEN ; 01-APR-2015
Source file <IBJPI.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; main entry pt for IBJP IIV SITE PARAMS
|
|
HDR | ; header
|
|
INIT | ; init vars & list array
|
|
HELP | ; help
; IB*2.0*601,IB*2.0*621/DM adjust help text |
|
EXIT | ; exit
|
|
BLD | ; Creates the body of the worklist
; IB*2.0*549 - rewrote this entire method and all methods called from it to ; change to a totally new display of fields |
|
BLDGENE(SLINE,ELINE) | ; Build the General Editable Parameters Section
; Input: SLINE - Starting Section Line Number ; ELINE - Current Ending Section Line Number ; Output: ELINE - Updated Ending Section Line Number |
|
BLDGENNL(SLINE,STARTR,ELINE) | ; Build the Left portion of the General
; Non-Editable Parameters Section ; Input: SLINE - Starting Section Line Number ; ELINE - Current Ending Section Line Number ; Output: STARTR - Line to start displaying General Non-Editable Right ; Section ; ELINE - Updated Ending Section Line Number |
|
BLDGENNR(SLINE,ELINE) | ; Build the Right portion of the General
; Non-Editable Parameters Section ; Input: SLINE - Starting Section Line Number ; ELINE - Current Ending Section Line Number ; Output: ELINE - Updated Ending Section Line Number |
|
BLDGENNB(SLINE,ELINE) | ; Build the General Non-Editable Bottom Parameters Section
; Input: SLINE - Starting Section Line Number ; ELINE - Current Ending Section Line Number ; Output: ELINE - Updated Ending Section Line Number |
|
BLDBE(SLINE,ELINE) | ; Build the Batch Extract Parameters Section
; Input: SLINE - Starting Section Line Number ; ELINE - Current Ending Section Line Number ; Output: ELINE - Updated Ending Section Line Number |
|
BLDGENNS(ELINE) | ; Build the IIU Parameters Non-editable Section
; Input: SLINE - Starting Section Line Number ; ELINE - Current Ending Section Line Number ; Output: ELINE - Updated Ending Section Line Number |
|
SET(LABEL,DATA,LINE,COL) | ; Sets text into the body of the worklist
; Input: LABEL - Label text to set into the line ; DATA - Field Data to set into the line ; LINE - Line to set LABEL and DATA into ; COL - Starting column position in LINE to insert ; LABEL_DATA text ; Returns: LINE - Updated Line by 1 |
|
SETN(TITLE,LINE,COL,RV,ULINE) | ; Sets a field Section title into the body of the worklist
; Input: TITLE - Text to be used for the field Section Title ; LINE - Line number in the body to insert the field section title ; COL - Starting Column position to set Section Title into ; RV - 1 - Set Reverse Video, 0 or null don't use Reverse Video ; Optional, defaults to "" ; ULINE - 1 - Set Underline, 0 or null don't use underline ; Optional, defaults to "" ; Returns: LINE - Line number increased by 1 |
|
SET1(TEXT,LINE,COL,WIDTH,RV,ULINE) | ; Sets the TMP array with body data
; Input: TEXT - Text to be set into the specified line ; LINE - Line to set TEXT into ; COL - Column of LINE to set TEXT into ; WIDTH - Width of the TEXT being set into line ; RV - 1 - Set Reverse Video, 0 or null don't use ; Reverse Video ; Optional, defaults to "" ; ULINE - 1 - Set Underline, 0 or null don't use ; Underline ; Optional, defaults to "" ; ^TMP($J,"IBJPI") - Current ^TMP array ; Output: ^TMP($J,"IBJPI") - Updated ^TMP array |
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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^IBE(350.9 - [#350.9] | GET1^DIQ |
350.9002 | GET1^DIQ |