RAUTL19 ;HISC/GJC-Utility Routine ; Apr 28, 2020@14:47:46
Source file <RAUTL19.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PRELIM(RAIMG) | ; Called from '1^RAMAIN1'
|
|
EN1 | ; Check data consistency
|
|
NOTNEED | ;non-radiopharm used don't need .5n and .6n fields answered
|
|
CKPRNTR | ;ck that all img locations for that img type has a dosg tkt prntr
|
|
PRNTASGN | ;
|
|
WRPAIR | ||
CKPAIR | ; when field I is Y, then field J must also be Y at current/lower status
|
|
WRWAIT | ||
CKWAIT | ; CKWAIT is only done for WAITING FOR EXAM and assumes order seq = 1
|
|
ASKPRI(A,B,C) | ; Check all prior statuses to ensure that the specific required
; data field is set to 'yes', and the field for data asked is set to ; 'yes'. ; 'A' is the I-Type (external) <-> 'B' is the current status order ; 'C' is fld that shd be prompted <-> 'E' is the order # ; 'F' is the ien of file 72. <-> 'RA' hold the entire data node ; 'RAFLD' value of the field <-> 'RAPCE' where data found on node |
|
PROCTY(Y) | ; Passes back the Procedure Type. 'Y' is the ien in the
; Rad/Nuc Med Procedure file '^RAMIS(71,'. |
|
LK(X) | ; Lock a patient record when updating orders
; 'X' input in a variable pointer format: 'record_#;data_file__root' ; Pass back 'Y': '0' if lock fails, '1' if successful ; 'Y' defined in LK^ORX2 |
|
ULK(X) | ; Unlock a patient record
; 'X' input in a variable pointer format: 'record_#;data_file__root' |
|
ACCVIO | ; Lack of Imaging Location access for a user
|
|
DEV(X) | ; Lookup an entry in the Device (3.5) file.
; Called from the [RA LOCATION PARAMETERS] input template. File: 79.1 ; Input: X=IEN of Device ; Output: Name of Device |
|
OENO(X) | ; OE/RR notifications, called from: RAORR1, RAORD1 & RAO7RO
; Input: 'X' -> ien of the Rad/Nuc Med Orders file (75.1) ; Notification: #51 - STAT IMAGING REQUEST & #52 - URGENT IMAGING REQUEST |
|
VRADE | ;VistaRad Category data entry
|
|
VRADQ |
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 |
---|---|
^RA(72 - [#72] | Classic Fileman Calls |
^RA(79.2 - [#79.2] | Classic Fileman Calls |