PXVPARS ;ISP/LMT - VIMM MANAGE PARAMETERS ;Jun 25, 2019@08:53:11
;;1.0;PCE PATIENT CARE ENCOUNTER;**217**;Aug 12, 1996;Build 134
;
;
SEQPAREN ;
;
N PXQUIT
;
F S PXQUIT=$$SEQPAR() Q:PXQUIT
Q
;
SEQPAR() ;
;
N DIR,DIRUT,PXPAR,X,Y
;
W @IOF
W !
W !,"1. Information Sources Sequence."
W !,"2. Contraindication Reasons Sequence."
W !,"3. Refusal Reasons Sequence."
W !
S DIR(0)="NOA^1:3:0"
S DIR("A")="Select which Immunization setting to edit (1-3): "
D ^DIR
I $D(DIRUT)!(Y<1)!(Y>3) Q 1
;
S PXPAR=$S(Y=1:"PXV INFO SOURCE SEQUENCE",Y=2:"PXV CONTRA SEQUENCE",1:"PXV REFUSAL SEQUENCE")
D EDITPAR^XPAREDIT(PXPAR)
;
Q 0
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXVPARS 672 printed Dec 13, 2024@02:31:55 Page 2
PXVPARS ;ISP/LMT - VIMM MANAGE PARAMETERS ;Jun 25, 2019@08:53:11
+1 ;;1.0;PCE PATIENT CARE ENCOUNTER;**217**;Aug 12, 1996;Build 134
+2 ;
+3 ;
SEQPAREN ;
+1 ;
+2 NEW PXQUIT
+3 ;
+4 FOR
SET PXQUIT=$$SEQPAR()
if PXQUIT
QUIT
+5 QUIT
+6 ;
SEQPAR() ;
+1 ;
+2 NEW DIR,DIRUT,PXPAR,X,Y
+3 ;
+4 WRITE @IOF
+5 WRITE !
+6 WRITE !,"1. Information Sources Sequence."
+7 WRITE !,"2. Contraindication Reasons Sequence."
+8 WRITE !,"3. Refusal Reasons Sequence."
+9 WRITE !
+10 SET DIR(0)="NOA^1:3:0"
+11 SET DIR("A")="Select which Immunization setting to edit (1-3): "
+12 DO ^DIR
+13 IF $DATA(DIRUT)!(Y<1)!(Y>3)
QUIT 1
+14 ;
+15 SET PXPAR=$SELECT(Y=1:"PXV INFO SOURCE SEQUENCE",Y=2:"PXV CONTRA SEQUENCE",1:"PXV REFUSAL SEQUENCE")
+16 DO EDITPAR^XPAREDIT(PXPAR)
+17 ;
+18 QUIT 0
+19 ;
