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

Package: Radiology Nuclear Medicine

Routine: RANPRO


Information

RANPRO ;BPFO/CLT - NEW RADIOLOGY PROCEDURE ; 27 Oct 2016 4:57 PM

Source Information

Source file <RANPRO.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Main entry point - driver for PROCEDURE prompt loop
EN2 ; Loop entry point for PROCEDURE prompt
TEMP ;ENTER THE TEMPORARY NEW PROCEDURE INTO 71.11
MV ;MOVE TEMPORARY ENTRY TO PERMANENT ENTRY
; changes for RA*5.0*138
ORDITM ;ORDERABLE ITEM ENTRY
TD ;DELETE THE TEMPORARY FILE ENTRY
END ;ROUTINE END
OLD ;EXISTING PROCEDUREX ^%
VRDIO(RADA) ; Validate the 'Usual Dose' field within the 'Default Radiopha-
; rmaceuticals' multiple. 'Usual Dose' must fall within the 'Low Adult
; Dose' & 'High Adult Dose' range. This subroutine will display the
; Radiopharmaceutical in question along with the values in question if
; inconsistencies are found.
DELRADE(RADA) ; Delete the Default Radiopharmaceuticals multiple
SEARCH(RAINPUT,RAOUTPUT) ; Search file 71 for RAINPUT
; INPUT : RAINPUT = Input value to use in search of file 71
; OUTPUT : RAOUTPUT = Y array, from ^DIC, of entry selected from file 71

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Not able to create entry in temporary area"
  • Line Location: TEMP+5
Function Call: WRITE
  • Prompt: !,"Nothing Saved"
  • Line Location: TEMP+10
Function Call: WRITE
  • Prompt: !,"Nothing Saved"
  • Line Location: TEMP+16
Function Call: WRITE
  • Prompt: !!,"This procedure was not created as a DETAILED exam and will not be matched",!,"to the MASTER RADIOLOGY PROCEDURE FILE."
  • Line Location: TEMP+20
Function Call: WRITE
  • Prompt: !!,"No CPT Code has been entered. This new procedure will be deleted.",*7
  • Line Location: TEMP+23
Function Call: WRITE
  • Prompt: !?5,$C(7),"Procedure Type: ",$S($P(RAPROC(0),"^",6)="S":"SERIES",1:"DETAILED")," ...no CPT code entered..."
  • Line Location: TEMP+28
Function Call: WRITE
  • Prompt: !?5,"...will delete the record at this time.",!
  • Line Location: TEMP+29
Function Call: WRITE
  • Prompt: !,"Not Able to Create File 71 entry"
  • Line Location: MV+11
Function Call: WRITE
  • Prompt: !!,"Temporary new procedure entry has been moved to the permanent ",!,"RAD/NUC MED PROCEDURE file."
  • Line Location: MV+98
Function Call: WRITE
  • Prompt: !!?5,"Inactivating this parent procedure - no descendents.",!,$C(7)
  • Line Location: MV+113
Function Call: WRITE
  • Prompt: !!?5,"...CPT code deleted because "_$S($P(RAPROC(0),U,6)="B":"Broad",1:"Parent")_" procedures",!?5,"should not have CPT codes.",!,$C(7)
  • Line Location: MV+120
Function Call: WRITE
  • Prompt: !,"Updating ORDERABLE ITEMS file"
  • Line Location: ORDITM+1
Function Call: WRITE
  • Prompt: !,"Deleting temporary entry in file 71.11"
  • Line Location: TD+1
Function Call: WRITE
  • Prompt: !!?3,"Deleting default radiopharmaceuticals for this procedure...",!
  • Line Location: DELRADE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SEARCH+9
Function Call: WRITE
  • Prompt: !?5,"This record is currently being edited by another user."
  • Line Location: SEARCH+21
Function Call: WRITE
  • Prompt: !?5,"Try again later!",$C(7)
  • Line Location: SEARCH+22

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RAMIS(71 - [#71] Classic Fileman Calls
^RAMRPF(71.11 - [#71.11] Classic Fileman Calls,  GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call