SC442PST.m

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 ---SC442PST   823     printed  Apr 09, 2024@22:03:19                                                                                                                                                                                                     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