PSOERPR0 ;BIRM/MFR - eRx Holding Queue Preferences - All Patients (Patient Centric) Queue ;08/29/22
;;7.0;OUTPATIENT PHARMACY;**700,746**;DEC 1997;Build 106
;
EN ; - Entry Point
N DIR,DIRUT,DIROUT,PSOPRIEN,DA,X,Y
S PSOPRIEN=+$O(^PS(52.35,"B","ERX HOLDING QUEUE PREFERENCES",0)) I 'PSOPRIEN Q
;
S (PSOCHNG,PSOQUIT)=0 D FULL^VALM1 W !
;
; - Reset user/division preferences
I $D(^PS(52.35,PSOPRIEN,"PCV",DUZ)) D
. D DISPLAY
. S DIR("A")=" Delete this saved default view? "
. S DIR(0)="YA",DIR("B")="NO" D ^DIR I $D(DIRUT)!$D(DIROUT) S PSOQUIT=1 Q
. I Y=1 D DELETE,LOAD
. W !
I PSOQUIT Q
;
LKBKD ; - Look Back Days
K DIR,DIRUT,DIROUT,SAVEX,X,Y
S DIR(0)="52.351,1",DIR("B")=PSOLKBKD
D ^DIR I $D(DIRUT)!$D(DIROUT) G @$$GOTO(X,"LKBKD")
W $S(X>0:" DAYS",1:" (TODAY'S)") S PSOLKBKD=X
D CHANGED("LKBKD",PSOLKBKD)
;
SRTBY ; - Sort By
K DIR,DIRUT,DIROUT,X,Y
S DIR(0)="52.351,2",DIR("B")=PSOSRTBY
D ^DIR I $D(DIRUT)!$D(DIROUT) G @$$GOTO(X,"SRTBY")
S PSOSRTBY=Y D CHANGED("SRTBY",PSOSRTBY)
;
ORDER ; - Sort Order
K DIR,DIRUT,DIROUT,X,Y
S DIR(0)="52.351,3",DIR("B")=PSORDER
D ^DIR I $D(DIRUT)!$D(DIROUT) G @$$GOTO(X,"ORDER")
S PSORDER=Y D CHANGED("ORDER",PSORDER)
;
INCCS ; - Include CS/Non-CS
K DIR,DIRUT,DIROUT,X,Y
S DIR(0)="52.351,4",DIR("B")=PSOCSERX
D ^DIR I $D(DIRUT)!$D(DIROUT) G @$$GOTO(X,"ORDER")
S PSOCSERX=Y D CHANGED("INCCS",PSOCSERX)
;
CSSCH ; - CS Schedule
I PSOCSERX="Non-CS" G MAXQSIZ
K DIR,DIRUT,DIROUT,X,Y
S DIR(0)="52.351,5",DIR("B")=$S(PSOCSSCH=1:"SCHEDULE II ONLY",PSOCSSCH=2:"SCHEDULES III - V",1:"SCHEDULES II - V")
D ^DIR I $D(DIRUT)!$D(DIROUT) G @$$GOTO(X,"ORDER")
S PSOCSSCH=Y D CHANGED("CSSCH",PSOCSSCH)
;
GRPCS ; - Group By CS/Non-CS
I PSOCSERX="Non-CS" G MAXQSIZ
K DIR,DIRUT,DIROUT,X,Y
S DIR(0)="52.351,6",DIR("B")=$S(PSOCSGRP:"YES",1:"NO")
D ^DIR I $D(DIRUT)!$D(DIROUT) G @$$GOTO(X,"ORDER")
S PSOCSGRP=Y D CHANGED("GRPCS",PSOCSGRP)
;
MAXQSIZ ; - Maximum Queue Size
K DIR,DIRUT,DIROUT,X,Y
S DIR(0)="52.351,7",DIR("B")=PSOMAXQS
D ^DIR I $D(DIRUT)!$D(DIROUT) G @$$GOTO(X,"MAXQSIZ")
S PSOMAXQS=Y D CHANGED("MAXQSIZ",PSOMAXQS)
;
EXIT ; Exit
;
; - Save view?
I $G(PSOCHNG) D
. S PSORFRSH=1
. W ! S DIR(0)="YA",DIR("B")="NO",DIR("A")="Save as your default view? "
. D ^DIR I $D(DIRUT)!$D(DIROUT)!(Y=0) Q
. D SAVE
;
S VALMBCK="R"
;
END Q
;
DISPLAY ; - Displays the current view
N LN,PSOPRIEN,PRFDAT,PREFS
S PSOPRIEN=+$O(^PS(52.35,"B","ERX HOLDING QUEUE PREFERENCES",0)) I 'PSOPRIEN Q
;
I $D(^PS(52.35,PSOPRIEN,"PCV",DUZ)) D
. D GETS^DIQ(52.351,DUZ_","_PSOPRIEN_",","1;2;3;4;5;6;7","IE","PRFDAT")
. M PREFS=PRFDAT(52.351,DUZ_","_PSOPRIEN_",")
. W !?5,"Your saved default view:"
. S $P(LN,"-",24)="" W !?5,LN
. W !?5,"LOOK BACK DAYS : ",$G(PREFS(1,"E"))," DAYS"
. W !?5,"SORT BY : ",$G(PREFS(2,"E"))
. W !?5,"SORT ORDER : ",$G(PREFS(3,"E"))
. W !?5,"INCLUDE CS/NON-CS : ",$G(PREFS(4,"E"))
. I $G(PREFS(4,"I"))'="Non-CS" D
. . W !?5,"CS SCHEDULE : ",$G(PREFS(5,"E"))
. . W !?5,"GROUP BY CS/NON-CS : ",$G(PREFS(6,"E"))
. W !?5,"MAXIMUM QUEUE SIZE : ",$G(PREFS(7,"E"))
. W !
Q
;
GOTO(INPUT,HOME) ; - Directed up-arrow
N GOTO,TAG,TRGT
I $P(INPUT,"^",2)="" S PSOQUIT=1 Q "EXIT"
;
S TRGT=$P(INPUT,"^",2)
S TAG("LOOK BACK DAYS")="LKBKD"
S TAG("SORT BY")="SRTBY"
S TAG("SORT ORDER")="ORDER"
S TAG("INCLUDE CS/NON-CS")="INCCS"
S TAG("CS SCHEDULE")="CSSCH"
S TAG("GROUP BY CS/NON-CS")="GRPCS"
S TAG("MAXIMUM QUEUE SIZE")="MAXQSIZ"
;
S GOTO=HOME
S TAG="" F S TAG=$O(TAG(TAG)) Q:TAG="" I $E(TAG,1,$L(TRGT))=TRGT S GOTO=TAG(TAG) Q
I GOTO=HOME W " ??",$C(7)
;
Q GOTO
;
LOAD ; Loading Factory/Division/User preferences for Single Patient View
;Output: PSOLKBKD - Look Back Days
; PSOSRTBY - Sort By Field
; PSORDER - Sort Order ("A":Asc,"D":Desc)
; PSOCSERX - Include CS/Non-CS (C:CS Only/N:Non-CS Only/B:Both)
; PSOSCSCH - CS Schedule (1:II Only/2:III-V/3:II-V)
; PSOCSGRP - Group by CS/Non-CS (1:ON/0:YES)
; PSOMAXQS - Maximum Queue Size
; - 'Factory' Defaults
I $G(RESETLBD)!'$G(PSOLKBKD)!($G(PSOSTFLT)="WP") D
. S PSOLKBKD=365
. I $$GET1^DIQ(59,PSOSITE,10.2) S PSOLKBKD=$$GET1^DIQ(59,PSOSITE,10.2)
S PSOSRTBY="ED",PSORDER="D",PSOCSERX="B",PSOCSSCH=3,PSOCSGRP=0,PSOMAXQS=999
;
N PSOPRIEN
S PSOPRIEN=+$O(^PS(52.35,"B","ERX HOLDING QUEUE PREFERENCES",0)) I 'PSOPRIEN Q
;
; - User's preferences
I $D(^PS(52.35,PSOPRIEN,"PCV",DUZ,0)) D SET Q
;
Q
;
CHANGED(FIELD,VALUE) ; - Sets PSOCHNG so the list can be refreshed
; FIELD - Field to be checked if was changed/edited
; VALUE - New Value for the field
I $G(PSOCHNG) Q
;
N PSOPRIEN,PRFDAT,PREFS
S PSOPRIEN=+$O(^PS(52.35,"B","ERX HOLDING QUEUE PREFERENCES",0)) I 'PSOPRIEN Q
; - Saved User's preferences
D GETS^DIQ(52.351,DUZ_","_PSOPRIEN_",","1;2;3;4;5;6;7","IE","PRFDAT")
M PREFS=PRFDAT(52.351,DUZ_","_PSOPRIEN_",")
;
I FIELD="LKBKD",VALUE'=$G(PREFS(1,"I")) S PSOCHNG=1 Q
I FIELD="SRTBY",VALUE'=$G(PREFS(2,"I")) S PSOCHNG=1 Q
I FIELD="ORDER",VALUE'=$G(PREFS(3,"I")) S PSOCHNG=1 Q
I FIELD="INCCS",VALUE'=$G(PREFS(4,"I")) S PSOCHNG=1 Q
I FIELD="CSSCH",VALUE'=$G(PREFS(5,"I")) S PSOCHNG=1 Q
I FIELD="GRPCS",VALUE'=$G(PREFS(6,"I")) S PSOCHNG=1 Q
I FIELD="MAXQSIZ",VALUE'=$G(PREFS(7,"I")) S PSOCHNG=1 Q
;
Q
;
SET ; Sets Preferences Variables
N PSOPRIEN,PRFDAT,PREFS
S PSOPRIEN=+$O(^PS(52.35,"B","ERX HOLDING QUEUE PREFERENCES",0)) I 'PSOPRIEN Q
D GETS^DIQ(52.351,DUZ_","_PSOPRIEN_",","1;2;3;4;5;6;7","I","PRFDAT")
M PREFS=PRFDAT(52.351,DUZ_","_PSOPRIEN_",")
I $G(PSOSTFLT)'="WP",$G(RESETLBD) S X=$G(PREFS(1,"I")) I X'="" S PSOLKBKD=X
S X=$G(PREFS(2,"I")) I X'="" S PSOSRTBY=X
S X=$G(PREFS(3,"I")) I X'="" S PSORDER=X
S X=$G(PREFS(4,"I")) I X'="" S PSOCSERX=X
S X=$G(PREFS(5,"I")) I X'="" S PSOCSSCH=X
S X=$G(PREFS(6,"I")) I X'="" S PSOCSGRP=X
S X=$G(PREFS(7,"I")) I X'="" S PSOMAXQS=X
Q
;
SAVE ; - Saves User's Preferences
N DIE,DR,DA,PSOPRIEN
;
S PSOPRIEN=+$O(^PS(52.35,"B","ERX HOLDING QUEUE PREFERENCES",0)) I 'PSOPRIEN Q
;
W !!,"Saving..."
;
I '$D(^PS(52.35,PSOPRIEN,"PCV",DUZ,0)) D
. N %,DIC,DR,DA,X,DINUM,DLAYGO,DD,DO
. S DIC="^PS(52.35,"_PSOPRIEN_",""PCV"","
. S DA(1)=PSOPRIEN,(DINUM,X)=DUZ,DIC(0)=""
. K DD,DO D FILE^DICN K DD,DO
;
S DR="1///"_PSOLKBKD_";2///"_PSOSRTBY_";3///"_PSORDER_";4///"_PSOCSERX
S DR=DR_";5///"_$S(PSOCSERX'="Non-CS":PSOCSSCH,1:"@")
S DR=DR_";6///"_$S(PSOCSERX'="Non-CS":PSOCSGRP,1:"@")_";7///"_PSOMAXQS
;
S DIE="^PS(52.35,"_PSOPRIEN_",""PCV"",",DA(1)=PSOPRIEN,DA=DUZ
D ^DIE H 1 W "OK!" H .5
Q
;
DELETE ; - Deletes user/division preferences
N DIK,DA,DIE,DR
;
W !!,"Deleting..."
;
S DIK="^PS(52.35,"_PSOPRIEN_",""PCV"",",DA(1)=PSOPRIEN,DA=DUZ
D ^DIK H 1 W "OK!"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSOERPR0 6920 printed Dec 13, 2024@02:27:47 Page 2
PSOERPR0 ;BIRM/MFR - eRx Holding Queue Preferences - All Patients (Patient Centric) Queue ;08/29/22
+1 ;;7.0;OUTPATIENT PHARMACY;**700,746**;DEC 1997;Build 106
+2 ;
EN ; - Entry Point
+1 NEW DIR,DIRUT,DIROUT,PSOPRIEN,DA,X,Y
+2 SET PSOPRIEN=+$ORDER(^PS(52.35,"B","ERX HOLDING QUEUE PREFERENCES",0))
IF 'PSOPRIEN
QUIT
+3 ;
+4 SET (PSOCHNG,PSOQUIT)=0
DO FULL^VALM1
WRITE !
+5 ;
+6 ; - Reset user/division preferences
+7 IF $DATA(^PS(52.35,PSOPRIEN,"PCV",DUZ))
Begin DoDot:1
+8 DO DISPLAY
+9 SET DIR("A")=" Delete this saved default view? "
+10 SET DIR(0)="YA"
SET DIR("B")="NO"
DO ^DIR
IF $DATA(DIRUT)!$DATA(DIROUT)
SET PSOQUIT=1
QUIT
+11 IF Y=1
DO DELETE
DO LOAD
+12 WRITE !
End DoDot:1
+13 IF PSOQUIT
QUIT
+14 ;
LKBKD ; - Look Back Days
+1 KILL DIR,DIRUT,DIROUT,SAVEX,X,Y
+2 SET DIR(0)="52.351,1"
SET DIR("B")=PSOLKBKD
+3 DO ^DIR
IF $DATA(DIRUT)!$DATA(DIROUT)
GOTO @$$GOTO(X,"LKBKD")
+4 WRITE $SELECT(X>0:" DAYS",1:" (TODAY'S)")
SET PSOLKBKD=X
+5 DO CHANGED("LKBKD",PSOLKBKD)
+6 ;
SRTBY ; - Sort By
+1 KILL DIR,DIRUT,DIROUT,X,Y
+2 SET DIR(0)="52.351,2"
SET DIR("B")=PSOSRTBY
+3 DO ^DIR
IF $DATA(DIRUT)!$DATA(DIROUT)
GOTO @$$GOTO(X,"SRTBY")
+4 SET PSOSRTBY=Y
DO CHANGED("SRTBY",PSOSRTBY)
+5 ;
ORDER ; - Sort Order
+1 KILL DIR,DIRUT,DIROUT,X,Y
+2 SET DIR(0)="52.351,3"
SET DIR("B")=PSORDER
+3 DO ^DIR
IF $DATA(DIRUT)!$DATA(DIROUT)
GOTO @$$GOTO(X,"ORDER")
+4 SET PSORDER=Y
DO CHANGED("ORDER",PSORDER)
+5 ;
INCCS ; - Include CS/Non-CS
+1 KILL DIR,DIRUT,DIROUT,X,Y
+2 SET DIR(0)="52.351,4"
SET DIR("B")=PSOCSERX
+3 DO ^DIR
IF $DATA(DIRUT)!$DATA(DIROUT)
GOTO @$$GOTO(X,"ORDER")
+4 SET PSOCSERX=Y
DO CHANGED("INCCS",PSOCSERX)
+5 ;
CSSCH ; - CS Schedule
+1 IF PSOCSERX="Non-CS"
GOTO MAXQSIZ
+2 KILL DIR,DIRUT,DIROUT,X,Y
+3 SET DIR(0)="52.351,5"
SET DIR("B")=$SELECT(PSOCSSCH=1:"SCHEDULE II ONLY",PSOCSSCH=2:"SCHEDULES III - V",1:"SCHEDULES II - V")
+4 DO ^DIR
IF $DATA(DIRUT)!$DATA(DIROUT)
GOTO @$$GOTO(X,"ORDER")
+5 SET PSOCSSCH=Y
DO CHANGED("CSSCH",PSOCSSCH)
+6 ;
GRPCS ; - Group By CS/Non-CS
+1 IF PSOCSERX="Non-CS"
GOTO MAXQSIZ
+2 KILL DIR,DIRUT,DIROUT,X,Y
+3 SET DIR(0)="52.351,6"
SET DIR("B")=$SELECT(PSOCSGRP:"YES",1:"NO")
+4 DO ^DIR
IF $DATA(DIRUT)!$DATA(DIROUT)
GOTO @$$GOTO(X,"ORDER")
+5 SET PSOCSGRP=Y
DO CHANGED("GRPCS",PSOCSGRP)
+6 ;
MAXQSIZ ; - Maximum Queue Size
+1 KILL DIR,DIRUT,DIROUT,X,Y
+2 SET DIR(0)="52.351,7"
SET DIR("B")=PSOMAXQS
+3 DO ^DIR
IF $DATA(DIRUT)!$DATA(DIROUT)
GOTO @$$GOTO(X,"MAXQSIZ")
+4 SET PSOMAXQS=Y
DO CHANGED("MAXQSIZ",PSOMAXQS)
+5 ;
EXIT ; Exit
+1 ;
+2 ; - Save view?
+3 IF $GET(PSOCHNG)
Begin DoDot:1
+4 SET PSORFRSH=1
+5 WRITE !
SET DIR(0)="YA"
SET DIR("B")="NO"
SET DIR("A")="Save as your default view? "
+6 DO ^DIR
IF $DATA(DIRUT)!$DATA(DIROUT)!(Y=0)
QUIT
+7 DO SAVE
End DoDot:1
+8 ;
+9 SET VALMBCK="R"
+10 ;
END QUIT
+1 ;
DISPLAY ; - Displays the current view
+1 NEW LN,PSOPRIEN,PRFDAT,PREFS
+2 SET PSOPRIEN=+$ORDER(^PS(52.35,"B","ERX HOLDING QUEUE PREFERENCES",0))
IF 'PSOPRIEN
QUIT
+3 ;
+4 IF $DATA(^PS(52.35,PSOPRIEN,"PCV",DUZ))
Begin DoDot:1
+5 DO GETS^DIQ(52.351,DUZ_","_PSOPRIEN_",","1;2;3;4;5;6;7","IE","PRFDAT")
+6 MERGE PREFS=PRFDAT(52.351,DUZ_","_PSOPRIEN_",")
+7 WRITE !?5,"Your saved default view:"
+8 SET $PIECE(LN,"-",24)=""
WRITE !?5,LN
+9 WRITE !?5,"LOOK BACK DAYS : ",$GET(PREFS(1,"E"))," DAYS"
+10 WRITE !?5,"SORT BY : ",$GET(PREFS(2,"E"))
+11 WRITE !?5,"SORT ORDER : ",$GET(PREFS(3,"E"))
+12 WRITE !?5,"INCLUDE CS/NON-CS : ",$GET(PREFS(4,"E"))
+13 IF $GET(PREFS(4,"I"))'="Non-CS"
Begin DoDot:2
+14 WRITE !?5,"CS SCHEDULE : ",$GET(PREFS(5,"E"))
+15 WRITE !?5,"GROUP BY CS/NON-CS : ",$GET(PREFS(6,"E"))
End DoDot:2
+16 WRITE !?5,"MAXIMUM QUEUE SIZE : ",$GET(PREFS(7,"E"))
+17 WRITE !
End DoDot:1
+18 QUIT
+19 ;
GOTO(INPUT,HOME) ; - Directed up-arrow
+1 NEW GOTO,TAG,TRGT
+2 IF $PIECE(INPUT,"^",2)=""
SET PSOQUIT=1
QUIT "EXIT"
+3 ;
+4 SET TRGT=$PIECE(INPUT,"^",2)
+5 SET TAG("LOOK BACK DAYS")="LKBKD"
+6 SET TAG("SORT BY")="SRTBY"
+7 SET TAG("SORT ORDER")="ORDER"
+8 SET TAG("INCLUDE CS/NON-CS")="INCCS"
+9 SET TAG("CS SCHEDULE")="CSSCH"
+10 SET TAG("GROUP BY CS/NON-CS")="GRPCS"
+11 SET TAG("MAXIMUM QUEUE SIZE")="MAXQSIZ"
+12 ;
+13 SET GOTO=HOME
+14 SET TAG=""
FOR
SET TAG=$ORDER(TAG(TAG))
if TAG=""
QUIT
IF $EXTRACT(TAG,1,$LENGTH(TRGT))=TRGT
SET GOTO=TAG(TAG)
QUIT
+15 IF GOTO=HOME
WRITE " ??",$CHAR(7)
+16 ;
+17 QUIT GOTO
+18 ;
LOAD ; Loading Factory/Division/User preferences for Single Patient View
+1 ;Output: PSOLKBKD - Look Back Days
+2 ; PSOSRTBY - Sort By Field
+3 ; PSORDER - Sort Order ("A":Asc,"D":Desc)
+4 ; PSOCSERX - Include CS/Non-CS (C:CS Only/N:Non-CS Only/B:Both)
+5 ; PSOSCSCH - CS Schedule (1:II Only/2:III-V/3:II-V)
+6 ; PSOCSGRP - Group by CS/Non-CS (1:ON/0:YES)
+7 ; PSOMAXQS - Maximum Queue Size
+8 ; - 'Factory' Defaults
+9 IF $GET(RESETLBD)!'$GET(PSOLKBKD)!($GET(PSOSTFLT)="WP")
Begin DoDot:1
+10 SET PSOLKBKD=365
+11 IF $$GET1^DIQ(59,PSOSITE,10.2)
SET PSOLKBKD=$$GET1^DIQ(59,PSOSITE,10.2)
End DoDot:1
+12 SET PSOSRTBY="ED"
SET PSORDER="D"
SET PSOCSERX="B"
SET PSOCSSCH=3
SET PSOCSGRP=0
SET PSOMAXQS=999
+13 ;
+14 NEW PSOPRIEN
+15 SET PSOPRIEN=+$ORDER(^PS(52.35,"B","ERX HOLDING QUEUE PREFERENCES",0))
IF 'PSOPRIEN
QUIT
+16 ;
+17 ; - User's preferences
+18 IF $DATA(^PS(52.35,PSOPRIEN,"PCV",DUZ,0))
DO SET
QUIT
+19 ;
+20 QUIT
+21 ;
CHANGED(FIELD,VALUE) ; - Sets PSOCHNG so the list can be refreshed
+1 ; FIELD - Field to be checked if was changed/edited
+2 ; VALUE - New Value for the field
+3 IF $GET(PSOCHNG)
QUIT
+4 ;
+5 NEW PSOPRIEN,PRFDAT,PREFS
+6 SET PSOPRIEN=+$ORDER(^PS(52.35,"B","ERX HOLDING QUEUE PREFERENCES",0))
IF 'PSOPRIEN
QUIT
+7 ; - Saved User's preferences
+8 DO GETS^DIQ(52.351,DUZ_","_PSOPRIEN_",","1;2;3;4;5;6;7","IE","PRFDAT")
+9 MERGE PREFS=PRFDAT(52.351,DUZ_","_PSOPRIEN_",")
+10 ;
+11 IF FIELD="LKBKD"
IF VALUE'=$GET(PREFS(1,"I"))
SET PSOCHNG=1
QUIT
+12 IF FIELD="SRTBY"
IF VALUE'=$GET(PREFS(2,"I"))
SET PSOCHNG=1
QUIT
+13 IF FIELD="ORDER"
IF VALUE'=$GET(PREFS(3,"I"))
SET PSOCHNG=1
QUIT
+14 IF FIELD="INCCS"
IF VALUE'=$GET(PREFS(4,"I"))
SET PSOCHNG=1
QUIT
+15 IF FIELD="CSSCH"
IF VALUE'=$GET(PREFS(5,"I"))
SET PSOCHNG=1
QUIT
+16 IF FIELD="GRPCS"
IF VALUE'=$GET(PREFS(6,"I"))
SET PSOCHNG=1
QUIT
+17 IF FIELD="MAXQSIZ"
IF VALUE'=$GET(PREFS(7,"I"))
SET PSOCHNG=1
QUIT
+18 ;
+19 QUIT
+20 ;
SET ; Sets Preferences Variables
+1 NEW PSOPRIEN,PRFDAT,PREFS
+2 SET PSOPRIEN=+$ORDER(^PS(52.35,"B","ERX HOLDING QUEUE PREFERENCES",0))
IF 'PSOPRIEN
QUIT
+3 DO GETS^DIQ(52.351,DUZ_","_PSOPRIEN_",","1;2;3;4;5;6;7","I","PRFDAT")
+4 MERGE PREFS=PRFDAT(52.351,DUZ_","_PSOPRIEN_",")
+5 IF $GET(PSOSTFLT)'="WP"
IF $GET(RESETLBD)
SET X=$GET(PREFS(1,"I"))
IF X'=""
SET PSOLKBKD=X
+6 SET X=$GET(PREFS(2,"I"))
IF X'=""
SET PSOSRTBY=X
+7 SET X=$GET(PREFS(3,"I"))
IF X'=""
SET PSORDER=X
+8 SET X=$GET(PREFS(4,"I"))
IF X'=""
SET PSOCSERX=X
+9 SET X=$GET(PREFS(5,"I"))
IF X'=""
SET PSOCSSCH=X
+10 SET X=$GET(PREFS(6,"I"))
IF X'=""
SET PSOCSGRP=X
+11 SET X=$GET(PREFS(7,"I"))
IF X'=""
SET PSOMAXQS=X
+12 QUIT
+13 ;
SAVE ; - Saves User's Preferences
+1 NEW DIE,DR,DA,PSOPRIEN
+2 ;
+3 SET PSOPRIEN=+$ORDER(^PS(52.35,"B","ERX HOLDING QUEUE PREFERENCES",0))
IF 'PSOPRIEN
QUIT
+4 ;
+5 WRITE !!,"Saving..."
+6 ;
+7 IF '$DATA(^PS(52.35,PSOPRIEN,"PCV",DUZ,0))
Begin DoDot:1
+8 NEW %,DIC,DR,DA,X,DINUM,DLAYGO,DD,DO
+9 SET DIC="^PS(52.35,"_PSOPRIEN_",""PCV"","
+10 SET DA(1)=PSOPRIEN
SET (DINUM,X)=DUZ
SET DIC(0)=""
+11 KILL DD,DO
DO FILE^DICN
KILL DD,DO
End DoDot:1
+12 ;
+13 SET DR="1///"_PSOLKBKD_";2///"_PSOSRTBY_";3///"_PSORDER_";4///"_PSOCSERX
+14 SET DR=DR_";5///"_$SELECT(PSOCSERX'="Non-CS":PSOCSSCH,1:"@")
+15 SET DR=DR_";6///"_$SELECT(PSOCSERX'="Non-CS":PSOCSGRP,1:"@")_";7///"_PSOMAXQS
+16 ;
+17 SET DIE="^PS(52.35,"_PSOPRIEN_",""PCV"","
SET DA(1)=PSOPRIEN
SET DA=DUZ
+18 DO ^DIE
HANG 1
WRITE "OK!"
HANG .5
+19 QUIT
+20 ;
DELETE ; - Deletes user/division preferences
+1 NEW DIK,DA,DIE,DR
+2 ;
+3 WRITE !!,"Deleting..."
+4 ;
+5 SET DIK="^PS(52.35,"_PSOPRIEN_",""PCV"","
SET DA(1)=PSOPRIEN
SET DA=DUZ
+6 DO ^DIK
HANG 1
WRITE "OK!"
+7 QUIT
