VBECDCSP ;hoifo/gjc-site parameter enter/edit (#6000);Nov 21, 2002
;;2.0;VBEC;;Jun 05, 2015;Build 4
;
;Medical Device #:
;Note: The food and Drug Administration classifies this software as a
;medical device. As such, it may not be changed in any way.
;Modifications to this software may result in an adulterated medical
;device under 21CFR820, the use of which is considered to be a
;violation of US Federal Statutes. Acquiring and implementing this
;software through the Freedom of Information Act requires the
;implementer to assume total responsibility for the software, and
;become a registered manufacturer of a medical device, subject to FDA
;regulations.
;
;Call to ^DIC is supported by IA: 10006
;Call to ^DIE is supported by IA: 10018
;Call to GET1^DIQ is supported by IA: 2056
;Call to KSP^XUPARAM is supported by IA: 2541
;
EN ; entry point for site parameter enter/edit
S (DIC,DIE)="^VBEC(6000,",DIC("A")="Select Facility: ",DIC(0)="QEALMNZ"
S VBECDFLT=$$KSP^XUPARAM("INST")
S:VBECDFLT DIC("B")=$$GET1^DIQ(4,VBECDFLT,.01)
D ^DIC I Y=-1 D XIT Q
S DA=+Y,DIE("NO^")="BACK",DR=".06R;.07R//VBECS DATA CONVERSION" D ^DIE
XIT ; kill and quit
K %,D0,DA,DDH,DI,DIC,DIE,DQ,DR,DTOUT,DUOUT,DZ,I,VBECDFLT,X,Y
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVBECDCSP 1265 printed Dec 13, 2024@02:44:07 Page 2
VBECDCSP ;hoifo/gjc-site parameter enter/edit (#6000);Nov 21, 2002
+1 ;;2.0;VBEC;;Jun 05, 2015;Build 4
+2 ;
+3 ;Medical Device #:
+4 ;Note: The food and Drug Administration classifies this software as a
+5 ;medical device. As such, it may not be changed in any way.
+6 ;Modifications to this software may result in an adulterated medical
+7 ;device under 21CFR820, the use of which is considered to be a
+8 ;violation of US Federal Statutes. Acquiring and implementing this
+9 ;software through the Freedom of Information Act requires the
+10 ;implementer to assume total responsibility for the software, and
+11 ;become a registered manufacturer of a medical device, subject to FDA
+12 ;regulations.
+13 ;
+14 ;Call to ^DIC is supported by IA: 10006
+15 ;Call to ^DIE is supported by IA: 10018
+16 ;Call to GET1^DIQ is supported by IA: 2056
+17 ;Call to KSP^XUPARAM is supported by IA: 2541
+18 ;
EN ; entry point for site parameter enter/edit
+1 SET (DIC,DIE)="^VBEC(6000,"
SET DIC("A")="Select Facility: "
SET DIC(0)="QEALMNZ"
+2 SET VBECDFLT=$$KSP^XUPARAM("INST")
+3 if VBECDFLT
SET DIC("B")=$$GET1^DIQ(4,VBECDFLT,.01)
+4 DO ^DIC
IF Y=-1
DO XIT
QUIT
+5 SET DA=+Y
SET DIE("NO^")="BACK"
SET DR=".06R;.07R//VBECS DATA CONVERSION"
DO ^DIE
XIT ; kill and quit
+1 KILL %,D0,DA,DDH,DI,DIC,DIE,DQ,DR,DTOUT,DUOUT,DZ,I,VBECDFLT,X,Y
+2 QUIT
