20 lines
732 B
Mathematica
20 lines
732 B
Mathematica
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
|