PXVPARS.m

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 ---PXVPARS   672     printed  Apr 09, 2024@21:34:35                                                                                                                                                                                                      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      ;