IBTRH5D ;ALB/FA - HCSR Create 278 Request ;12-AUG-2014
Source file <IBTRH5D.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SELAPI(IBTRIEN) | ;EP
; Called from within Input template IB CREATE 278 REQUEST ; Provides the user with a quick view of currently entered 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 ; Returns: Value of the .01 field of the multiple to edit ; "" if creating a new multiple, -2 to exit template ; IBNEW - 1 if creating a new entry |
|
| DELAPI(IBTRIEN,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. Also ; checks to see if user selected to delete a specified line. If so, the ; Additional Patient 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 Additional Patient Information line is deleted (Potentially) |
|
| RTYPE(IBTRIEN) | ; 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 ; Returns: IEN of the selected Report Type or "" of not entered |
|
| SELPD(IBTRIEN) | ;EP
; Called from within Input template IB CREATE 278 REQUEST ; Provides the user with a quick view of currently entered Provider Data ; multiples and allows them to select one to edit or enter a new one. ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; IBTRBRF - 1 if this display is being used from the brief template ; 0 or undefined otherwise ; 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 |
|
| DELPD(IBTRIEN,IEN) | ; Checks to see if the user entered 'NEW' to create a new
; Provider Data Line and didn't enter any data for it or selected a line to ; be deleted. If so, the empty or selected Provider Data line 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 Provider Data line is deleted (Potentially) |
|
| PTYPE(IBTRIEN) | ; Prompts the user to enter the .01 (Provider Type) field of the
; Provider Data multiple ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; Returns: IEN of the selected Provider Type or "" of not entered |
|
| SELDX(IBTRIEN) | ;EP
; Called from within Input template IB CREATE 278 REQUEST ; Provides the user with a quick view of currently entered Diagnoses and ; allows them to select one to edit or enter a new diagnosis. ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; IBTRBRF - 1 if this display is being used from the brief template ; 0 or undefined other otherwise ; Returns: Value of the .01 field of the multiple to edit ; "" if creating a new multiple, -2 to exit template ; -3 if a if a line was deleted ; IBNEW=1 when creating a new entry |
|
| DXTYPE(IBTRIEN) | ; Prompts the user to enter the .01 (Diagnosis Type) field of
; the diagnosis multiple ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; Returns: IEN of the selected Diagnosis Type or "" of not entered |
|
| DELDX(IBTRIEN,IEN) | ; Checks to see if the user entered 'NEW' to create a new
; Diagnosis Line and didn't enter any data for it or selected a multiple to ; to be deleted. If so, the empty or selected multiple 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 Diagnosis line is deleted (Potentially) |
|
| ASKNEW(PROMPT,DEFAULT) | ;EP
; Ask if user wants to create a new entry ; Input: PROMPT - Yes/No question to ask the user ; DEFALT - Default Answer ; Optional, if not passed, set to 'YES' ; Returns: 0 - User wants to add a new Entry ; -1 - User doesn't want to add a new entry ; -2 - User wants to exit template |
|
| A1 | ;
|
|
| SELENT(ARRAY,H1,H2,L1,L2,MAX,INDENT,SECT) | ; Select an entry to add/edit from a list
; Input: ARRAY() - Array of multiple lines to be displayed ; H1 - 1st line of Header Information ; H2 - 2nd line of Header Information ; L1 - 1st line of DIR display ; L2 - Selection line text ; MAX - Multiple Description ; If passed, entering a new line is not allowed ; Optional, defaults to "" if not passed ; INDENT - 1 to indent 2 spaces ; Optional, defaults to 0 ; SECT - Section Header ; Returns: # - User wants to edit Entry # ; 0 - User wants to Add a new Entry ; -1 - User wants to skip this section ; -2 - User wants to exit template |
|
| SELE1 | ;
|
|
| SELERR(INDENT) |
| 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 |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^IBT(356.006 - [#356.006] | GET1^DIQ |
| ^IBT(356.22 - [#356.22] | Classic Fileman Calls |
| 356.2211 | GET1^DIQ |
| 356.2213 | GET1^DIQ |
| 356.223 | GET1^DIQ |
