PRSXP112 ;WOIFO/JAH - PAID Parameter post-init for p 112 ;7/25/07
 ;;4.0;PAID;**112**;Sep 21, 1995;Build 54
 ;;Per VHA Directive 2004-038, this routine should not be modified.
 Q
P112POST ; Initialize parameter file for the institution installing
 ; the patch
 ;
 ; Create entry in #456 and add populate fields
 N PRSFDA,IEN456,INST
 S INST=+$$KSP^XUPARAM("INST") ;   INSTITUTION
 I (INST>0),($O(^PRST(456,"B",INST,0))>0) Q
 S PRSFDA(456,"+1,",.01)=INST ;   INSTITUTION
 D UPDATE^DIE("","PRSFDA","IEN456"),MSG^DIALOG()
 S IEN456=IEN456(1)_","
 S PRSFDA(456,IEN456,1)=1 ;  TURN BULLETIN FLAG ON
 S PRSFDA(456,IEN456,2)=0 ; INIT Bulletins sent
 S PRSFDA(456,IEN456,3)=5 ; INIT Bulletin Limit
 D FILE^DIE("","PRSFDA",),MSG^DIALOG()
 Q