Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PXVPARS

PXVPARS.m

Go to the documentation of this file.
  1. 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
  1. ;
  1. ;
  1. SEQPAREN ;
  1. ;
  1. N PXQUIT
  1. ;
  1. F S PXQUIT=$$SEQPAR() Q:PXQUIT
  1. Q
  1. ;
  1. SEQPAR() ;
  1. ;
  1. N DIR,DIRUT,PXPAR,X,Y
  1. ;
  1. W @IOF
  1. W !
  1. W !,"1. Information Sources Sequence."
  1. W !,"2. Contraindication Reasons Sequence."
  1. W !,"3. Refusal Reasons Sequence."
  1. W !
  1. S DIR(0)="NOA^1:3:0"
  1. S DIR("A")="Select which Immunization setting to edit (1-3): "
  1. D ^DIR
  1. I $D(DIRUT)!(Y<1)!(Y>3) Q 1
  1. ;
  1. S PXPAR=$S(Y=1:"PXV INFO SOURCE SEQUENCE",Y=2:"PXV CONTRA SEQUENCE",1:"PXV REFUSAL SEQUENCE")
  1. D EDITPAR^XPAREDIT(PXPAR)
  1. ;
  1. Q 0
  1. ;