source: WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUPR230.m@ 1000

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

initial load of WorldVistAEHR

File size: 1.8 KB
Line 
1TIUPR230 ;SLC/AJB - Objects Skin Risk Assessment;10JUL07
2 ;;1.0;TEXT INTEGRATION UTILITIES;**230**;Jun 20, 1997;Build 18
3 Q
4EN ; entry
5 N TIUFPRIV
6 I '$D(ZTQUEUED) X ^%ZOSF("EON") W $G(IOCUON),@IOF ; turn cursor on & clear display
7 S TIUFPRIV=1
8 D DELOBJS,MKOBJS ; remove and install TIU objects
9 W !!,"Object creation finished."
10 Q
11DATA ; TIU object names & HS object names
12 ;;BRADEN SCALE 30D;VA-BRADEN SCALE 30D (TIU)
13 ;;PRESSURE ULCER;VA-PRESSURE ULCER (TIU)
14 ;;PU INTERVENTIONS;VA-PU INTERVENTIONS (TIU)
15 ;;EOM
16 Q
17DELOBJS ; remove duplicate names prior to install
18 N DA,DIK,OBJNAME,TIUDAT,TIULN,X,Y
19 F TIUDAT=1:1 S TIULN=$P($T(DATA+TIUDAT),";;",2) Q:TIULN="EOM" D
20 .S OBJNAME=$P(TIULN,";")
21 .S DA=0,DA=$O(^TIU(8925.1,"B",OBJNAME,DA))
22 .S DIK="^TIU(8925.1,"
23 .I DA>0 D ^DIK
24 Q
25LU(FILE,NAME) ; DBS lookup
26 Q $$FIND1^DIC(FILE,"",,NAME,,,"TIUERR")
27MKOBJS ; make TIU objects
28 N HSNAME,METHOD,OBJNAME,TIUDAT,TIULN
29 F TIUDAT=1:1 S TIULN=$P($T(DATA+TIUDAT),";;",2) Q:TIULN="EOM" D
30 . S OBJNAME=$P(TIULN,";"),HSNAME=$P(TIULN,";",2)
31 . S METHOD="S X=$$TIU^GMTSOBJ(DFN,"_$$LU(142.5,HSNAME)_")"
32 . I $$MKOBJ(OBJNAME,METHOD)<0 D
33 . . W:'$D(ZTQUEUED) !!,"Installation Error: Creation of TIU Object "_NAME_" failed.",!
34 Q
35MKOBJ(OBJNAME,METHOD) ; create TIU object
36 N FDA,FDAIEN,MSG
37 S FDA(8925.1,"+1,",.01)=OBJNAME
38 S FDA(8925.1,"+1,",.03)=OBJNAME
39 S FDA(8925.1,"+1,",.04)="O"
40 S FDA(8925.1,"+1,",.06)=$$LU(8930,"CLINICAL COORDINATOR")
41 S FDA(8925.1,"+1,",.07)=11
42 S FDA(8925.1,"+1,",9)=METHOD
43 S FDA(8925.1,"+1,",99)=$H
44 D UPDATE^DIE("","FDA","FDAIEN","MSG")
45 I $D(MSG),'$D(ZTQUEUED) D Q -1
46 . W !!,"TIU Object creation failed. The following error message was returned:",!!
47 . S MSG="" F S MSG=$O(MSG("DIERR",1,"TEXT",MSG)) Q:MSG="" W MSG("DIERR",1,"TEXT",MSG),!
48 W:'$D(ZTQUEUED) !!,"Creation of TIU Object "_OBJNAME_" successful..." H 1
49 Q 1
Note: See TracBrowser for help on using the repository browser.