- 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 Apr 23, 2025@18:59:40 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
