- SC593PST ;HINES/LAI - POST INIT ROUTINE FOR PATCH 593;2/27/2012
- ;;5.3;Scheduling;**593**;Aug 13, 1993;Build 13
- ;Per VHA Directive 10-93-142, this routine should not be modified.
- ;
- ; This post-init routine modifies the narrative description
- ; for error codes 500 and 5000 in file 409.76.
- ;
- EN N DA,DR,DIE
- S SCDESC="Diagnosis code (ICD) is missing or invalid"
- S DA="" F I="500","5000" S DA=$O(^SD(409.76,"B",I,"")) Q:'DA D
- .L +^SD(409.76,DA):$S($G(DILOCKTM)>0:DILOCKTM,1:5)
- .S DIE="^SD(409.76,",DR="11///^S X=SCDESC" D ^DIE
- .L -^SD(409.76,DA)
- K DA,DR,DIE,SCDESC,I
- Q
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSC593PST 597 printed Jan 18, 2025@03:38:50 Page 2
- SC593PST ;HINES/LAI - POST INIT ROUTINE FOR PATCH 593;2/27/2012
- +1 ;;5.3;Scheduling;**593**;Aug 13, 1993;Build 13
- +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 500 and 5000 in file 409.76.
- +6 ;
- EN NEW DA,DR,DIE
- +1 SET SCDESC="Diagnosis code (ICD) is missing or invalid"
- +2 SET DA=""
- FOR I="500","5000"
- SET DA=$ORDER(^SD(409.76,"B",I,""))
- if 'DA
- QUIT
- Begin DoDot:1
- +3 LOCK +^SD(409.76,DA):$SELECT($GET(DILOCKTM)>0:DILOCKTM,1:5)
- +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 QUIT
- +8 ;