SD53325 ;BPFO/JRP - Post init for patch 325;11/10/2003
;;5.3;Scheduling;**325**;Aug 13, 1993
;
PRE ;Main entry point for pre-install
;Do AmbCare pre-install (copied from SD53142)
;Remove ERROR CODE DESCRIPTION (field #11) as an identifier of the
; TRANSMITTED OUTPATIENT ENCOUNTER ERROR CODE file (#409.76)
; (this causes problems when installing error codes)
I ($D(^DD(409.76,0,"ID",11))) D
.N TMP,X
.S X(1)=" "
.S X(2)="Removing ERROR CODE DESCRIPTION (field #11) as an identifier"
.S X(3)="of the TRANSMITTED OUTPATIENT ENCOUNTER ERROR CODE file"
.S X(4)="(#409.76) as it causes problems when installing error codes."
.S X(5)=" "
.D MES^XPDUTL(.X) K X
.K ^DD(409.76,0,"ID",11)
.Q:($D(^DD(409.76,0,"ID")))
.S TMP=$P(^SD(409.76,0),U,2)
.S TMP=$TR(TMP,"I","")
.S $P(^SD(409.76,0),U,2)=TMP
.Q
Q
;
POST ;Main entry point for post-install
N TEXT
;Ensure entry 7 doesn't exist in Outpatient Classification Type file
I $D(^SD(409.41,7)) D
.;Delete entry 7
.N DIK,DA
.K TEXT
.S TEXT(1)=" "
.S TEXT(2)="'Combat Veteran' must be entry number 7 in the Outpatient"
.S TEXT(3)="Classification Type file (#409.41). The existing entry 7"
.S TEXT(4)="will be deleted to ensure that it matches the nationally"
.S TEXT(5)="distributed definition for 'Combat Veteran'."
.D MES^XPDUTL(.TEXT)
.S DIK="^SD(409.41,"
.S DA=7
.D ^DIK
;Create entry in Outpatient Classification Type file (#409.41)
N SDFDA,SDIEN,SDMSG
K TEXT
S TEXT(1)=" "
S TEXT(2)="Creating 'Combat Veteran' entry in Outpatient Classification"
S TEXT(3)="Type file (#409.41) as entry number 7 ..."
D MES^XPDUTL(.TEXT)
S SDFDA(409.41,"+1,",.01)="COMBAT VETERAN"
S SDFDA(409.41,"+1,",.02)="Was treatment related to Combat"
S SDFDA(409.41,"+1,",.03)="YES/NO"
S SDFDA(409.41,"+1,",.05)="YES"
S SDFDA(409.41,"+1,",.06)="Combat Vet (Combat Related)"
S SDFDA(409.41,"+1,",.07)="CV"
S SDFDA(409.41,"+1,",1)="I $$CV^SDCO22(DFN,$G(SDOE),$G(SDDT))"
S SDFDA(409.41,"+1,",2)="@"
S SDFDA(409.41,"+1,",50)="@"
S SDFDA(409.4175,"+2,+1,",.01)="SEPTEMBER 1, 2002"
S SDFDA(409.4175,"+2,+1,",.02)="YES"
S SDIEN(1)=7
D UPDATE^DIE("E","SDFDA","SDIEN","SDMSG")
I $D(SDMSG) D
.D MES^XPDUTL("** Unable to create entry **")
.K TEXT
.D MSG^DIALOG("ASE",.TEXT,60,3,"SDMSG")
.D MES^XPDUTL(.TEXT)
I '$D(SDMSG) D
.K TEXT
.S TEXT(1)=" "
.S TEXT(2)="'Combat Veteran' successfully added to Outpatient Classification"
.S TEXT(3)="Type file (#409.41)"
.D MES^XPDUTL(.TEXT)
;Do AmbCare post-init
D POST^SD53325A
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSD53325 2567 printed Nov 22, 2024@17:55:07 Page 2
SD53325 ;BPFO/JRP - Post init for patch 325;11/10/2003
+1 ;;5.3;Scheduling;**325**;Aug 13, 1993
+2 ;
PRE ;Main entry point for pre-install
+1 ;Do AmbCare pre-install (copied from SD53142)
+2 ;Remove ERROR CODE DESCRIPTION (field #11) as an identifier of the
+3 ; TRANSMITTED OUTPATIENT ENCOUNTER ERROR CODE file (#409.76)
+4 ; (this causes problems when installing error codes)
+5 IF ($DATA(^DD(409.76,0,"ID",11)))
Begin DoDot:1
+6 NEW TMP,X
+7 SET X(1)=" "
+8 SET X(2)="Removing ERROR CODE DESCRIPTION (field #11) as an identifier"
+9 SET X(3)="of the TRANSMITTED OUTPATIENT ENCOUNTER ERROR CODE file"
+10 SET X(4)="(#409.76) as it causes problems when installing error codes."
+11 SET X(5)=" "
+12 DO MES^XPDUTL(.X)
KILL X
+13 KILL ^DD(409.76,0,"ID",11)
+14 if ($DATA(^DD(409.76,0,"ID")))
QUIT
+15 SET TMP=$PIECE(^SD(409.76,0),U,2)
+16 SET TMP=$TRANSLATE(TMP,"I","")
+17 SET $PIECE(^SD(409.76,0),U,2)=TMP
+18 QUIT
End DoDot:1
+19 QUIT
+20 ;
POST ;Main entry point for post-install
+1 NEW TEXT
+2 ;Ensure entry 7 doesn't exist in Outpatient Classification Type file
+3 IF $DATA(^SD(409.41,7))
Begin DoDot:1
+4 ;Delete entry 7
+5 NEW DIK,DA
+6 KILL TEXT
+7 SET TEXT(1)=" "
+8 SET TEXT(2)="'Combat Veteran' must be entry number 7 in the Outpatient"
+9 SET TEXT(3)="Classification Type file (#409.41). The existing entry 7"
+10 SET TEXT(4)="will be deleted to ensure that it matches the nationally"
+11 SET TEXT(5)="distributed definition for 'Combat Veteran'."
+12 DO MES^XPDUTL(.TEXT)
+13 SET DIK="^SD(409.41,"
+14 SET DA=7
+15 DO ^DIK
End DoDot:1
+16 ;Create entry in Outpatient Classification Type file (#409.41)
+17 NEW SDFDA,SDIEN,SDMSG
+18 KILL TEXT
+19 SET TEXT(1)=" "
+20 SET TEXT(2)="Creating 'Combat Veteran' entry in Outpatient Classification"
+21 SET TEXT(3)="Type file (#409.41) as entry number 7 ..."
+22 DO MES^XPDUTL(.TEXT)
+23 SET SDFDA(409.41,"+1,",.01)="COMBAT VETERAN"
+24 SET SDFDA(409.41,"+1,",.02)="Was treatment related to Combat"
+25 SET SDFDA(409.41,"+1,",.03)="YES/NO"
+26 SET SDFDA(409.41,"+1,",.05)="YES"
+27 SET SDFDA(409.41,"+1,",.06)="Combat Vet (Combat Related)"
+28 SET SDFDA(409.41,"+1,",.07)="CV"
+29 SET SDFDA(409.41,"+1,",1)="I $$CV^SDCO22(DFN,$G(SDOE),$G(SDDT))"
+30 SET SDFDA(409.41,"+1,",2)="@"
+31 SET SDFDA(409.41,"+1,",50)="@"
+32 SET SDFDA(409.4175,"+2,+1,",.01)="SEPTEMBER 1, 2002"
+33 SET SDFDA(409.4175,"+2,+1,",.02)="YES"
+34 SET SDIEN(1)=7
+35 DO UPDATE^DIE("E","SDFDA","SDIEN","SDMSG")
+36 IF $DATA(SDMSG)
Begin DoDot:1
+37 DO MES^XPDUTL("** Unable to create entry **")
+38 KILL TEXT
+39 DO MSG^DIALOG("ASE",.TEXT,60,3,"SDMSG")
+40 DO MES^XPDUTL(.TEXT)
End DoDot:1
+41 IF '$DATA(SDMSG)
Begin DoDot:1
+42 KILL TEXT
+43 SET TEXT(1)=" "
+44 SET TEXT(2)="'Combat Veteran' successfully added to Outpatient Classification"
+45 SET TEXT(3)="Type file (#409.41)"
+46 DO MES^XPDUTL(.TEXT)
End DoDot:1
+47 ;Do AmbCare post-init
+48 DO POST^SD53325A
+49 QUIT
