Last change
on this file since 1424 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
737 bytes
|
Rev | Line | |
---|
[628] | 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.