Last change
on this file since 700 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
732 bytes
|
Line | |
---|
1 | PRSXP112 ;WOIFO/JAH - PAID Parameter post-init for p 112 ;7/25/07
|
---|
2 | ;;4.0;PAID;**112**;Sep 21, 1995;Build 54
|
---|
3 | ;;Per VHA Directive 2004-038, this routine should not be modified.
|
---|
4 | Q
|
---|
5 | P112POST ; Initialize parameter file for the institution installing
|
---|
6 | ; the patch
|
---|
7 | ;
|
---|
8 | ; Create entry in #456 and add populate fields
|
---|
9 | N PRSFDA,IEN456,INST
|
---|
10 | S INST=+$$KSP^XUPARAM("INST") ; INSTITUTION
|
---|
11 | I (INST>0),($O(^PRST(456,"B",INST,0))>0) Q
|
---|
12 | S PRSFDA(456,"+1,",.01)=INST ; INSTITUTION
|
---|
13 | D UPDATE^DIE("","PRSFDA","IEN456"),MSG^DIALOG()
|
---|
14 | S IEN456=IEN456(1)_","
|
---|
15 | S PRSFDA(456,IEN456,1)=1 ; TURN BULLETIN FLAG ON
|
---|
16 | S PRSFDA(456,IEN456,2)=0 ; INIT Bulletins sent
|
---|
17 | S PRSFDA(456,IEN456,3)=5 ; INIT Bulletin Limit
|
---|
18 | D FILE^DIE("","PRSFDA",),MSG^DIALOG()
|
---|
19 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.