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

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call