| 1 | QANPST2 ;B'ham ISC/PTD-Post-Init Routine to Add 'Extended Care' to the National Service File ;7/15/92
|
|---|
| 2 | ;;2.0;Incident Reporting;;08/07/1992
|
|---|
| 3 | I '$O(^ECC(730,0)) W !,"National Service File - #730 does not exist on your system.",!,"Post-Init routine unable to add new entry!" G EXIT
|
|---|
| 4 | I '$D(^ECC(730,47,0)) W !,"'EXTENDED CARE' will now be added to file 730 - National Service File.",!,"..."
|
|---|
| 5 | I $D(^ECC(730,47,0)),$P(^(0),"^")="EXTENDED CARE" G EXIT ;Post-Init has previously run and addition has previously been made
|
|---|
| 6 | I $D(^ECC(730,47,0)),$P(^(0),"^")'="EXTENDED CARE" D WARN G EXIT ;Local entry incorrectly added to file
|
|---|
| 7 | L +^ECC(730):5 I '$T W !,*7,"National Service file CANNOT be accessed, ",!,"try again later! " G EXIT
|
|---|
| 8 | S ^ECC(730,47,0)="EXTENDED CARE"_"^"_"181B1"_"^",^ECC(730,"B","EXTENDED CARE",47)=""
|
|---|
| 9 | S $P(^ECC(730,0),"^",3)=47,$P(^ECC(730,0),"^",4)=$P(^ECC(730,0),"^",4)+1
|
|---|
| 10 | L -^ECC(730)
|
|---|
| 11 | W !,"National Service File updated!",!,"'EXTENDED CARE' entry has been added.",!!
|
|---|
| 12 | EXIT ;Quit
|
|---|
| 13 | Q
|
|---|
| 14 | WARN ;Warning message
|
|---|
| 15 | W !!,*7,"It appears that local additions have been made to the National Service File.",!,"Local additions are ONLY allowed through the Interim Management Support",!,"software, beginning with DA #1000."
|
|---|
| 16 | W " Since local modifications have been made,",!,"it is the site's responsibility to delete illegal entries and re-run the",!,"post-init routine.",!
|
|---|
| 17 | Q
|
|---|
