SC442PST ;ALB/RLC - POST INIT ROUTINE FOR PATCH 442; [Feb 19, 2004 10:30 am]
;;5.3;Scheduling;**442**;Aug 13, 1993
;Per VHA Directive 10-93-142, this routine should not be modified.
;
; This post-init routine modifies the narrative description
; for error codes D00 and D000 in file 409.76
;
FILE N DA,DR,DIE
S SCDESC="Provider Type Code is missing, invalid or inactive."
S DA="" F I="D00","D000" S DA=$O(^SD(409.76,"B",I,"")) Q:'DA D
.L +^SD(409.76,DA)
.S DIE="^SD(409.76,",DR="11///^S X=SCDESC" D ^DIE
.L -^SD(409.76,DA)
K DA,DR,DIE,SCDESC,I
;
FILE1 N DA,DR,DIE,SCLOGIC,I
S SCLOGIC="S RES=$$PROVCLS^SCMSVUT1(DATA)",I="D000"
S DA="",DA=$O(^SD(409.76,"B",I,"")) Q:DA=""
L +^SD(409.76,I)
S DIE="^SD(409.76,",DR="31///^S X=SCLOGIC" D ^DIE
L -^SD(409.76,DA)
K DA,DR,DIE,SCLOGIC,I
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSC442PST 823 printed Nov 22, 2024@17:47:37 Page 2
SC442PST ;ALB/RLC - POST INIT ROUTINE FOR PATCH 442; [Feb 19, 2004 10:30 am]
+1 ;;5.3;Scheduling;**442**;Aug 13, 1993
+2 ;Per VHA Directive 10-93-142, this routine should not be modified.
+3 ;
+4 ; This post-init routine modifies the narrative description
+5 ; for error codes D00 and D000 in file 409.76
+6 ;
FILE NEW DA,DR,DIE
+1 SET SCDESC="Provider Type Code is missing, invalid or inactive."
+2 SET DA=""
FOR I="D00","D000"
SET DA=$ORDER(^SD(409.76,"B",I,""))
if 'DA
QUIT
Begin DoDot:1
+3 LOCK +^SD(409.76,DA)
+4 SET DIE="^SD(409.76,"
SET DR="11///^S X=SCDESC"
DO ^DIE
+5 LOCK -^SD(409.76,DA)
End DoDot:1
+6 KILL DA,DR,DIE,SCDESC,I
+7 ;
FILE1 NEW DA,DR,DIE,SCLOGIC,I
+1 SET SCLOGIC="S RES=$$PROVCLS^SCMSVUT1(DATA)"
SET I="D000"
+2 SET DA=""
SET DA=$ORDER(^SD(409.76,"B",I,""))
if DA=""
QUIT
+3 LOCK +^SD(409.76,I)
+4 SET DIE="^SD(409.76,"
SET DR="31///^S X=SCLOGIC"
DO ^DIE
+5 LOCK -^SD(409.76,DA)
+6 KILL DA,DR,DIE,SCLOGIC,I
+7 QUIT
