DGVTSFS.m

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 ---DGVTSFS   1347     printed  Apr 09, 2024@21:59:18                                                                                                                                                                                                     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