SD722PST ; ALB/ZEB - SD*5.3*722 POST-INSTALL ROUTINE ;1/10/19 13:44
;;5.3;Scheduling;**722**;Aug 13, 1993;Build 26
;;Per VHA Directive 2004-038, this routine should not be modified
;
; Post-install routine for patch 722. Builds the APTDT cross-reference
;
D APTDT
Q ;call at tags
;
APTDT ;build APTDT cross-reference for patient appointments
I '$D(^SDEC("APTDT")) N DIK S DIK="^SDEC(409.84,",DIK(1)=".05^APTDT" D ENALL^DIK
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSD722PST 450 printed Nov 22, 2024@17:56:52 Page 2
SD722PST ; ALB/ZEB - SD*5.3*722 POST-INSTALL ROUTINE ;1/10/19 13:44
+1 ;;5.3;Scheduling;**722**;Aug 13, 1993;Build 26
+2 ;;Per VHA Directive 2004-038, this routine should not be modified
+3 ;
+4 ; Post-install routine for patch 722. Builds the APTDT cross-reference
+5 ;
+6 DO APTDT
+7 ;call at tags
QUIT
+8 ;
APTDT ;build APTDT cross-reference for patient appointments
+1 IF '$DATA(^SDEC("APTDT"))
NEW DIK
SET DIK="^SDEC(409.84,"
SET DIK(1)=".05^APTDT"
DO ENALL^DIK
+2 QUIT
