| 1 | GMTSPREI ;SLC/SBW - GMTS* Preinit ;4/18/95
|
|---|
| 2 | ;;2.7;Health Summary;;Oct 20, 1995
|
|---|
| 3 | MAIN ; Controls branching
|
|---|
| 4 | N GMI
|
|---|
| 5 | W !!,"First I need to run a pre-init...."
|
|---|
| 6 | W !,"Starting pre-init now...."
|
|---|
| 7 | S GMTSIST=$$NOW
|
|---|
| 8 | D APPGRP,RENMED
|
|---|
| 9 | D DELFLD ;Entry point to delete obsolete fields in file #142
|
|---|
| 10 | W !,"Pre-init successfully completed!"
|
|---|
| 11 | Q
|
|---|
| 12 | APPGRP ; Add "GMTS" Application Group to file 60, 71, 120.51, 9999999.64,
|
|---|
| 13 | ; 9001017, and 811.9. Done only if not there already.
|
|---|
| 14 | N GMI
|
|---|
| 15 | 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_",",!
|
|---|
| 16 | Q
|
|---|
| 17 | RENMED ; Rename medicine summary comp. abbreviation
|
|---|
| 18 | N GMDA,DA,DIE,DR
|
|---|
| 19 | Q:+$D(^GMT(142.1))'>0
|
|---|
| 20 | F X="MEDICINE SUMMARY" D
|
|---|
| 21 | . S DIC=142.1,DIC(0)="X" D ^DIC I +Y'>0 Q
|
|---|
| 22 | . S DIE=142.1,DR="3///MEDS",DA=+Y D ^DIE
|
|---|
| 23 | . W !!,"** Renaming Medicine Summary Abbreviation from MED to MEDS **"
|
|---|
| 24 | Q
|
|---|
| 25 | DELFLD ; Deletes obsolete fields in Health Summary Type (#142) file
|
|---|
| 26 | N DIK,DA,GMX,DIU
|
|---|
| 27 | Q:+$D(^GMT(142))'>0
|
|---|
| 28 | F GMX=2,3,4,5,6 D
|
|---|
| 29 | . S DA=GMX,DIK="^DD(142,"
|
|---|
| 30 | . D ^DIK W !,"Deleting field # ",GMX," in the Health Summary Type (#142) file."
|
|---|
| 31 | F DIU=142.02,142.05,142.06 S DIU(0)="S" D EN^DIU2
|
|---|
| 32 | Q
|
|---|
| 33 | NOW() ; Extrinsic special variable to return current date/time
|
|---|
| 34 | N %,%H,%I,X
|
|---|
| 35 | D NOW^%DTC
|
|---|
| 36 | Q +$G(%)
|
|---|
