Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: RASYS1

Package: Radiology Nuclear Medicine

Routine: RASYS1


Information

RASYS1 ;HISC/CAH - Utility to update I-Loc Type to Clinic ;10/30/96 10:00

Source Information

Source file <RASYS1.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Radiology Nuclear Medicine 1 $$EOS^RAUTL5  
Scheduling 1 ($$LOC,$$RAD)^SCDXUAPI  
VA FileMan 1 FILE^DIE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Radiology Nuclear Medicine 1 RASYS  

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

External References

Name Field # of Occurrence
FILE^DIE REPOINT+10
$$EOS^RAUTL5 ERR44+2, ERR44+6, ERR44+10, ERRDSS+2, ERRDSS+6, ERRDIV+2, ERRDIV+7, ERRDIV+11, ERRMSG+1, ERRMSG+5
REPOINT+11, REPOINT+15, OK+1
$$LOC^SCDXUAPI EN1+16
$$RAD^SCDXUAPI EN1+13

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
Routine Call
  • DIE
  • Line Location:
    • REPOINT+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(40.7 - [#40.7] EN1+9
^RA(79.1 - [#79.1] EN1+5, EN1+10
^SC - [#44] EN1+6, EN1+7, REPOINT+8

Label References

Name Line Occurrences
ERR44 EN1+6
ERRDIV EN1+10
ERRDSS EN1+8
ERRMSG EN1+14, EN1+17
OK EN1+18
REPOINT EN1+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
IOF ERR44+2, ERR44+6, ERR44+10, ERRDSS+2, ERRDSS+6, ERRDIV+2, ERRDIV+7, ERRDIV+11, ERRMSG+1, ERRMSG+5
REPOINT+11, REPOINT+15, OK+1
IOSL ERR44+2, ERR44+6, ERR44+10, ERRDSS+2, ERRDSS+6, ERRDIV+2, ERRDIV+7, ERRDIV+11, ERRMSG+1, ERRMSG+5
REPOINT+11, REPOINT+15, OK+1
RA44 EN1+3~, EN1+6*, EN1+7, EN1+13, EN1+15, EN1+16, ERR44+3, ERRDSS+3, ERRDIV+3, REPOINT+8*
RA44NEW EN1+3~, EN1+13*, EN1+14, EN1+15, REPOINT+8, REPOINT+9
RA44NM EN1+3~, EN1+7*, EN1+16, ERRDSS+3, ERRDIV+3, ERRMSG+3, REPOINT+12, REPOINT+14, OK+2
RA44NM2 EN1+3~, EN1+4*, EN1+16, ERRMSG+3, REPOINT+8*, REPOINT+16, OK+2
RA791 EN1~, EN1+5, EN1+10, REPOINT+9
RA791(0 EN1+5*, EN1+6, EN1+8
RADIV EN1+3~, EN1+10*, EN1+16
RADSS EN1+3~, EN1+8*, EN1+9
RADSSNM EN1+3~, EN1+9*, EN1+16
RAERR REPOINT+7~
RAERRCNT EN1+3~, EN1+4*, EN1+11, ERR44+1*, ERRDSS+1*, ERRDIV+1*
RAFDA REPOINT+7~
RAFDA( REPOINT+9*
RATRY EN1+3~, EN1+16*, EN1+17, EN1+18
RAX ERRMSG~, ERRMSG+7
>> RAXIT EN1+6, EN1+8, EN1+10, ERR44+2*, ERR44+6*, ERR44+10*, ERRDSS+2*, ERRDSS+6*, ERRDIV+2*, ERRDIV+7*
ERRDIV+11*, ERRMSG+1*, ERRMSG+5*, REPOINT+11*, REPOINT+15*, OK+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All