source: FOIAVistA/tag/r/QUASAR-ACKQ/ACKQIPS1.m@ 1746

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

initial load of FOIAVistA 6/30/08 version

File size: 737 bytes
Line 
1ACKQIPS1 ;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 ;
5STAFF 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 ;
22EXIT ;
23 K ^TMP("ACKQIPST","SKIP")
24 ;
25 Q
Note: See TracBrowser for help on using the repository browser.