| 1 | OOPSXP5 ;WCIOFO/LLH - INIT ROUTINE FOR VISN 2 INTEGRATION; 09/20/99
|
|---|
| 2 | ;;1.0;ASISTS;**5**;Jun 01, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | ; This is the Pre-Init for OOPS*1*5
|
|---|
| 5 | ; It will be used to populate blank STATION NUMBER fields in
|
|---|
| 6 | ; ^OOPS(2260 file.
|
|---|
| 7 | ;
|
|---|
| 8 | PRE ; Pre-Init to Convert Station Number
|
|---|
| 9 | ; First assure ^DD(2260,13 has not been changed - implies conv run
|
|---|
| 10 | D FIELD^DID(2260,13,"","TYPE","ARR")
|
|---|
| 11 | I ARR("TYPE")'="FREE TEXT" QUIT
|
|---|
| 12 | S FAC=XPDQUES("PRE1")
|
|---|
| 13 | I $G(FAC)="" QUIT
|
|---|
| 14 | S IEN=0
|
|---|
| 15 | ; Loop thru file, if Station # blank, stuff with FAC
|
|---|
| 16 | ; if Station has a value, convert to pointer
|
|---|
| 17 | F S IEN=$O(^OOPS(2260,IEN)) Q:IEN'>0 D
|
|---|
| 18 | . D GETS^DIQ(2260,IEN,13,"IE","ARR")
|
|---|
| 19 | . S STA=$G(ARR(2260,IEN_",",13,"I"))
|
|---|
| 20 | . I $G(STA)'="" D
|
|---|
| 21 | .. I ARR(2260,IEN_",",13,"E")'=ARR(2260,IEN_",",13,"I") Q
|
|---|
| 22 | .. I $O(^DIC(4,"D",STA,""))="" D
|
|---|
| 23 | ... S CASE=$$GET1^DIQ(2260,IEN,.01,"E")
|
|---|
| 24 | ... S MES="Station # for Case #: "_CASE_", could not be Converted, "
|
|---|
| 25 | ... S MES=MES_"Update Manually."
|
|---|
| 26 | ... D MES^XPDUTL(MES)
|
|---|
| 27 | .. I $O(^DIC(4,"D",STA,""))'="" S STA=$O(^DIC(4,"D",STA,""))
|
|---|
| 28 | . I '$G(STA) D
|
|---|
| 29 | .. S STA=FAC
|
|---|
| 30 | . K DA,DIE,DR
|
|---|
| 31 | . S DA=IEN,DIE="^OOPS(2260,",DR="13////"_STA
|
|---|
| 32 | . D ^DIE K DA,DIE,DR
|
|---|
| 33 | S MES="ASISTS Cases have been Updated with Station Number."
|
|---|
| 34 | D BMES^XPDUTL(MES)
|
|---|
| 35 | D MES^XPDUTL(" ")
|
|---|
| 36 | Q
|
|---|
| 37 | ;
|
|---|
| 38 | POST ; Post-init used to Update Table files
|
|---|
| 39 | ; Load Dictionary with changed descriptions
|
|---|
| 40 | K DIE,DA,DR
|
|---|
| 41 | S DIE="^OOPS(2261.2,"
|
|---|
| 42 | S DA=11,DR=".01///^S X=""Hollow Bore Needlestick""" D ^DIE
|
|---|
| 43 | S DA=13,DR=".01///^S X=""Exposure to Body Fluids/Splash""" D ^DIE
|
|---|
| 44 | K DIE,DA,DR
|
|---|
| 45 | ; Need to do something about Suture Needlestick - being ADDED
|
|---|
| 46 | K DIC,DA,DR
|
|---|
| 47 | S (DIC,DIE)="^OOPS(2261.2,",DIC(0)="L",DLAYGO=2261.2
|
|---|
| 48 | S DINUM=14
|
|---|
| 49 | I $D(@(DIC_DINUM_")"))=0 D
|
|---|
| 50 | . S X="Suture Needlestick"
|
|---|
| 51 | . D FILE^DICN
|
|---|
| 52 | . S DA=+Y
|
|---|
| 53 | . S DR="1///^S X=DA"
|
|---|
| 54 | . D ^DIE
|
|---|
| 55 | E D
|
|---|
| 56 | . S DA=14,DR=".01///^S X=""Suture Needlestick""" D ^DIE
|
|---|
| 57 | . S DR="1///^S X=DA" D ^DIE
|
|---|
| 58 | K DIC,DIE,DA,DR
|
|---|
| 59 | ;
|
|---|
| 60 | S DIE="^OOPS(2261.7,"
|
|---|
| 61 | S DA=39,DR=".01///^S X=""Drill bit/burr""" D ^DIE
|
|---|
| 62 | ; Need to do something about Blunt Suture Needle
|
|---|
| 63 | K DIC,DA,DR
|
|---|
| 64 | S (DIC,DIE)="^OOPS(2261.7,",DIC(0)="L",DLAYGO=2261.7
|
|---|
| 65 | S DINUM=66
|
|---|
| 66 | I $D(@(DIC_DINUM_")"))=0 D
|
|---|
| 67 | . S X="Blunt Suture Needle"
|
|---|
| 68 | . D FILE^DICN
|
|---|
| 69 | . S DA=+Y
|
|---|
| 70 | . S DR="1///^S X=50" D ^DIE
|
|---|
| 71 | . S DR="2///^S X=""N""" D ^DIE
|
|---|
| 72 | E D
|
|---|
| 73 | . S DA=66,DR=".01///^S X=""Blunt Suture Needle""" D ^DIE
|
|---|
| 74 | . S DR="1///^S X=50" D ^DIE
|
|---|
| 75 | . S DR="2///^S X=""N""" D ^DIE
|
|---|
| 76 | K DIC,DIE,DA,DR
|
|---|
| 77 | S MES="Table Files have been Updated."
|
|---|
| 78 | D BMES^XPDUTL(MES)
|
|---|
| 79 | D MES^XPDUTL(" ")
|
|---|
| 80 | ; Update X-Reference for Station Number
|
|---|
| 81 | S DIK="^OOPS(2260,",DIK(1)="13^D" D ENALL^DIK
|
|---|
| 82 | QUIT
|
|---|
