IBTRH5F ;ALB/FA - HCSR Create 278 Request ;15-SEP-2014
Source file <IBTRH5F.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
SELPT(IBTRIEN) | ;EP
; Called from within Input template IB CREATE 278 REQUEST ; Provides the user with a quick view of currently entered Patient Transport ; multiples and allows them to select one to edit or enter a new one. ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; Returns: Value of the .01 field of the multiple to edit ; "" if creating a new multiple, -2 to exit template ; IBNEW=1 when creating a new entry |
|
PTTYPE(IBTRIEN,REQ) | ; Prompts the user to enter the .01 (Entity Identifier) field
; of the Patient Transport Information Multiple ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; REQ - 1 if field is required ; Optional, defaults to 0 ; Returns: Selected Entity Identifier or "" of not entered |
|
PTTYPE1 | ; Looping tag
|
|
DELPT(IBTRIEN,IEN) | ; Checks to see if the user entered 'NEW' to create a new
; Patient Transport Information Line and didn't enter any data for it OR ; selected a line to delete. If so, the Patient Transport Information Line with ; no data (or selected) is deleted ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; IEN - Optional, IEN of the multiple to be deleted if passed ; defaults to "" ; Output: Empty (or selected) Patient Transport Information line is deleted (Potentially) |
|
SELSAPI(IBTRIEN,SIEN) | ;EP
; Called from within Input template IB CREATE 278 REQUEST ; Provides the user with a quick view of currently entered Service Line ; Additional Patient Information multiples and allows them to select one to ; edit or enter a new one. ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; SIEN - IEN of the service line multiple being edited ; Returns: Value of the .01 field of the multiple to edit ; "" if creating a new multiple, -2 to exit multiple ; IBNEW=1 when creating a new entry |
|
DELSAPI(IBTRIEN,SIEN,IEN) | ; Checks to see if the user entered 'NEW' to create a new
; Additional Patient Information Line and didn't enter any data for it or selected ; a line to be deleted. If so, the empty or selected Additional Patient Information ; line is deleted ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; SIEN - IEN of the Service Line being edited ; IEN - Optional, IEN of the multiple to be deleted if passed ; defaults to "" ; Output: Empty or selected Additional Patient Information line is deleted (Potentially) |
|
RTYPE(IBTRIEN,SIEN) | ; Prompts the user to enter the .01 (Report Type) field of the
; Additional Patient Information multiple ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; SIEN - IEN of the Service Line ; Returns: IEN of the selected Report Type or "" of not entered |
|
SELSTI(IBTRIEN,SIEN) | ;EP
; Called from within Input template IB CREATE 278 REQUEST ; Provides the user with a quick view of currently entered Service Line Tooth ; Information multiples and allows them to select one to edit or enter a new ; one. ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; SIEN - Service Line Multiple IEN ; Returns: Value of the .01 field of the multiple to edit ; "" if creating a new multiple, -2 to exit multiple ; IBNEW=1 when creating a new entry |
|
DELSTI(IBTRIEN,SIEN,IEN) | ; Checks to see if the user entered 'NEW' to create a new
; Tooth Information Line and didn't enter any data for it OR selected a line ; to be deleted. If so, the Additional Tooth Information line with no data ; (or selected) is deleted ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; SIEN - IEN of the Service Line being edited ; Output: Empty (or selected) Tooth Information line is deleted (Potentially) |
|
TTYPE(IBTRIEN,SIEN) | ; Prompts the user to enter the .01 (Tooth) field of the
; Tooth Information multiple ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; SIEN - IEN of the Service Line ; Returns: IEN of the selected Tooth Type or "" of not entered |
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 |
|
FileNo | Call Tags |
---|---|
^IBT(356.022 - [#356.022] | GET1^DIQ |
^IBT(356.22 - [#356.22] | Classic Fileman Calls |
356.2214 | FIELD^DID, GET1^DIQ |
356.22164 | GET1^DIQ |
356.22166 | GET1^DIQ |