source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SC442PST.m@ 1073

Last change on this file since 1073 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 800 bytes
RevLine 
[613]1SC442PST ;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 ;
8FILE 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 ;
16FILE1 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.