source: FOIAVistA/trunk/r/PAID-PRS/PRSXP112.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 732 bytes
Line 
1PRSXP112 ;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
5P112POST ; 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.