|
Last change
on this file since 623 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
732 bytes
|
| Line | |
|---|
| 1 | PRSXP112 ;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
|
|---|
| 5 | P112POST ; 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.
