- 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 Feb 19, 2025@00:10:38 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