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

Package: Radiology Nuclear Medicine

Routine: RAPERR1


Information

RAPERR1 ;HIRMFO/GJC,CAH-Prt Img Locs missing/invalid Stop codes ;10/30/96 09:20

Source Information

Source file <RAPERR1.m>

Entry Points

Name Comments DBIA/ICR reference
BSTP(X) ; Check for bad stop codes (DSS ID) per Imaging Location
; Make sure each imaging location points to an entry in the
; Hospital Location file #44 that is a 'COUNT' clinic, with
; no appointment patterns allowed, Stop Code on file 44 entry
; should match DSS ID on Imaging loc, division for imaging loc
; should match the Institution of the file 44 entry
CK700(X) ;Check for a 700-level stop code as a DSS ID
ISTOP ; Check the validity of the stop code on the Imaging Locations file.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Imaging Location: ",$$GET1^DIQ(44,+$P(^RA(79.1,RAILOC,0),"^"),.01)
  • Line Location: ISTOP+46
Function Call: WRITE
  • Prompt: !?3,$G(^TMP($J,"RAPERR",RAILOC,RACNT))
  • Line Location: ISTOP+49
Function Call: WRITE
  • Prompt: !!,"All Imaging Location crediting data is valid."
  • Line Location: ISTOP+56

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(40.7 - [#40.7] GETS^DIQ
^SC - [#44] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call