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

Package: Radiology Nuclear Medicine

Routine: RASYS1


Information

RASYS1 ;HISC/CAH - Utility to update I-Loc Type to Clinic ; Aug 25, 2022@07:16:49

Source Information

Source file <RASYS1.m>

Entry Points

Name Comments DBIA/ICR reference
EN1(RA791) ;For each imaging loc, get file 44 pointer, DSS ID, Div
ERR44 ;bad file 44 pointer
ERRDSS ;bad file 40.7 pointer (DSS ID/Stop Code)
ERRDIV ;bad or non-existent Division on active imaging loc
ERRMSG(RAX) ; Explain why the $$RAD call failed.
REPOINT ;current img loc points to a file 44 entry with appt patterns
OK ;this img loc was processed ok
INACTIV8 ;RA184/KLM Inactivate an imaging location and the associated OOC clinic
INACT791 ;inactivate the imaging location
INACT44 ;inactivate the OOS hospital location

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ERR44+2
Function Call: WRITE
  • Prompt: !,"Imaging Location file #79.1 internal entry #"_RA44
  • Line Location: ERR44+3
Function Call: WRITE
  • Prompt: !,"is a broken pointer to Hospital Location file #44."
  • Line Location: ERR44+4
Function Call: WRITE
  • Prompt: !,"IRM must resolve this problem, then the Rad/Nuc Med ADPAC"
  • Line Location: ERR44+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ERR44+6
Function Call: WRITE
  • Prompt: !,"should use the Location Parameter Set-up [RA SYSLOC] option"
  • Line Location: ERR44+7
Function Call: WRITE
  • Prompt: !,"to edit this Imaging Location, and the Division Parameter"
  • Line Location: ERR44+8
Function Call: WRITE
  • Prompt: !,"Set-up [RA SYSDIV] option to assign it to a division.",!," "
  • Line Location: ERR44+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ERR44+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ERRDSS+2
Function Call: WRITE
  • Prompt: !,"Imaging Location file #79.1 entry "_$S($L(RA44NM):RA44NM,1:RA44)_" has a missing"
  • Line Location: ERRDSS+3
Function Call: WRITE
  • Prompt: !,"or invalid DSS ID. The Radiology/Nuclear Medicine ADPAC should"
  • Line Location: ERRDSS+4
Function Call: WRITE
  • Prompt: !,"use the Location Parameter Set-up [RA SYSLOC] option to enter"
  • Line Location: ERRDSS+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ERRDSS+6
Function Call: WRITE
  • Prompt: !,"a valid imaging DSS Code for this imaging location.",!," "
  • Line Location: ERRDSS+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ERRDIV+2
Function Call: WRITE
  • Prompt: !,"Imaging Location file #79.1 entry "_$S($L(RA44NM):RA44NM,1:RA44)_" is not assigned"
  • Line Location: ERRDIV+3
Function Call: WRITE
  • Prompt: !,"to a Rad/Nuc Med Division. If Imaging exams are to be registered"
  • Line Location: ERRDIV+4
Function Call: WRITE
  • Prompt: !,"in this imaging location, or if there are incomplete exams"
  • Line Location: ERRDIV+5
Function Call: WRITE
  • Prompt: !,"already registered to this location, the Radiology/Nuclear"
  • Line Location: ERRDIV+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ERRDIV+7
Function Call: WRITE
  • Prompt: !,"Med ADPAC should use the Division Parameter Set-up [RA SYSDIV]"
  • Line Location: ERRDIV+8
Function Call: WRITE
  • Prompt: !,"option to assign this imaging location to the appropriate"
  • Line Location: ERRDIV+9
Function Call: WRITE
  • Prompt: !,"Rad/Nuc Med Division.",!," "
  • Line Location: ERRDIV+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ERRDIV+11
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ERRMSG+1
Function Call: WRITE
  • Prompt: !,"Scheduling routine could not reset Hospital Location"
  • Line Location: ERRMSG+2
Function Call: WRITE
  • Prompt: !,"file #44 params for Imaging Location "_$S($L(RA44NM2):RA44NM2,1:RA44NM)
  • Line Location: ERRMSG+3
Function Call: WRITE
  • Prompt: !,"to agree with params on the Imaging Location file #79.1."
  • Line Location: ERRMSG+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ERRMSG+5
Function Call: WRITE
  • Prompt: !,"IRM should investigate the cause of this Scheduling error message:"
  • Line Location: ERRMSG+6
Function Call: WRITE
  • Prompt: !," * "_$P(RAX,"^",3)_" * ",!," "
  • Line Location: ERRMSG+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: REPOINT+11
Function Call: WRITE
  • Prompt: !,"Imaging Location "_RA44NM_" has appointment patterns, and"
  • Line Location: REPOINT+12
Function Call: WRITE
  • Prompt: !,"cannot be 'pointed to' from a file 79.1 Imaging Location."
  • Line Location: REPOINT+13
Function Call: WRITE
  • Prompt: !,"Imaging Location "_RA44NM_" has been 're-pointed' to"
  • Line Location: REPOINT+14
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: REPOINT+15
Function Call: WRITE
  • Prompt: !,"Hospital Location "_RA44NM2_".",!," "
  • Line Location: REPOINT+16
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: OK+1
Function Call: WRITE
  • Prompt: !,"Imaging Location "_$S($L(RA44NM2):RA44NM2,1:RA44NM)_" is OK.",!," "
  • Line Location: OK+2
Function Call: WRITE
  • Prompt: !!?5,"This option will allow you to inactivate an Imaging Location"
  • Line Location: INACTIV8+3
Function Call: WRITE
  • Prompt: !?5,"and the associated Occasion of Service (OOS) Hospital Location",!
  • Line Location: INACTIV8+4
Function Call: WRITE
  • Prompt: !!,$J(RANAME_" STATUS: ",32)_$S(RAILS="I":"INACTIVE",1:"ACTIVE")
  • Line Location: INACTIV8+11
Function Call: WRITE
  • Prompt: !,$J("OOS CLINIC (IEN "_RA44_") STATUS: ",32)_$S(RA44S="I":"INACTIVE",1:"ACTIVE"),!
  • Line Location: INACTIV8+12
Function Call: WRITE
  • Prompt: !!?5,"No action needed..."
  • Line Location: INACTIV8+13
Function Call: WRITE
  • Prompt: !
  • Line Location: INACTIV8+13
Function Call: WRITE
  • Prompt: !!,"No action taken..."
  • Line Location: INACTIV8+17
Function Call: WRITE
  • Prompt: !
  • Line Location: INACTIV8+17
Function Call: WRITE
  • Prompt: !!,"No action taken..."
  • Line Location: INACTIV8+22
Function Call: WRITE
  • Prompt: !
  • Line Location: INACTIV8+22
Function Call: WRITE
  • Prompt: !!,"There was a problem inactivating the location",!,"Contact OI&T if the problem persists"
  • Line Location: INACT791+4
Function Call: WRITE
  • Prompt: !!,"...Imaging Location inactivated!"
  • Line Location: INACT791+5
Function Call: WRITE
  • Prompt: !,"OOS Clinic not updated. Error: "_$P(RASUC,U,3)
  • Line Location: INACT44+3
Function Call: WRITE
  • Prompt: !!,"...OOS Clinic inactivated!"
  • Line Location: INACT44+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SC - [#44] GET1^DIQ
^RA(79.1 - [#79.1] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call