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

GMTSPREI.m

Go to the documentation of this file.
  1. GMTSPREI ;SLC/SBW - GMTS* Preinit ;4/18/95
  1. ;;2.7;Health Summary;;Oct 20, 1995
  1. MAIN ; Controls branching
  1. N GMI
  1. W !!,"First I need to run a pre-init...."
  1. W !,"Starting pre-init now...."
  1. S GMTSIST=$$NOW
  1. D APPGRP,RENMED
  1. D DELFLD ;Entry point to delete obsolete fields in file #142
  1. W !,"Pre-init successfully completed!"
  1. Q
  1. APPGRP ; Add "GMTS" Application Group to file 60, 71, 120.51, 9999999.64,
  1. ; 9001017, and 811.9. Done only if not there already.
  1. N GMI
  1. F GMI=60,71,120.51,9999999.64,9001017,811.9 I '$D(^DIC(GMI,"%","B","GMTS")) K DD,DO S DIC="^DIC("_GMI_",""%"",",DIC(0)="L",DA(1)=GMI,X="GMTS" D FILE^DICN K DIC,DA W:+Y>0 !!,"Adding ""GMTS"" Application Group to ^DIC("_GMI_",",!
  1. Q
  1. RENMED ; Rename medicine summary comp. abbreviation
  1. N GMDA,DA,DIE,DR
  1. Q:+$D(^GMT(142.1))'>0
  1. F X="MEDICINE SUMMARY" D
  1. . S DIC=142.1,DIC(0)="X" D ^DIC I +Y'>0 Q
  1. . S DIE=142.1,DR="3///MEDS",DA=+Y D ^DIE
  1. . W !!,"** Renaming Medicine Summary Abbreviation from MED to MEDS **"
  1. Q
  1. DELFLD ; Deletes obsolete fields in Health Summary Type (#142) file
  1. N DIK,DA,GMX,DIU
  1. Q:+$D(^GMT(142))'>0
  1. F GMX=2,3,4,5,6 D
  1. . S DA=GMX,DIK="^DD(142,"
  1. . D ^DIK W !,"Deleting field # ",GMX," in the Health Summary Type (#142) file."
  1. F DIU=142.02,142.05,142.06 S DIU(0)="S" D EN^DIU2
  1. Q
  1. NOW() ; Extrinsic special variable to return current date/time
  1. N %,%H,%I,X
  1. D NOW^%DTC
  1. Q +$G(%)