Routine: RAPSET1

Information

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

Source file <RAPSET1.m>

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

Package	Total	Caller Graph
Radiology Nuclear Medicine	57	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 RASYNCH RATRAN RAUTL1 RAWFR1 RAWKL
Kernel	1	^DIC(19

Name	Comments	DBIA/ICR reference
DIS
Q	; Kill and quit
SET
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)
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

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

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

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

Name	Line Occurrences
@(	SETVARS+6

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

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!