RAUTL13 ;HISC/CAH-Utility OMA Loc selector, Pt Loc change, Submit-to loc scrn ; Oct 12, 2022@10:15:27
Source file <RAUTL13.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| IPOP | ;Determine if current pt loc is different than requesting loc
|
|
| OP | ||
| IPOPQ | ||
| OMA | ;Select One/Many/All locations within current imaging type p194
|
|
| Q | ||
| SUBMIT(DA,Y) | ;Called from file 75.1, field 20 (imaging location) screen
; returns 1 if location being screened has same imaging type as ; procedure ordered. ; DA is the IEN of file 75.1, Y is the IEN of the entry in file ; 79.1 that is being screened. |
|
| SUBMITQ(DA,Y) | ;Called from file 71.3, field 8 (imaging location) screen
; returns 1 if location being screened has same imaging type as ; the common procedure. ; DA is the IEN of file 71.3, Y is the IEN of the entry in file ; 79.1 that is being screened. |
|
| INLO(X) | ; Determine if the Imaging Location is inactive
; Pass in the IEN of the Imaging Location (most of the time +RAMLC) ; Pass back '1' if inactive, '0' if active. |
|
| OPTCHK() | ;check if one of the two options listed below:
; 'Log of Scheduled Requests by Procedure' -or- ; 'Pending/Hold Rad/Nuc Med Request Log' invoke ; this sub-routine. p194 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
