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

Package: Radiology Nuclear Medicine

Routine: RAORD1


Information

RAORD1 ;HISC/CAH,AISC/RMO - Request An Exam ; Nov 29, 2023@09:33:48

Source Information

Source file <RAORD1.m>

Entry Points

Name Comments DBIA/ICR reference
PAT
PL ;Ask for the patient location (REQ. LOCATION file: 75.1, field: #22)
ENADD ;OE/RR Entry Point for the ACTION Option
ADDORD
ADDORD1
Q ; Kill, unlock if locked, and quit
CREATE
CREATE1 ;ask for the 'Date Desired' req'd P75
BAQUES ;*Billing Awareness Project
; Ask Ordering ICD-9 Diagnosis and Related SC/EI/MST/HNC questions.
MODS ;RAPRI= Procedure IEN, RAIMAG=Imaging Type for the procedure.
ALLERGY ; If patient has had a previous contrast media allergic reaction
; check procedure RAPRI for specific contrast media associations
; (new with RA*5*45)
SAVE ; Save original value of RAMDV before it is altered in the ENADD sub-
; routine. This code will also reset RAMDV to the sign-on value.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT+0
Function Call: WRITE
  • Prompt: !,"Select Procedure",$S(RACNT:" (1-"_RACNT_") ",1:" "),"or enter '?' for help: "
  • Line Location: ADDORD1+0
Function Call: WRITE
  • Prompt: !!!,"Processing procedure: ",$S(+X&(+X'>RACNT):$P($G(RAPRC(X)),"^"),$E(X)'="`":X,1:"")
  • Line Location: ADDORD1+6
Function Call: WRITE
  • Prompt: !
  • Line Location: BAQUES+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: BAQUES+13
Function Call: WRITE
  • Prompt: !?3,$C(7),"Request not complete. Must Delete..."
  • Line Location: BAQUES+17
Function Call: WRITE
  • Prompt: "...deletion complete!"
  • Line Location: BAQUES+17
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: MODS+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^VA(200 - [#200] Classic Fileman Calls
^SC - [#44] Classic Fileman Calls
^RADPT - [#70] EXTERNAL^DILFD
^RAMIS(71.2 - [#71.2] Classic Fileman Calls
^RAO(75.1 - [#75.1] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call