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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSXP112 751 printed Nov 22, 2024@17:38:50 Page 2
PRSXP112 ;WOIFO/JAH - PAID Parameter post-init for p 112 ;7/25/07
+1 ;;4.0;PAID;**112**;Sep 21, 1995;Build 54
+2 ;;Per VHA Directive 2004-038, this routine should not be modified.
+3 QUIT
P112POST ; Initialize parameter file for the institution installing
+1 ; the patch
+2 ;
+3 ; Create entry in #456 and add populate fields
+4 NEW PRSFDA,IEN456,INST
+5 ; INSTITUTION
SET INST=+$$KSP^XUPARAM("INST")
+6 IF (INST>0)
IF ($ORDER(^PRST(456,"B",INST,0))>0)
QUIT
+7 ; INSTITUTION
SET PRSFDA(456,"+1,",.01)=INST
+8 DO UPDATE^DIE("","PRSFDA","IEN456")
DO MSG^DIALOG()
+9 SET IEN456=IEN456(1)_","
+10 ; TURN BULLETIN FLAG ON
SET PRSFDA(456,IEN456,1)=1
+11 ; INIT Bulletins sent
SET PRSFDA(456,IEN456,2)=0
+12 ; INIT Bulletin Limit
SET PRSFDA(456,IEN456,3)=5
+13 DO FILE^DIE("","PRSFDA",)
DO MSG^DIALOG()
+14 QUIT
