SD53441 ;ALB/MRY - Post init for patch 441;6/20/2005
;;5.3;Scheduling;**441**;Aug 13, 1993;Build 14
;
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
;Change 'Environmental Contaminants' to 'Southwest Asia Conditions'
N ENTRY,FDATA,SDX,SDSAVX
S ENTRY=+$O(^SD(409.41,"B","ENVIRONMENTAL CONTAMINANTS",0)) I ENTRY D
.S FDATA(409.41,ENTRY_",",.01)="SW ASIA CONDITIONS"
.S FDATA(409.41,ENTRY_",",.02)="Was treatment related to service in SW Asia"
.S FDATA(409.41,ENTRY_",",.06)="SW Asia Conditions"
.S SDSAVX=$P(^DD(409.41,.01,0),"^",2)
.S SDX=$P(SDSAVX,"I",1)_$P(SDSAVX,"I",2,99) ;REMOVE THE 'I'
.S $P(^DD(409.41,.01,0),U,2)=SDX
.D FILE^DIE("E","FDATA","ERR")
.S $P(^DD(409.41,.01,0),"^",2)=SDSAVX
.D BMES^XPDUTL("*****")
.D MES^XPDUTL("Edit to the OUTPATIENT CLASSIFICATION TYPE file (#409.41)")
.D MES^XPDUTL("...Replacing 'ENVIRONMENTAL CONTAMINANTS' with...")
.D MES^XPDUTL("...'SW ASIA CONDITIONS'.")
.D MES^XPDUTL("*****")
N TEXT
;Ensure entry 8 doesn't exist in Outpatient Classification Type file
I $D(^SD(409.41,8)) D
.;Delete entry 8
.N DIK,DA
.K TEXT
.S TEXT(1)=" "
.S TEXT(2)="'Project 112/SHAD' must be entry number 8 in the Outpatient"
.S TEXT(3)="Classification Type file (#409.41). The existing entry 8"
.S TEXT(4)="will be deleted to ensure that it matches the nationally"
.S TEXT(5)="distributed definition for 'Project 112/SHAD'."
.D MES^XPDUTL(.TEXT)
.S DIK="^SD(409.41,"
.S DA=8
.D ^DIK
;Create entry in Outpatient Classification Type file (#409.41)
N SDFDA,SDIEN,SDMSG
K TEXT
S TEXT(1)=" "
S TEXT(2)="Creating 'PROJ 112/SHAD' entry in Outpatient Classification"
S TEXT(3)="Type file (#409.41) as entry number 8 ..."
D MES^XPDUTL(.TEXT)
S SDFDA(409.41,"+1,",.01)="PROJ 112/SHAD"
S SDFDA(409.41,"+1,",.02)="Was treatment related to PROJ 112/SHAD"
S SDFDA(409.41,"+1,",.03)="YES/NO"
S SDFDA(409.41,"+1,",.05)="YES"
S SDFDA(409.41,"+1,",.06)="PROJ 112/SHAD"
S SDFDA(409.41,"+1,",.07)="SHAD"
S SDFDA(409.41,"+1,",1)="I $$SHAD^SDCO22(DFN)"
S SDFDA(409.41,"+1,",2)="@"
S SDFDA(409.41,"+1,",50)="@"
S SDFDA(409.4175,"+2,+1,",.01)="SEPTEMBER 1, 2004"
S SDFDA(409.4175,"+2,+1,",.02)="YES"
S SDIEN(1)=8
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)="'PROJ 112/SHAD' successfully added to Outpatient Classification"
.S TEXT(3)="Type file (#409.41)"
.D MES^XPDUTL(.TEXT)
;Do AmbCare post-init
D POST^SD53441A
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSD53441 3361 printed Apr 09, 2024@21:57:26 Page 2
SD53441 ;ALB/MRY - Post init for patch 441;6/20/2005
+1 ;;5.3;Scheduling;**441**;Aug 13, 1993;Build 14
+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 ;Change 'Environmental Contaminants' to 'Southwest Asia Conditions'
+2 NEW ENTRY,FDATA,SDX,SDSAVX
+3 SET ENTRY=+$ORDER(^SD(409.41,"B","ENVIRONMENTAL CONTAMINANTS",0))
IF ENTRY
Begin DoDot:1
+4 SET FDATA(409.41,ENTRY_",",.01)="SW ASIA CONDITIONS"
+5 SET FDATA(409.41,ENTRY_",",.02)="Was treatment related to service in SW Asia"
+6 SET FDATA(409.41,ENTRY_",",.06)="SW Asia Conditions"
+7 SET SDSAVX=$PIECE(^DD(409.41,.01,0),"^",2)
+8 ;REMOVE THE 'I'
SET SDX=$PIECE(SDSAVX,"I",1)_$PIECE(SDSAVX,"I",2,99)
+9 SET $PIECE(^DD(409.41,.01,0),U,2)=SDX
+10 DO FILE^DIE("E","FDATA","ERR")
+11 SET $PIECE(^DD(409.41,.01,0),"^",2)=SDSAVX
+12 DO BMES^XPDUTL("*****")
+13 DO MES^XPDUTL("Edit to the OUTPATIENT CLASSIFICATION TYPE file (#409.41)")
+14 DO MES^XPDUTL("...Replacing 'ENVIRONMENTAL CONTAMINANTS' with...")
+15 DO MES^XPDUTL("...'SW ASIA CONDITIONS'.")
+16 DO MES^XPDUTL("*****")
End DoDot:1
+17 NEW TEXT
+18 ;Ensure entry 8 doesn't exist in Outpatient Classification Type file
+19 IF $DATA(^SD(409.41,8))
Begin DoDot:1
+20 ;Delete entry 8
+21 NEW DIK,DA
+22 KILL TEXT
+23 SET TEXT(1)=" "
+24 SET TEXT(2)="'Project 112/SHAD' must be entry number 8 in the Outpatient"
+25 SET TEXT(3)="Classification Type file (#409.41). The existing entry 8"
+26 SET TEXT(4)="will be deleted to ensure that it matches the nationally"
+27 SET TEXT(5)="distributed definition for 'Project 112/SHAD'."
+28 DO MES^XPDUTL(.TEXT)
+29 SET DIK="^SD(409.41,"
+30 SET DA=8
+31 DO ^DIK
End DoDot:1
+32 ;Create entry in Outpatient Classification Type file (#409.41)
+33 NEW SDFDA,SDIEN,SDMSG
+34 KILL TEXT
+35 SET TEXT(1)=" "
+36 SET TEXT(2)="Creating 'PROJ 112/SHAD' entry in Outpatient Classification"
+37 SET TEXT(3)="Type file (#409.41) as entry number 8 ..."
+38 DO MES^XPDUTL(.TEXT)
+39 SET SDFDA(409.41,"+1,",.01)="PROJ 112/SHAD"
+40 SET SDFDA(409.41,"+1,",.02)="Was treatment related to PROJ 112/SHAD"
+41 SET SDFDA(409.41,"+1,",.03)="YES/NO"
+42 SET SDFDA(409.41,"+1,",.05)="YES"
+43 SET SDFDA(409.41,"+1,",.06)="PROJ 112/SHAD"
+44 SET SDFDA(409.41,"+1,",.07)="SHAD"
+45 SET SDFDA(409.41,"+1,",1)="I $$SHAD^SDCO22(DFN)"
+46 SET SDFDA(409.41,"+1,",2)="@"
+47 SET SDFDA(409.41,"+1,",50)="@"
+48 SET SDFDA(409.4175,"+2,+1,",.01)="SEPTEMBER 1, 2004"
+49 SET SDFDA(409.4175,"+2,+1,",.02)="YES"
+50 SET SDIEN(1)=8
+51 DO UPDATE^DIE("E","SDFDA","SDIEN","SDMSG")
+52 IF $DATA(SDMSG)
Begin DoDot:1
+53 DO MES^XPDUTL("** Unable to create entry **")
+54 KILL TEXT
+55 DO MSG^DIALOG("ASE",.TEXT,60,3,"SDMSG")
+56 DO MES^XPDUTL(.TEXT)
End DoDot:1
+57 IF '$DATA(SDMSG)
Begin DoDot:1
+58 KILL TEXT
+59 SET TEXT(1)=" "
+60 SET TEXT(2)="'PROJ 112/SHAD' successfully added to Outpatient Classification"
+61 SET TEXT(3)="Type file (#409.41)"
+62 DO MES^XPDUTL(.TEXT)
End DoDot:1
+63 ;Do AmbCare post-init
+64 DO POST^SD53441A
+65 QUIT
