|
Last change
on this file since 1432 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
800 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | SC442PST ;ALB/RLC - POST INIT ROUTINE FOR PATCH 442; [Feb 19, 2004 10:30 am]
|
|---|
| 2 | ;;5.3;Scheduling;**442**;Aug 13, 1993
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | ; This post-init routine modifies the narrative description
|
|---|
| 6 | ; for error codes D00 and D000 in file 409.76
|
|---|
| 7 | ;
|
|---|
| 8 | FILE N DA,DR,DIE
|
|---|
| 9 | S SCDESC="Provider Type Code is missing, invalid or inactive."
|
|---|
| 10 | S DA="" F I="D00","D000" S DA=$O(^SD(409.76,"B",I,"")) Q:'DA D
|
|---|
| 11 | .L +^SD(409.76,DA)
|
|---|
| 12 | .S DIE="^SD(409.76,",DR="11///^S X=SCDESC" D ^DIE
|
|---|
| 13 | .L -^SD(409.76,DA)
|
|---|
| 14 | K DA,DR,DIE,SCDESC,I
|
|---|
| 15 | ;
|
|---|
| 16 | FILE1 N DA,DR,DIE,SCLOGIC,I
|
|---|
| 17 | S SCLOGIC="S RES=$$PROVCLS^SCMSVUT1(DATA)",I="D000"
|
|---|
| 18 | S DA="",DA=$O(^SD(409.76,"B",I,"")) Q:DA=""
|
|---|
| 19 | L +^SD(409.76,I)
|
|---|
| 20 | S DIE="^SD(409.76,",DR="31///^S X=SCLOGIC" D ^DIE
|
|---|
| 21 | L -^SD(409.76,DA)
|
|---|
| 22 | K DA,DR,DIE,SCLOGIC,I
|
|---|
| 23 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
