Last change
on this file since 700 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
737 bytes
|
Line | |
---|
1 | ACKQIPS1 ;HCIOFO/BH-Version 3 Post Installation routine ; 04/01/99
|
---|
2 | ;;3.0;QUASAR;;Feb 11, 2000
|
---|
3 | ;Per VHA Directive 10-93-142, this routine SHOULD NOT be modified.
|
---|
4 | ;
|
---|
5 | STAFF I ^TMP("ACKQIPST","SKIP") G EXIT ; Virgin Site
|
---|
6 | D BMES^XPDUTL("Updating A&SP Staff file to no longer point to New Person file.")
|
---|
7 | ;
|
---|
8 | N ACK1,ACK2,ACK
|
---|
9 | S ACK1=0,ACKCNT=0
|
---|
10 | F S ACK1=$O(^ACK(509850.3,ACK1)) Q:'+ACK1 D
|
---|
11 | . S ACK2=""
|
---|
12 | . S ACK2=$O(^USR(8930.3,"B",ACK1,ACK2))
|
---|
13 | . K ACK S ACK(509850.3,ACK1_",",.01)=ACK2 D FILE^DIE("","ACK")
|
---|
14 | ;
|
---|
15 | ; Creates new 'D' Cross Reference on Staff File.
|
---|
16 | K ^ACK(509850.3,"D")
|
---|
17 | S DIK="^ACK(509850.3,"
|
---|
18 | S DIK(1)=".01^D"
|
---|
19 | D ENALL^DIK
|
---|
20 | D BMES^XPDUTL("Completed updating A&SP Staff file.")
|
---|
21 | ;
|
---|
22 | EXIT ;
|
---|
23 | K ^TMP("ACKQIPST","SKIP")
|
---|
24 | ;
|
---|
25 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.