RAUTL ;HISC/CAH,FPT,GJC AISC/MJK,RMO-Utility Routine ;12/4/97 14:21
Source file <RAUTL.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 4 | (,HOME)^%ZIS ^%ZISC ^%ZTLOAD ^XUVERIFY |
Registration | 1 | PID^VADPT6 |
VA Fileman | 1 | ^%DT |
Name | Comments | DBIA/ICR reference |
---|---|---|
DATE1 | ||
END1 | ||
END | ||
ZIS | ||
WARNPRC | ; send warning if user changes procedure within exam edit
; and the exam has either or both radiopharms and meds ; RAY (sub-rec 70.03) comes from rtns RAEDCN or RAEDPT (exam edit) ; RAPRIT (ien file 71) comes from rtn RASTED (status tracking) |
|
ZIS1 | ||
VERIFY | ;Ask Access Code
|
|
USER1 | ||
DEV | ;EXECUTEABLE HELP FOR DEVICE FIELDS IN FILE 79.1 (IMAGING LOCATIONS)
|
|
DUZ | ;Lookup and set RASIG("PER")=New Person File IFN, set signature block
|
|
A | ;Create signature block name using RASIG("PER") as input IEN of file 200
|
|
USER | ||
WARN0 | ||
USERQ | ||
DATE | ||
CLOSE | ||
SSN(PID,BID,DOD) | ;returns full Pt.ID (VA("PID")), BID=1 returns VA("BID")
|
|
D |
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: READ |
|
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 |
|
Routine Call |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZIS(1 - [#3.5] | DEV+3 |
^RADPT - [#70] | WARNPRC+10, WARNPRC+12 |
^RADPTN - [#70.2] | WARNPRC+11 |
^RAMIS(71 - [#71] | WARNPRC+21 |
^VA(200 - [#200] | A+3*, DUZ+2, DUZ+4, DUZ+5, DUZ+6 |
^XUSEC( | USER1 |
Name | Line Occurrences |
---|---|
A | DUZ+4 |
USER | USER |
USERQ | USER |
VERIFY | VERIFY+1 |
WARN0 | WARNPRC+17 |
ZIS | ZIS+3 |
ZIS1 | ZIS+4 |
Name | Field # of Occurrence |
---|---|
^( | DEV+3 |
^(0 | DEV+3 |
^(1 | DEV+3 |
^(20 | DUZ+5* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | USER*, VERIFY+1*, DUZ+2*, DUZ+3* |
%DT | DATE+1*, END*!, DATE1+1*, END1*! |
%DT("A" | DATE+1*, END*, DATE1+1*, END1* |
%DT(0 | DATE+1*, DATE1+1* |
>> %DUZ | USER*, VERIFY+1* |
%INT | DUZ+3!, DUZ+4!, DUZ+6! |
%X | A+3*!, DUZ+5*! |
%ZIS | ZIS+3*! |
%ZIS("B" | ZIS+3* |
BEGDATE | DATE!, DATE+1*, DATE1!, DATE1+1* |
BID | SSN~, SSN+4*, SSN+6 |
DFN | SSN+2~, SSN+5* |
DOD | SSN~, SSN+4 |
DTIME | DEV+3 |
DUZ | USER, VERIFY+1, DUZ+2 |
ENDDATE | DATE!, END*, DATE1!, END1* |
>> I | DEV+3* |
IO("DOC" | ZIS+5 |
IO("Q" | ZIS+4, ZIS+5! |
IOF | DEV+1, DEV+3 |
IOM | ZIS+5 |
ION | ZIS+5 |
>> IOP | ZIS+3* |
IOSL | ZIS+5, DEV+3 |
IOST | ZIS+3, ZIS+5 |
PID | SSN~ |
>> POP | ZIS+3 |
>> RACNI | WARNPRC+4, WARNPRC+10, WARNPRC+12 |
>> RADDT | DATE+1, DATE1+1 |
>> RADFLTP | ZIS+3 |
>> RADFN | SSN+3, SSN+5, WARNPRC+4, WARNPRC+10, WARNPRC+12 |
RADIO | WARNPRC+6~, WARNPRC+7*, WARNPRC+10*, WARNPRC+11*, WARNPRC+14, WARNPRC+15, WARNPRC+16 |
>> RADTI | WARNPRC+4, WARNPRC+10, WARNPRC+12 |
>> RADUPSCN | ZIS+3 |
RADUZ | USER*, USER1, VERIFY+1!* |
>> RAKEY | USER1 |
>> RAMDV | USER* |
RAMEDS | WARNPRC+6~, WARNPRC+7*, WARNPRC+12*, WARNPRC+14, WARNPRC+15, WARNPRC+16 |
RAMES | ZIS+1*, ZIS+7, ZIS+8!, ZIS1! |
>> RAPOP | DATE*, DATE+1*, END*, DATE1*, DATE1+1*, END1*, ZIS+3*, ZIS+8*, USERQ* |
>> RAPRI | WARNPRC+8, WARNPRC+9 |
>> RAPRIT | WARNPRC+5, WARNPRC+9, WARNPRC+21 |
RASELDEV | ZIS+2!, ZIS1! |
>> RASIG("NAME" | DUZ+6* |
>> RASIG("PER" | A+3, DUZ+2*, DUZ+3, DUZ+4, DUZ+5, DUZ+6 |
>> RASKTIME | DATE+1, END, DATE1+1, END1 |
>> RASSN | SSN+6*, SSN+8 |
RASV | ZIS+8! |
RATAB | WARNPRC+6~, WARNPRC+19*, WARNPRC+20, WARNPRC+21*, WARNPRC+22 |
RATEXT | WARNPRC+6~, WARNPRC+21*, WARNPRC+22 |
>> RAWHICH | WARNPRC+13*, WARNPRC+14*, WARNPRC+15*, WARNPRC+16*, WARNPRC+17, WARNPRC+19, WARNPRC+20 |
>> RAY | WARNPRC+5, WARNPRC+8, WARNPRC+21 |
>> RAZIS | ZIS+3 |
U | WARNPRC+8, WARNPRC+10, WARNPRC+21 |
>> VA("BID" | SSN+6, SSN+7! |
>> VA("PID" | SSN+6, SSN+7! |
VAERR | SSN+5!, SSN+7! |
VAPTYP | SSN+4*, SSN+7! |
>> X | DEV+3* |
>> Y | DATE+1, END, DATE1+1, END1, D* |
ZTDESC | ZIS*, ZIS+8!, ZIS1! |
ZTDTH | ZIS+8! |
ZTIO | ZIS+5*, ZIS+8! |
>> ZTQUEUED | CLOSE |
>> ZTREQ | CLOSE* |
ZTRTN | ZIS, ZIS+8!, ZIS1! |
ZTSAVE | ZIS+8!, ZIS1! |
ZTSK | ZIS+7, ZIS+8! |
ZTSK("D" | ZIS+7 |