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: RAUTL15

Package: Radiology Nuclear Medicine

Routine: RAUTL15


Information

RAUTL15 ;HISC/GJC-Skeleton rpt del if no data entered. ;11/5/99 12:33

Source Information

Source file <RAUTL15.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Radiology Nuclear Medicine 6 $$NAMCODE^RACPTMSC  ($$SSANVAL,$$USESSAN)^RAHLRU1  $$ORVR^RAORDU  DEL17^RARTE2  UPDTPNT^RAUTL9  ENKILL^RAXREF  
Kernel 2 ($$LOW,$$RJ,$$UP)^XLFSTR  MES^XPDUTL  
VA Fileman 2 ^DIK  $$GET1^DIQ  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Radiology Nuclear Medicine 4 RAORD2  RAPROD  RARTE4  RASTEXT  

Entry Points

Name Comments DBIA/ICR reference
INV(X,X1) ; invalid action message called from the schedule/cancel or hold
; request options.
; X -> point of orgin (option) X1 -> procedure name
; Called from: CZECH subroutine
KMV ; kill miscellaneous variables
VALORD ; validate order data, i.e, has OE/RR order # and the site is running
; a version of OE/RR > 2.5 Called from: 2^RAORD, 3^RAORD & 4^RAORD
EN3(IEN74) ;Delete the skeleton report and pointer from Rad Pt file to
; report if user has not entered any report data (i.e. user ^'d out
; of report entry/edit after the system created a skeleton record).
; If the report is deleted, a bulletin will not be generated!
CZECH(Y) ; check if an order can be cancelled, held, or scheduled.
; Y -> ien of the Rad/Nuc Med Orders file.
; Y1 -> if OE/RR > 2.5 & no order number: 1, else 0
; Called from: VALORD subroutine
DPROC(RADFN,RADTI,RACNI,RAOIFN) ; Determine if the ordered procedure is
; different from the registered procedure.
; Input Variables: RADFN-Patient DFN
; RADTI-inverse DT of exam (if exists)
; RACNI-IEN on the case node (if exists)
; RAOIFN-IEN of the order
; Output: null-procedures don't differ -OR- no order/exam
; not null-ordered proc_"^"_registered proc data
; registered procedure data includes imaging type, procedure
; type and CPT codes (if any)

External References

Name Field # of Occurrence
^DIK EN3+34
$$GET1^DIQ DPROC+29, DPROC+30, DPROC+31
$$NAMCODE^RACPTMSC DPROC+28
$$SSANVAL^RAHLRU1 DPROC+25
$$USESSAN^RAHLRU1 DPROC+34, DPROC+35
$$ORVR^RAORDU CZECH+6
DEL17^RARTE2 EN3+17
UPDTPNT^RAUTL9 EN3+32
ENKILL^RAXREF EN3+25
$$LOW^XLFSTR DPROC+32
$$RJ^XLFSTR DPROC+24
$$UP^XLFSTR INV+4
MES^XPDUTL EN3+37

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,"Sorry, can't "_$S(X="SCH":"schedule",X="CAN":"cancel",1:"hold")
  • Line Location: INV+5
Function Call: WRITE
  • Prompt: " this request until OE/RR assigns an order number"
  • Line Location: INV+6
