RAUTL13 ;HISC/CAH-Utility OMA Loc selector, Pt Loc change, Submit-to loc scrn ;9/5/96 07:52
Source file <RAUTL13.m>
Package | Total | Call Graph |
---|---|---|
Radiology Nuclear Medicine | 1 | EN1^RASELCT |
Registration | 1 | INP^VADPT |
Name | Comments | DBIA/ICR reference |
---|---|---|
OMA | ;Select One/Many/All locations within current imaging type
|
|
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. |
|
Q | ||
IPOPQ | ||
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. |
|
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. |
|
IPOP | ;Determine if current pt loc is different than requesting loc
|
|
OP |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(42 - [#42] | IPOP+11, IPOP+14 |
^RA(79.1 - [#79.1] | SUBMIT+5, SUBMIT+7, SUBMITQ+6, INLO+3 |
^RA(79.2 - [#79.2] | SUBMIT+8, SUBMITQ+7 |
^RAMIS(71 - [#71] | SUBMIT+9, SUBMITQ+9 |
^RAMIS(71.3 - [#71.3] | SUBMITQ+8 |
^RAO(75.1 - [#75.1] | SUBMIT+9 |
^SC - [#44] | IPOP+10, IPOP+11 |
^TMP($J | OMA+11!, OMA+21, Q! |
Name | Line Occurrences |
---|---|
IPOPQ | IPOP+15, IPOP+17, IPOP+18 |
OP | IPOP+15 |
Name | Field # of Occurrence |
---|---|
^(0 | IPOP+10 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | SUBMIT~, SUBMIT+9, SUBMITQ~, SUBMITQ+8 |
>> DFN | IPOP+14* |
I | OMA+21*, Q! |
J | OMA+21*, Q! |
RAARRY | OMA+15~, OMA+16*, OMA+19, Q! |
RACIPOP | IPOP+14*, OP, OP+1, IPOPQ! |
>> RADFN | IPOP+14 |
RADIC | OMA+15~, OMA+16*, OMA+19, Q! |
RADIC("A" | OMA+17* |
RADIC("S" | OMA+18* |
RADIC(0 | OMA+16* |
>> RAIMGTY | OMA+18 |
RAIN44 | IPOP+14*, IPOP+17, IPOP+18, IPOPQ! |
RAIPLOC | IPOP+14*, IPOP+15, OP!, IPOPQ! |
RAIPLOCN | IPOP+14*, IPOP+17, IPOP+18, OP!, IPOPQ! |
RALOC | IPOPQ!, SUBMIT+6~, SUBMIT+7*, SUBMIT+8, SUBMIT+10, SUBMITQ+5~, SUBMITQ+6*, SUBMITQ+7, SUBMITQ+10 |
RALOC( | OMA+21* |
>> RALOC1 | OMA+14 |
RALOCI | SUBMIT+6~, SUBMIT+8*, SUBMITQ+5~, SUBMITQ+7* |
>> RALOCN | IPOP+17*, IPOP+18*, OP*, OP+1* |
>> RANOSCRN | OMA+18 |
>> RAORD0 | IPOP+10 |
RAPROC | SUBMIT+6~, SUBMIT+9*, SUBMITQ+5~, SUBMITQ+8*, SUBMITQ+9 |
RAPROCI | SUBMIT+6~, SUBMIT+9*, SUBMIT+10, SUBMITQ+5~, SUBMITQ+9*, SUBMITQ+10 |
RARIPOP | IPOP+11!*, OP, OP+1, IPOPQ! |
RARLOC | IPOP+10*, IPOP+11, IPOP+17, IPOP+18, IPOPQ! |
RARLOCN | IPOP+10*, IPOP+18!, OP! |
RAUTIL | OMA+15~, OMA+16*, OMA+19, Q! |
U | IPOP+10, IPOP+14, SUBMIT+5, SUBMIT+8, SUBMIT+9, SUBMIT+10, SUBMITQ+7, SUBMITQ+8, SUBMITQ+9, SUBMITQ+10 , INLO+3 |
VAIN | IPOPQ! |
VAIN(4 | IPOP+14 |
X | IPOP+11*, IPOPQ!, INLO~, INLO+3 |
Y | SUBMIT~, SUBMIT+5, SUBMIT+7, SUBMITQ~, SUBMITQ+6 |