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

SDPARM2.m

Go to the documentation of this file.
  1. SDPARM2 ;ALB/CAW,GXT - Edit Main and Division Parameters; 8/13/2018
  1. ;;5.3;Scheduling;**27,132,705**;08/13/93;Build 11
  1. ;;PER VHA DIRECTIVE 2004-038, DO NOT MODIFY THIS ROUTINE
  1. ;
  1. ;Patch SD*5.3*705 updated this routine to allow the enter/edit
  1. ;of the ENABLE BLANK LINE? (#1.1), EXCLUDE ADMIN CLINICS? (#1.2),
  1. ;and ADDITIONAL HEADER TEXT (#1.3) fields in the SCHEDULING PARAMETER
  1. ;(#404.91) FILE.
  1. ;The ADDITIONAL HEADER TEXT (#1.3) is a subfile and includes
  1. ;INSTITUTION, HEADER TEXT and PRINT STARTING AT FIRST LINE? sub fields)
  1. ;
  1. 1 ;Edit Main Parameters
  1. ;
  1. D FULL^VALM1
  1. S DIE="^DG(43,",DA=1,DR="212;215;216;32;217;226;227;224T" D ^DIE K DIE
  1. S DIE="^SD(404.91,",DIC(0)="AEQMZ",DR="1.1;1.2" D ^DIE K DR,DIE,DA ;Patch SD*5.3*705
  1. I $D(DTOUT) G SDQUIT
  1. G RDSPLY
  1. Q
  1. ;
  1. 2 ;Edit Division Parameters
  1. ;
  1. D FULL^VALM1
  1. I '$P($G(^DG(43,1,"GL")),U,2) S Y=1 D DIE Q
  1. DIC W ! S DIC="^DG(40.8,",DIC(0)="AEMQ" D ^DIC I Y<0 S VALMBCK="" G RDSPLY
  1. DIE S DIE="^DG(40.8,",(SD,DA)=+Y,DR="30.01:30.04" D ^DIE K DIE
  1. I $D(DTOUT) G SDQUIT
  1. I $P($G(^DG(43,1,"GL")),U,2) G DIC
  1. G RDSPLY
  1. Q
  1. ;
  1. 3 ;Edit Additional Header Text Fields in Scheduling Parameter (#404.91) file
  1. ;
  1. N DA,DR,DIE
  1. D FULL^VALM1
  1. S DA=1 S DR=1.3,DR(2,404.9102)=".01T;1T",DR(3,404.91021)=".01;.02",DIE=404.91 D ^DIE K DR,DA,DIE
  1. I $D(DTOUT) G SDQUIT
  1. G RDSPLY
  1. Q
  1. ;
  1. RDSPLY D EN^SDPARM S VALMBCK="R"
  1. SDQUIT Q