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