VBECDCSP.m

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 ---VBECDCSP   1265     printed  Apr 09, 2024@21:45:51                                                                                                                                                                                                    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