Function Call: WRITE
  • Prompt: !?3,"for procedure: ",X1,!?3,"Please try later!"
  • Line Location: INV+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RAMIS(71 - [#71] GET1^DIQ
^RARPT - [#74] Classic Fileman Calls
^RA(79.2 - [#79.2] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RA(72 - [#72] DPROC+36
^RADPT - [#70] EN3+23, EN3+28*, DPROC+19
^RAMIS(71 - [#71] CZECH+8, DPROC+27
^RAO(75.1 - [#75.1] CZECH+5, DPROC+20
^RARPT - [#74] EN3+5, EN3+6, EN3+7, EN3+8, EN3+9

Label References

Name Line Occurrences
$$CZECH VALORD+4
INV CZECH+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN3+12~
%DT KMV+1!
%I KMV+1!
%RET KMV+1!
%T KMV+1!
D EN3+12~, KMV+2!
D0 EN3+12~, KMV+2!
D1 KMV+2!
D2 KMV+2!
D3 KMV+2!
DA EN3+12~, EN3+24*, EN3+25, EN3+28!, EN3+34*, KMV+2!
DA(1 EN3+24*
DA(2 EN3+24*
DDER KMV+2!
DDH KMV+2!
DG KMV+2!
DI KMV+2!
DIC EN3+12~
DIE EN3+12~, KMV+2!
DIFLD KMV+2!
DIG KMV+2!
DIH KMV+2!
DIK EN3+12~, EN3+34*
DISYS KMV+2!
DIU KMV+2!
DIW KMV+2!
DIWF KMV+2!
DIWL KMV+2!
DIWR KMV+2!
DIWT KMV+2!
DK KMV+2!
DL KMV+2!
DM KMV+2!
DN KMV+2!
DQ EN3+12~
DR EN3+12~, KMV+2!
DT DPROC+28
G1 VALORD+2~*, VALORD+3*, VALORD+4
G2 VALORD+2~, VALORD+4*
IEN74 EN3~, EN3+5, EN3+6, EN3+7, EN3+8, EN3+9, EN3+17, EN3+25, EN3+32, EN3+34
POP KMV+3!
RA EN3+4~
RA("I" EN3+7*, EN3+11
RA("P" EN3+8*, EN3+11
RA("R" EN3+9*, EN3+11
RA(0 EN3+5*, EN3+10, EN3+11, EN3+21, EN3+22, EN3+23
RA(5 EN3+10*, EN3+11
RA7003 DPROC+18~, DPROC+19*, DPROC+21, DPROC+22, DPROC+24, DPROC+27, DPROC+29, DPROC+31, DPROC+36
RA71 DPROC+23~, DPROC+27*, DPROC+28, DPROC+30
RA751 VALORD+2~, DPROC+18~, DPROC+20*, DPROC+21, DPROC+22
RACNDSP DPROC+25~, DPROC+26*, DPROC+34
RACNI EN3+23*, EN3+24, EN3+28, DPROC~, DPROC+19, DPROC+25
RACPT DPROC+23~, DPROC+28*, DPROC+34, DPROC+35
RACSE DPROC+23~, DPROC+24*, DPROC+26, DPROC+35
RADFN EN3+21*, EN3+23, EN3+24, EN3+28, DPROC~, DPROC+19, DPROC+25
RADTI EN3+22*, EN3+23, EN3+24, EN3+28, DPROC~, DPROC+19, DPROC+25
RAITY DPROC+23~, DPROC+30*, DPROC+34, DPROC+35
RAOIFN DPROC~, DPROC+20
>> RAOPT("ORDERPRINTPAT" DPROC+22
>> RAOPT("ORDERPRINTS" DPROC+22
>> RAOPTN CZECH+9
RAORDER CZECH+4~
RAORDER(0 CZECH+5*, CZECH+6, CZECH+8
>> RAORDS( VALORD+3, VALORD+4!
RAPRC DPROC+23~, DPROC+29*, DPROC+34, DPROC+35
RAPRG74 EN3+4~
RASSAN DPROC+25~*, DPROC+26
RATXT EN3+4~, EN3+37
RATXT(1 EN3+35*
RATXT(2 EN3+36*
RATXT(3 EN3+37*
RATY DPROC+23~, DPROC+31*, DPROC+32*, DPROC+34, DPROC+35
U CZECH+6, CZECH+8
X EN3+12~, EN3+28!, INV~, INV+4*, INV+5, DPROC+23~, DPROC+34*, DPROC+35*, DPROC+37*, DPROC+38
X1 INV~, INV+4*, INV+7
Y EN3+12~, CZECH~, CZECH+5, DPROC+23~, DPROC+34*, DPROC+35*, DPROC+37
Y(0 DPROC+34*, DPROC+35*, DPROC+36*, DPROC+37
Y1 CZECH+4~*, CZECH+8*, CZECH+11
Y2 CZECH+7~, CZECH+8*, CZECH+9
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