Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RAUTL19

Package: Radiology Nuclear Medicine

Routine: RAUTL19


Information

RAUTL19 ;HISC/GJC-Utility Routine ; Apr 28, 2020@14:47:46

Source Information

Source file <RAUTL19.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?(IOM-$L(RAHDR)\2),RAHDR
  • Line Location: PRELIM+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PRELIM+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PRELIM+3
Function Call: WRITE
  • Prompt: !?5,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled!")
  • Line Location: PRELIM+6
Function Call: WRITE
  • Prompt: !!,RADASH,"Checking fields not needed by non-nucmed imaging",RADASH
  • Line Location: NOTNEED+2
Function Call: WRITE
  • Prompt: !!?11,"Within : ",RAIMG,!?5,"The following need not be answered :"
  • Line Location: NOTNEED+3
Function Call: WRITE
  • Prompt: !?5,"Exam Status '",$P(RANODE(0),"^"),"'",!?5,"order ("_RAO_") '",!
  • Line Location: NOTNEED+4
Function Call: WRITE
  • Prompt: !,"'",$P($G(^DD(72,RAIMG0,.1)),U),"' is set to ",RAPIECE(RAIMG0)
  • Line Location: NOTNEED+7
Function Call: WRITE
  • Prompt: !
  • Line Location: NOTNEED+8
Function Call: WRITE
  • Prompt: !?15,$P(^SC($P(^RA(79.1,RA791,0),U),0),U)
  • Line Location: PRNTASGN+6
Function Call: WRITE
  • Prompt: !?5,$C(7),"You do not have access to any Imaging Locations."
  • Line Location: ACCVIO+1
Function Call: WRITE
  • Prompt: !?5,"Contact your ADPAC."
  • Line Location: ACCVIO+2
Function Call: WRITE
  • Prompt: !!,"Current system is not running Vista Imaging -- nothing done.",!
  • Line Location: VRADE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: VRADE+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RA(72 - [#72] Classic Fileman Calls
^RA(79.2 - [#79.2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call