source: WorldVistAEHR/trunk/r/ASISTS-OOPS/OOPSXP5.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.5 KB
Line 
1OOPSXP5 ;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 ;
8PRE ; 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 ;
38POST ; 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
Note: See TracBrowser for help on using the repository browser.