RAUTL18 ;HISC/DAD,GJC - PROCEDURE FILE UTILITIES ; Mar 11, 2024@08:19:32
Source file <RAUTL18.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(RAPROCD0,PROCTYPE) | ;
; Check/delete DESCENDENT multiple when the TYPE OF PROCEDURE changes ; Input: PROCEDURE file (#71) IEN (RAPROCD0) ; New TYPE OF PROCEDURE value in internal format (PROCTYPE) |
|
| EN1 | ; TYPE OF PROCEDURE: Non-parent ==> Parent
; Is PROCEDURE a DESCENDENT? If it is KILL X ; Input: PROCEDURE file (#71) IEN (RAPROCD0) |
|
| EN2 | ; TYPE OF PROCEDURE: Parent ==> Non-parent, delete DESCENDENTS
; Input: PROCEDURE file (#71) IEN (RAPROCD0) |
|
| EN3(RADA) | ; Displays the available sequence numbers for the current
|
|
| BCDE(X) | ; Output data in a barcode format. 'X' is the data to be converted.
; RAIND1 & RAIND2 are newed in PRT^RAFLH. Used for indirection. |
|
| ILOC(X) | ; Determines based on procedure I-Type if only one I-Loc is available
; for this user. ; To be called from: [RA OERR EDIT], [RA ORDER EXAM] and ; [RA QUICK EXAM ORDER] input templates. (File: 75.1) ; Input Variable: 'X'-> IEN of the procedure ; Output Variable: 'Y'-> $S(one I-Loc of proc. I-Type: IEN of I-Loc,1:0) |
|
| ADDRESS(RADA,DFN) | ; Pass back the address of the patient for Print Label
; Fields. ; Input: RADA-ien of the print label field, DFN-patient ien ; Output: The street address of the patient. ; It can be the street address(123 Main Street), possibly followed by ; additional street address information such as 'P.O. Box' data, and ; finally the city, state, and zip code. |
| 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 |
|
