PRSXP112.m

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 ---PRSXP112   751     printed  Apr 09, 2024@21:26:05                                                                                                                                                                                                     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