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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: RAPSET1

Package: Radiology Nuclear Medicine

Routine: RAPSET1


Information

RAPSET1 ;HISC/FPT,GJC AISC/MJK-Set Sign-on parameters ;5/22/97 14:22

Source Information

Source file <RAPSET1.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Radiology Nuclear Medicine 2 ^RAPSET  SET^RAPSET1  
VA FileMan 1 ($$GET1,GETS)^DIQ  

Caller Graph

Caller Graph Total: 57

Package Total Caller Graph
Radiology Nuclear Medicine 56 RA CLERKMENU  RA FILERM  RA LOC SWITCH  RA OVERALL  RA RADIOLOGIST  RA SECRETARY  RA SUPERVISOR  RA TECHMENU  
RA TRANSCRIPTIONIST  RABTCH  RABTCH1  RACDR  RACMP  RACNLU  RACPT1  RADLQ3  
RADLY  RADOSTIK  RAEDCN  RAEDPT  RAESO  RAESR  RAFLH1  RAFLM  
RAHLRS  RAHLRS1  RAJAC  RALIST  RALWKL  RAMAIN  RAMIS  RANMUSE1  
RAORD4  RAORD7  RAOUT  RAPAST  RAPRC  RAPRINT  RAPSET  RAPSET1  
RAREG  RAREG3  RART  RART1  RARTE  RARTE1  RARTE5  RARTRPV  
RARTUVR  RARTVER  RASTAT  RASTEXT  RATRAN  RAUTL1  RAWFR1  RAWKL  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
SET
SW(RAXAMI,RALOGI) ; During 'Case No. Exam Edit' the user picked an exam
; that has a different imaging type than the imaging type of our
; sign-on location. This subroutine askes the user if they want to
; switch locations. RAMASK set in CHECK^RACNLU (saves off 'Y'
; 0 node of exam)
; Input Variables: RAXAMI-> imaging type of the exam
; RALOGI-> sign-on location imaging type
Q ; Kill and quit
KILL
SETVARS(X) ; Set variables integral to package operation.
; This code is used in lieu of the Entry Actions for many of the
; Radiology/Nuclear Medicine options.
; Problems Resolved: '^' jump, independently invoking options
; 'X=0' ---> Silent, creates RACCESS array.
; 'X=1' ---> Interactive, calls ^RAPSET (prompts for sign-on location)
DIS

External References

Name Field # of Occurrence
$$GET1^DIQ SW+21
GETS^DIQ DIS+12
^RAPSET SET
SET^RAPSET1 SW+20

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,LINE,!,"Welcome, you are signed on with the following parameters:"
  • Line Location: DIS+0
Function Call: WRITE
  • Prompt: !!?35,"Printer Defaults",!?1,"Version : ",$G(^DD(70,0,"VR")),?35,"----------------",!?1,"Division : ",$E($S($D(^DIC(4,+RAMDIV,0)):$P(^(0),"^"),1:"Unknown"),1,20)
  • Line Location: DIS+1
Function Call: WRITE
  • Prompt: !?1,"User : ",$S($D(^VA(200,+DUZ,0)):$P(^(0),"^"),1:"Unknown"),?49,$S($P(RAMLC,"^",4):$P(RAMLC,"^",4)_" labels/visit",1:"")
  • Line Location: DIS+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DIS+6
Function Call: WRITE
  • Prompt: ?1,"** INACTIVE LOCATION **"
  • Line Location: DIS+6
Function Call: WRITE
  • Prompt: $E(RADSE,1,30)
  • Line Location: DIS+14
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: DIS+16
Function Call: WRITE
  • Prompt: !!?7,"Current Imaging Type: ",RALOGI,!?5,"Procedure Imaging Type: ",RAXAMI
  • Line Location: SW+10
Function Call: WRITE
  • Prompt: !!,"You must switch to a location of ",RAXAMI," imaging type."
  • Line Location: SW+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^%ZIS(1 - [#3.5] GETS^DIQ
^RA(79.1 - [#79.1] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(1 - [#3.5] DIS+2, DIS+4, DIS+7
^DD(70 DIS+1
^DIC(4 - [#4] DIS+1
^DISV( SW+13*, SW+14, SW+16*, SW+19
^RA(79.1 - [#79.1] DIS+3, DIS+6, SW+16, SW+19
^RA(79.2 - [#79.2] DIS+4, DIS+8
^RADPT - [#70] SW+12
^SC - [#44] DIS+3
^VA(200 - [#200] DIS+5

Label References

Name Line Occurrences
@( SETVARS+6

Naked Globals

Name Field # of Occurrence
^(0 DIS+1, DIS+3, DIS+4, DIS+5
^(1 DIS+2, DIS+4, DIS+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% SETVARS+6!
%W SETVARS+6!
%Y SETVARS+6!
%Y1 SETVARS+6!
%ZIS Q+2!
C SETVARS+6!
DEV Q+2!
DEVI Q+2!
DIC Q+2!
DISYS Q+3!
DIV Q+2!
DUOUT Q+2!
DUZ DIS+5, SW+13, SW+14, SW+15, SW+16, SW+19
I Q+2!, SW+15~*, SW+16
LINE DIS, DIS+16, Q+2!
LOC Q+2!
POP Q+3!, SETVARS+6!
RA7002 SW+12~*, SW+13, SW+16, SW+19
RACCESS KILL!
RACCESS( SW+13, SW+14, SW+15
RADEV Q+2!
RADIV Q+2!
RADOSE DIS+9~
RADOSE( DIS+13
RADSE DIS+9~, DIS+13*, DIS+14
RAFLH DIS+2, Q+2!
RAI Q+2!
RAIMGTY SET, KILL!
RAJAC DIS+4, Q+3!
RALOC DIS+10, DIS+11, DIS+12, DIS+13, Q+3!
RALOGI SW~, SW+9*, SW+10
RALONE SET!
>> RAMASK SW+12
RAMDIV DIS+1, SET, KILL!
RAMDV DIS+3, SET, KILL!
RAMLC DIS+2, DIS+3, DIS+4, DIS+5, DIS+6, DIS+7, DIS+8, SET, KILL!, SW+20!
, SW+21
RARPT DIS+7, Q+3!
RASWLOC Q+1, SW+20*!
RAXAMI SW~, SW+9*, SW+10, SW+11, SW+21
X Q+3!, SETVARS~, SETVARS+6
XQUIT Q+1!
Y Q+3!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All