Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: VBECDCSP

VBECDCSP.m

Go to the documentation of this file.
  1. VBECDCSP ;hoifo/gjc-site parameter enter/edit (#6000);Nov 21, 2002
  1. ;;2.0;VBEC;;Jun 05, 2015;Build 4
  1. ;
  1. ;Medical Device #:
  1. ;Note: The food and Drug Administration classifies this software as a
  1. ;medical device. As such, it may not be changed in any way.
  1. ;Modifications to this software may result in an adulterated medical
  1. ;device under 21CFR820, the use of which is considered to be a
  1. ;violation of US Federal Statutes. Acquiring and implementing this
  1. ;software through the Freedom of Information Act requires the
  1. ;implementer to assume total responsibility for the software, and
  1. ;become a registered manufacturer of a medical device, subject to FDA
  1. ;regulations.
  1. ;
  1. ;Call to ^DIC is supported by IA: 10006
  1. ;Call to ^DIE is supported by IA: 10018
  1. ;Call to GET1^DIQ is supported by IA: 2056
  1. ;Call to KSP^XUPARAM is supported by IA: 2541
  1. ;
  1. EN ; entry point for site parameter enter/edit
  1. S (DIC,DIE)="^VBEC(6000,",DIC("A")="Select Facility: ",DIC(0)="QEALMNZ"
  1. S VBECDFLT=$$KSP^XUPARAM("INST")
  1. S:VBECDFLT DIC("B")=$$GET1^DIQ(4,VBECDFLT,.01)
  1. D ^DIC I Y=-1 D XIT Q
  1. S DA=+Y,DIE("NO^")="BACK",DR=".06R;.07R//VBECS DATA CONVERSION" D ^DIE
  1. XIT ; kill and quit
  1. K %,D0,DA,DDH,DI,DIC,DIE,DQ,DR,DTOUT,DUOUT,DZ,I,VBECDFLT,X,Y
  1. Q