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

Package: Radiology Nuclear Medicine

Routine: RAUTL15


Information

RAUTL15 ;HISC/GJC-Skeleton rpt del if no data entered. ;13 Apr 2018 3:37 PM

Source Information

Source file <RAUTL15.m>

Entry Points

Name Comments DBIA/ICR reference
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!
KMV ; kill miscellaneous variables
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
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
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
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)

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call