Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: RAUTL19

Package: Radiology Nuclear Medicine

Routine: RAUTL19


Information

RAUTL19 ;HISC/GJC-Utility Routine ;11/13/97 15:18

Source Information

Source file <RAUTL19.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Radiology Nuclear Medicine 4 $$IMAGE^RARIC1  HEAD^RAUTL11  (CKPAIR,CKWAIT,EN1)^RAUTL19C  ($$EOS,$$XTERNAL)^RAUTL5  
Kernel 3 (,HOME)^%ZIS  ^%ZTLOAD  $$UP^XLFSTR  
VA FileMan 2 ^DIC  ^DIE  
Order Entry Results Reporting 1 EN^ORB3  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 12

Package Total Caller Graph
Radiology Nuclear Medicine 12 RA VISTARAD CATEGORY E  RACPT1  RAMAIN1  RAMIS  RAO7RO  RAORD  RAORD1  RAORR1  
RASTAT  RATRAN  RAUTL19C  RAWFR1  

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)
VRADE ;VistaRad Category data entry
VRADQ

External References

Name Field # of Occurrence
^%ZIS PRELIM+2
HOME^%ZIS PRELIM+9
^%ZTLOAD PRELIM+5
^DIC VRADE+3, VRADE+13
^DIE VRADE+15
EN^ORB3 OENO+12
$$IMAGE^RARIC1 VRADE+1
HEAD^RAUTL11 PRNTASGN+2, PRNTASGN+4, PRNTASGN+7, WRPAIR
CKPAIR^RAUTL19C CKPAIR+1
CKWAIT^RAUTL19C CKWAIT+1
EN1^RAUTL19C EN1+1
$$EOS^RAUTL5 PRNTASGN+2, PRNTASGN+4, PRNTASGN+7, WRPAIR
$$XTERNAL^RAUTL5 OENO+11
$$UP^XLFSTR ASKPRI+11, ASKPRI+14, PROCTY+2

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
Routine Call
  • %ZIS
  • Line Location:
    • PRELIM+2
Routine Call
  • %ZIS
  • Line Location:
    • PRELIM+9
Routine Call
  • DIC
  • Line Location:
    • VRADE+3
    • VRADE+13
Routine Call
  • DIE
  • Line Location:
    • VRADE+15

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RA(72 - [#72] Classic Fileman Calls
^RA(79.2 - [#79.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(1 - [#3.5] DEV+5
^DD(72 NOTNEED+7, PRNTASGN+3
^DD(75.1 OENO+11
^RA(72 - [#72] ASKPRI+8, ASKPRI+9, ASKPRI+10, ASKPRI+13
^RA(79.1 - [#79.1] CKPRNTR+3, PRNTASGN+6, OENO+6
^RAMIS(71 - [#71] PROCTY+2
^RAO(75.1 - [#75.1] OENO+3
^SC - [#44] PRNTASGN+6

Label References

Name Line Occurrences
EN1 PRELIM+9
PRNTASGN CKPRNTR+3
VRADQ VRADE+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS PRELIM+1!*
A ASKPRI~, ASKPRI+8, ASKPRI+9
B ASKPRI~, ASKPRI+8
C ASKPRI~, ASKPRI+12, ASKPRI+13
D0 VRADE+6!
>> DA VRADE+15*
DIC VRADE+2*, VRADE+3!, VRADE+7*, VRADE+13!
DIC("A" VRADE+2*
DIC("S" VRADE+8*
DIC("W" VRADE+12*
DIC(0 VRADE+2*, VRADE+7*
>> DIE VRADE+15*
DINUM VRADE+6!
DLAYGO VRADE+6!
>> DR VRADE+15*
E ASKPRI+7~*, ASKPRI+8*, ASKPRI+9
F ASKPRI+7~, ASKPRI+9*, ASKPRI+10, ASKPRI+13
I OENO+2~, OENO+6*, OENO+7
IO PRELIM+8, PRELIM+9
IO("Q" PRELIM+3
IO(0 PRELIM+8, PRELIM+9
IOM PRELIM+1
IOSL PRNTASGN+2, PRNTASGN+4, PRNTASGN+7, WRPAIR
>> POP PRELIM+2
RA ASKPRI+7~
RA( ASKPRI+13*
RA(0 ASKPRI+10*, ASKPRI+11
RA751 OENO+2~, OENO+3*, OENO+5, OENO+11
RA791 CKPRNTR+1~, CKPRNTR+2*, CKPRNTR+3*, PRNTASGN+6
RA791FL CKPRNTR+1~, CKPRNTR+2*, PRNTASGN+1, PRNTASGN+3, PRNTASGN+5*
>> RACHKERR WRPAIR+1, WRPAIR+2*
>> RADASH NOTNEED+2, PRNTASGN+1, WRPAIR+1, WRWAIT
RADFN OENO+2~, OENO+3*, OENO+12
RADICW VRADE+13!
RADICW(1 VRADE+9*, VRADE+12
RADICW(2 VRADE+10*, VRADE+12
RADICW(3 VRADE+11*, VRADE+12
RADUZ OENO+2~, OENO+9*, OENO+12
RADUZ( OENO+7*
RAFLD ASKPRI+7~, ASKPRI+13*, ASKPRI+14
>> RAFLG ASKPRI+8, ASKPRI+14*, ASKPRI+17
>> RAHDR PRELIM+1
RAIMG PRELIM~, NOTNEED+3, PRNTASGN+3, WRWAIT
RAIMG0 NOTNEED+5~, NOTNEED+6*, NOTNEED+7*
RAIMG1 NOTNEED+5~, NOTNEED+6*
RAIMG2 NOTNEED+5~, NOTNEED+6*, NOTNEED+7
RAIMG72 CKPRNTR+1~, CKPRNTR+2*, CKPRNTR+3
RAIMGTYI VRADE+4*, VRADQ!
RAIMGTYJ VRADE+4*, VRADQ!
RALOC OENO+2~, OENO+5*, OENO+6
RAMSG OENO+2~, OENO+11*, OENO+12
>> RANODE( NOTNEED+1
>> RANODE(0 NOTNEED+4, CKPRNTR+2, PRNTASGN+3, WRWAIT
RANOTY OENO+2~, OENO+3*, OENO+4*, OENO+12
>> RAO NOTNEED+4, PRNTASGN+3
RAOUT CKPRNTR+3, PRNTASGN+2*, PRNTASGN+4*, PRNTASGN+7*, WRPAIR*, VRADE+4*, VRADE+5, VRADE+14*, VRADQ!
RAPCE ASKPRI+7~, ASKPRI+12*, ASKPRI+13
>> RAPIECE( NOTNEED+7
>> RAWATERR WRWAITWRWAIT+1*
U NOTNEED+7, CKPRNTR+2, CKPRNTR+3, PRNTASGN+3, PRNTASGN+6, WRWAITVRADE+4
X LK~, ULK~, DEV~, DEV+4, DEV+5, OENO~, OENO+3, OENO+12
Y PROCTY~, PROCTY+2, VRADE+3, VRADE+4, VRADE+14, VRADE+15
>> ZTDESC PRELIM+4*
>> ZTRTN PRELIM+5*
>> ZTSAVE("RA*" PRELIM+4*
>> ZTSK PRELIM+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All