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

DINIT29P.m

Go to the documentation of this file.
  1. DINIT29P ;SFISC/MKO-SCREENMAN POSTINIT ;27NOV2010
  1. ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
  1. ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
  1. ;;Licensed under the terms of the Apache License, Version 2.0.
  1. ;
  1. N B,F
  1. ;
  1. ;Delete the "AZ" global for each form. Starting in Version 22.0
  1. ;compiled data will be stored in ^DIST(.403,form#,"AY") instead of
  1. ;^DIST(.403,form#,"AZ")
  1. S F=0 F S F=$O(^DIST(.403,F)) Q:F'=+$P(F,"E") K ^DIST(.403,F,"AZ")
  1. ;
  1. ;Update Field Type field of fields on old blocks.
  1. ;Convert 0 or null to 3 (data dictionary field)
  1. S B=0 F S B=$O(^DIST(.404,B)) Q:B'=+B D
  1. . Q:$P($G(^DIST(.404,B,0)),U)?1"DDGF".E
  1. . S F=0 F S F=$O(^DIST(.404,B,40,F)) Q:F'=+F D
  1. .. Q:$D(^DIST(.404,B,40,F,0))[0
  1. .. S:'$P(^DIST(.404,B,40,F,0),U,3) $P(^(0),U,3)=3
  1. ;
  1. ;Rename two version 19 options
  1. I $P($G(^DIC(19,0)),U)="OPTION" D
  1. . D:$D(^DIC(19,"B","DDS CREATE FORM")) RENAME("DDS CREATE FORM","DDS EDIT/CREATE A FORM")
  1. . D:$D(^DIC(19,"B","DDS CREATE BLOCK")) RENAME("DDS CREATE BLOCK","DDS RUN A FORM")
  1. AUD .;ADD ONE NEW AUDIT OPTION, REMOVE ANOTHER
  1. . D:'$D(^DIC(19,"B","DIAUDIT MONITOR USER"))
  1. ..N DIC,X,Y,DLAYGO
  1. ..S DIC="^DIC(19,",DLAYGO=19,X="DIAUDIT MONITOR USER",DIC(0)="L",DIC("DR")="1///Monitor a User;4///R;11///y;25///2^DIAU"
  1. ..D ^DIC Q:Y<0
  1. ..S ^DIC(19,+Y,1,0)="^19.06^2^2",^(1,0)="This Option allows tracking of a given user's access to entries in a",^DIC(19,+Y,1,2,0)="given (audited) File. Display starts with a selected access date."
  1. .D:$D(^DIC(19,"B","DIAUDIT DD"))
  1. ..N DA,DIE,DR S DA=$O(^("DIAUDIT DD",0)),DIE=19,DR="2////NO LONGER FUNCTIONAL -- ALL DATA DICTIONARIES ARE NOW AUDITED" D ^DIE
  1. ;
  1. G ^DINIT2A0
  1. ;
  1. RENAME(DDSOLD,DDSNEW) ;Rename options
  1. N DIC,X,Y
  1. S DIC="^DIC(19,",DIC(0)="Z",X=DDSOLD
  1. D ^DIC Q:Y<0
  1. ;
  1. N DIE,DA,DR
  1. S DIE=DIC,DA=+Y,DR=".01///"_DDSNEW
  1. D ^DIE
  1. Q
  1. ;
  1. PRE ;ScreenMan pre-init
  1. ;Delete old forms and blocks used by FileMan
  1. N I
  1. S I=0 F S I=$O(^DIST(.403,I)) Q:'I!(I'<1) K ^DIST(.403,I)
  1. S I=0 F S I=$O(^DIST(.404,I)) Q:'I!(I'<1) K ^DIST(.404,I)
  1. Q