BEXSITE ;IHS/CMI/DAY - BEX - Division and Site Selection ; 05 Oct 2015 11:42 AM
;;1.0;BEX TELEPHONE REFILL SYSTEM;*6*;APR 20, 2015;Build 7
;
Q
;
;Site Notes
;
;PSOSITE is set to the IEN in the OUTPATIENT SITE file
;
;PSOPINST is set to the Related Institution in the
;OUTPATIENT SITE file
;
;PSOINST is needed for BEXRX7 and is set in ^PSOLSET however, the
;value is set to the Station Number, which is set by users or by
;assigned Station Numbers in the 8000 range. Therefore, we must set
;PSOINST ourselves.
;
;
CHANGE ;EP - Display current site and ask user if they want to change
;
;Do not ask if only one Outpatient Site
I $P($G(^PS(59,0)),U,3)=1 Q
;
;If we do not have these variables, we have to ask them first
I '$D(PSOSITE) K PSOPAR
I '$D(PSOPAR) D ^PSOLSET
I '$D(PSOPAR) G CHANGE
;
;We assume from here that we have multiple Outpatient Site entries
;
W !!
F I=1:1:70 W "*"
W !
W "*** O/P Site (Division) is: "
W ?30,$$GET1^DIQ(59,PSOSITE,.01),?67,"***",!
W "*** Related Institution is: "
W ?30,$$GET1^DIQ(4,PSOPINST,.01),?67,"***",!
F I=1:1:70 W "*"
W !
;
K DIR
S DIR(0)="YO"
S DIR("A")="Do you want to change these"
S DIR("B")="N"
D ^DIR
I Y'=1 Q
;
K PSOSITE,PSOPAR,PSOPINST
D ^PSOLSET
I '$D(PSOPAR) G CHANGE
;
W !!
W "The RELATED INSTITUTION is ",$$GET1^DIQ(4,PSOPINST,.01),!
W "and will be used to lookup and display health record numbers.",!
;
;This is borrowed from ASKSITE^XUS1
K DIC
S DIC(0)="AEQM"
S DIC="^VA(200,DUZ,2,"
S DIC("P")="200.02P"
S DIC("A")="Select RELATED INSTITUTION: "
S DIC("B")=PSOPINST
D ^DIC
K DIC
I Y>0 S PSOPINST=+Y,DUZ(2)=+Y
W !!
;
Q
;
;
HOLD ;EP - Store original settings when a user enters BEX processing
;
;We store PSOSITE (the Outpatient Site)
;and PSOPINST (the related institution)
;and DUZ(2)
;
S BEXHOLD("PSOSITE")=$G(PSOSITE)
S BEXHOLD("PSOPINST")=$G(PSOPINST)
S BEXHOLD("DUZ(2)")=$G(DUZ(2))
;
Q
;
;
CHECK() ;EP - Check if user changed their site settings
;
;This is called from the END section of BEXRX7 and
;from the EOJ section of BEXRQUE to see if the user changed
;their Outpatient Site settings
;
;Quit if not a multi-division site
I $P($G(^PS(59,0)),U,3)=1 Q 0
;
I $G(PSOSITE)="" Q 0
I $G(PSOPINST)="" Q 0
I $G(DUZ(2))="" Q 0
;
I $G(PSOSITE)'=$G(BEXHOLD("PSOSITE")) Q 1
I $G(PSOPINST)'=$G(BEXHOLD("PSOPINST")) Q 1
I $G(DUZ(2))'=$G(BEXHOLD("DUZ(2)")) Q 1
;
Q 0
;
;
BEXSITE ;IHS/CMI/DAY - BEX - Division and Site Selection ; 05 Oct 2015 11:42 AM
+1 ;;1.0;BEX TELEPHONE REFILL SYSTEM;*6*;APR 20, 2015;Build 7
+2 ;
+3 QUIT
+4 ;
+5 ;Site Notes
+6 ;
+7 ;PSOSITE is set to the IEN in the OUTPATIENT SITE file
+8 ;
+9 ;PSOPINST is set to the Related Institution in the
+10 ;OUTPATIENT SITE file
+11 ;
+12 ;PSOINST is needed for BEXRX7 and is set in ^PSOLSET however, the
+13 ;value is set to the Station Number, which is set by users or by
+14 ;assigned Station Numbers in the 8000 range. Therefore, we must set
+15 ;PSOINST ourselves.
+16 ;
+17 ;
CHANGE ;EP - Display current site and ask user if they want to change
+1 ;
+2 ;Do not ask if only one Outpatient Site
+3 IF $PIECE($GET(^PS(59,0)),U,3)=1
QUIT
+4 ;
+5 ;If we do not have these variables, we have to ask them first
+6 IF '$DATA(PSOSITE)
KILL PSOPAR
+7 IF '$DATA(PSOPAR)
DO ^PSOLSET
+8 IF '$DATA(PSOPAR)
GOTO CHANGE
+9 ;
+10 ;We assume from here that we have multiple Outpatient Site entries
+11 ;
+12 WRITE !!
+13 FOR I=1:1:70
WRITE "*"
+14 WRITE !
+15 WRITE "*** O/P Site (Division) is: "
+16 WRITE ?30,$$GET1^DIQ(59,PSOSITE,.01),?67,"***",!
+17 WRITE "*** Related Institution is: "
+18 WRITE ?30,$$GET1^DIQ(4,PSOPINST,.01),?67,"***",!
+19 FOR I=1:1:70
WRITE "*"
+20 WRITE !
+21 ;
+22 KILL DIR
+23 SET DIR(0)="YO"
+24 SET DIR("A")="Do you want to change these"
+25 SET DIR("B")="N"
+26 DO ^DIR
+27 IF Y'=1
QUIT
+28 ;
+29 KILL PSOSITE,PSOPAR,PSOPINST
+30 DO ^PSOLSET
+31 IF '$DATA(PSOPAR)
GOTO CHANGE
+32 ;
+33 WRITE !!
+34 WRITE "The RELATED INSTITUTION is ",$$GET1^DIQ(4,PSOPINST,.01),!
+35 WRITE "and will be used to lookup and display health record numbers.",!
+36 ;
+37 ;This is borrowed from ASKSITE^XUS1
+38 KILL DIC
+39 SET DIC(0)="AEQM"
+40 SET DIC="^VA(200,DUZ,2,"
+41 SET DIC("P")="200.02P"
+42 SET DIC("A")="Select RELATED INSTITUTION: "
+43 SET DIC("B")=PSOPINST
+44 DO ^DIC
+45 KILL DIC
+46 IF Y>0
SET PSOPINST=+Y
SET DUZ(2)=+Y
+47 WRITE !!
+48 ;
+49 QUIT
+50 ;
+51 ;
HOLD ;EP - Store original settings when a user enters BEX processing
+1 ;
+2 ;We store PSOSITE (the Outpatient Site)
+3 ;and PSOPINST (the related institution)
+4 ;and DUZ(2)
+5 ;
+6 SET BEXHOLD("PSOSITE")=$GET(PSOSITE)
+7 SET BEXHOLD("PSOPINST")=$GET(PSOPINST)
+8 SET BEXHOLD("DUZ(2)")=$GET(DUZ(2))
+9 ;
+10 QUIT
+11 ;
+12 ;
CHECK() ;EP - Check if user changed their site settings
+1 ;
+2 ;This is called from the END section of BEXRX7 and
+3 ;from the EOJ section of BEXRQUE to see if the user changed
+4 ;their Outpatient Site settings
+5 ;
+6 ;Quit if not a multi-division site
+7 IF $PIECE($GET(^PS(59,0)),U,3)=1
QUIT 0
+8 ;
+9 IF $GET(PSOSITE)=""
QUIT 0
+10 IF $GET(PSOPINST)=""
QUIT 0
+11 IF $GET(DUZ(2))=""
QUIT 0
+12 ;
+13 IF $GET(PSOSITE)'=$GET(BEXHOLD("PSOSITE"))
QUIT 1
+14 IF $GET(PSOPINST)'=$GET(BEXHOLD("PSOPINST"))
QUIT 1
+15 IF $GET(DUZ(2))'=$GET(BEXHOLD("DUZ(2)"))
QUIT 1
+16 ;
+17 QUIT 0
+18 ;
+19 ;
