- DGVTSFS ;7DELTA/KDC - VTS Stand alone Option routine ;07-MAR-2012
- ;;5.3;REGISTRATION;**853**;07-MAR-2012;Build 104
- Q
- EN ;Entry point for stand-alone RideShare sign-up option
- ;This routine provides the option to SET the VTS Patient
- ;Flag in File #2 (Patient File) which indicates that the
- ;patient is enrolled in RideShare
- ;
- ;
- ; SET (YES) - 1
- ; Not SET (NO) -0 or ""
- ;
- ;An HL7 ADT-A28 (ADD) message is built/sent
- ; Input -- None
- ; Output -- None
- ;
- ;
- ;
- ;
- N DFN
- ;
- ;Get Patient file (#2) IEN - DFN
- EN1 D GETPAT^DGRPTU(,,.DFN,) G ENQ:DFN<0
- L +^DPT(DFN):5 I '$T W !,"Patient record is currently locked, Try again later." G EN1
- ;
- E1 ; Retrieve patient's VTS flag information
- N DIC,DR,DA,%,DIE,DGVTRSF
- S DGVTRSF=$$GET1^DIQ(2,DFN_",",3000)
- W !,"The VTS Patient Flag is currently: ",DGVTRSF
- I DGVTRSF="YES" W !,"Patient is already a RideShare participant" L -^DPT(DFN) K DFN G EN1
- W !!,"Are you sure you want to enroll patient in RideShare",!,"and set the VTS Patient Flag"
- D YN^DICN I %Y["?" W !!,"Enter YES or NO.",! G E1
- I %'=1 L -^DPT(DFN) G ENQ
- S DIE=2,DA=DFN,DR="3000///1" D ^DIE
- L -^DPT(DFN)
- ;
- ; Build and send HL7 ADT-A28 ADD Message
- D A28^DGVTSA28(DFN)
- ;
- W !!,"Patient is now a RideShare participant and VTS Patient Flag is set"
- K DFN
- G EN1
- ;
- ENQ ;
- K DIQ1
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGVTSFS 1347 printed Feb 19, 2025@00:25:16 Page 2
- DGVTSFS ;7DELTA/KDC - VTS Stand alone Option routine ;07-MAR-2012
- +1 ;;5.3;REGISTRATION;**853**;07-MAR-2012;Build 104
- +2 QUIT
- EN ;Entry point for stand-alone RideShare sign-up option
- +1 ;This routine provides the option to SET the VTS Patient
- +2 ;Flag in File #2 (Patient File) which indicates that the
- +3 ;patient is enrolled in RideShare
- +4 ;
- +5 ;
- +6 ; SET (YES) - 1
- +7 ; Not SET (NO) -0 or ""
- +8 ;
- +9 ;An HL7 ADT-A28 (ADD) message is built/sent
- +10 ; Input -- None
- +11 ; Output -- None
- +12 ;
- +13 ;
- +14 ;
- +15 ;
- +16 NEW DFN
- +17 ;
- +18 ;Get Patient file (#2) IEN - DFN
- EN1 DO GETPAT^DGRPTU(,,.DFN,)
- if DFN<0
- GOTO ENQ
- +1 LOCK +^DPT(DFN):5
- IF '$TEST
- WRITE !,"Patient record is currently locked, Try again later."
- GOTO EN1
- +2 ;
- E1 ; Retrieve patient's VTS flag information
- +1 NEW DIC,DR,DA,%,DIE,DGVTRSF
- +2 SET DGVTRSF=$$GET1^DIQ(2,DFN_",",3000)
- +3 WRITE !,"The VTS Patient Flag is currently: ",DGVTRSF
- +4 IF DGVTRSF="YES"
- WRITE !,"Patient is already a RideShare participant"
- LOCK -^DPT(DFN)
- KILL DFN
- GOTO EN1
- +5 WRITE !!,"Are you sure you want to enroll patient in RideShare",!,"and set the VTS Patient Flag"
- +6 DO YN^DICN
- IF %Y["?"
- WRITE !!,"Enter YES or NO.",!
- GOTO E1
- +7 IF %'=1
- LOCK -^DPT(DFN)
- GOTO ENQ
- +8 SET DIE=2
- SET DA=DFN
- SET DR="3000///1"
- DO ^DIE
- +9 LOCK -^DPT(DFN)
- +10 ;
- +11 ; Build and send HL7 ADT-A28 ADD Message
- +12 DO A28^DGVTSA28(DFN)
- +13 ;
- +14 WRITE !!,"Patient is now a RideShare participant and VTS Patient Flag is set"
- +15 KILL DFN
- +16 GOTO EN1
- +17 ;
- ENQ ;
- +1 KILL DIQ1
- +2 QUIT
