|
Last change
on this file since 1801 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.
