- 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 Jan 18, 2025@03:32: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 ;