XU8P467.m

XU8P467 ; BT/OAKLAND - POST ROUTINE;8/2/07

 ;;8.0;KERNEL;**467**;Jul 10, 1995;Build 12

 Q

POST ;

 D ADD,EDIT,COMP

 S X="XU8P467A" X ^%ZOSF("DEL")

 Q

COMP ; compile template

 N X,Y,DMAX S X="XUCT01"

 S Y=$$FIND1^DIC(.4,"","MX","XUSERINQ","","","ERR")

 S DMAX=$$ROUSIZE^DILF I +Y>0 D EN^DIPZ

 Q

ADD ; Add new entries from 957-1131 

 N XUI,XUPR,XUCL,XUSP,XUX12,XUIEN,XUDATA

 F XUI=1:1:150 S XUDATA=$T(DATA+XUI^XU8P467A) Q:XUDATA=" ;;END"  D

 . S XUDATA=$P(XUDATA,";;",2) Q:XUDATA="END"

 . S XUIEN=$P(XUDATA,"^"),XUPR=$P(XUDATA,"^",2),XUCL=$P(XUDATA,"^",3),XUSP=$P(XUDATA,"^",4),XUX12=$P(XUDATA,"^",5)

 . D UPDT(XUIEN,XUPR,XUCL,XUSP,XUX12)

 F XUI=1:1:150 S XUDATA=$T(DATA+XUI) Q:XUDATA=" ;;END"  D

 . S XUDATA=$P(XUDATA,";;",2) Q:XUDATA="END"

 . S XUIEN=$P(XUDATA,"^"),XUPR=$P(XUDATA,"^",2),XUCL=$P(XUDATA,"^",3),XUSP=$P(XUDATA,"^",4),XUX12=$P(XUDATA,"^",5)

 . D UPDT(XUIEN,XUPR,XUCL,XUSP,XUX12)

 Q

EDIT ;Edit entries 954,955,956

 N FDA

 S FDA(8932.1,"954,",.01)="Hospitals",FDA(8932.1,"954,",1)="General Acute Care Hospital",FDA(8932.1,"954,",3)="a"

 D FILE^DIE("","FDA","ZZERR")

 N FDA

 S FDA(8932.1,"955,",.01)="Ambulatory Health Care Facilities",FDA(8932.1,"955,",1)="Clinic/Center"

 S FDA(8932.1,"955,",2)="VA",FDA(8932.1,"955,",3)="a"

 D FILE^DIE("","FDA","ZZERR")

 N FDA

 S FDA(8932.1,"956,",.01)="Suppliers",FDA(8932.1,"956,",1)="Department of Veterans Affairs (VA) Pharmacy",FDA(8932.1,"956,",3)="a"

 D FILE^DIE("","FDA","ZZERR")

 ;

 N FDA ; inactivate the entry #1046

 S FDA(8932.1,"1046,",3)="i",FDA(8932.1,"1046,",4)=3050401

 D FILE^DIE("","FDA","ZZERR")

 Q

UPDT(XUIEN,XUPR,XUCL,XUSP,XUX12) ; add single entry

 N FDA,FDAIEN S FDAIEN(1)=XUIEN

 S FDA(8932.1,"+1,",.01)=XUPR,FDA(8932.1,"+1,",1)=XUCL

 S FDA(8932.1,"+1,",2)=XUSP,FDA(8932.1,"+1,",3)="a"

 S FDA(8932.1,"+1,",6)=XUX12,FDA(8932.1,"+1,",90002)="N"

 D UPDATE^DIE("","FDA","FDAIEN","ERR")

 Q

DATA ; information of entries from 1076-1131

 ;;1076^Residential Treatment Facilities^Community Based Residential Treatment Facility, Mental Retardation and/or Developmental Disabilities^^320900000X

 ;;1077^Residential Treatment Facilities^Psychiatric Residential Treatment Facility^^323P00000X

 ;;1078^Residential Treatment Facilities^Residential Treatment Facility, Emotionally Disturbed Children^^322D00000X

 ;;1079^Residential Treatment Facilities^Residential Treatment Facility, Mental Retardation and/or Developmental Disabilities^^320600000X

 ;;1080^Residential Treatment Facilities^Residential Treatment Facility, Physical Disabilities^^320700000X

 ;;1081^Residential Treatment Facilities^Substance Abuse Rehabilitation Facility^^324500000X

 ;;1082^Residential Treatment Facilities^Substance Abuse Rehabilitation Facility^Substance Abuse Treatment, Children^3245S0500X

 ;;1083^Respite Care Facility^Respite Care^^385H00000X

 ;;1084^Respite Care Facility^Respite Care^Respite Care Camp^385HR2050X

 ;;1085^Respite Care Facility^Respite Care^Respite Care, Mental Illness, Child^385HR2055X

 ;;1086^Respite Care Facility^Respite Care^Respite Care, Mental Retardation and/or Developmental Disabilities^385HR2060X

 ;;1087^Respite Care Facility^Respite Care^Respite Care, Physical Disabilities, Child^385HR2065X

 ;;1088^Suppliers^Blood Bank^^331L00000X

 ;;1089^Suppliers^Durable Medical Equipment & Medical Supplies^^332B00000X

 ;;1090^Suppliers^Durable Medical Equipment & Medical Supplies^Customized Equipment^332BC3200X

 ;;1091^Suppliers^Durable Medical Equipment & Medical Supplies^Dialysis Equipment & Supplies^332BD1200X

 ;;1092^Suppliers^Durable Medical Equipment & Medical Supplies^Nursing Facility Supplies^332BN1400X

 ;;1093^Suppliers^Durable Medical Equipment & Medical Supplies^Oxygen Equipment & Supplies^332BX2000X

 ;;1094^Suppliers^Durable Medical Equipment & Medical Supplies^Parenteral & Enteral Nutrition^332BP3500X

 ;;1095^Suppliers^Emergency Response System Companies^^333300000X

 ;;1096^Suppliers^Eye Bank^^332G00000X

 ;;1097^Suppliers^Eyewear Supplier (Equipment, not the service)^^332H00000X

 ;;1098^Suppliers^Hearing Aid Equipment^^332S00000X

 ;;1099^Suppliers^Home Delivered Meals^^332U00000X

 ;;1100^Suppliers^Indian Health Service/Tribal/Urban Indian Health (I/T/U) Pharmacy^^332800000X

 ;;1101^Suppliers^Military/U.S. Coast Guard Pharmacy^^332000000X

 ;;1102^Suppliers^Non-Pharmacy Dispensing Site^^332900000X

 ;;1103^Suppliers^Organ Procurement Organization^^335U00000X

 ;;1104^Suppliers^Pharmacy^^333600000X

 ;;1105^Suppliers^Pharmacy^Clinic Pharmacy^3336C0002X

 ;;1106^Suppliers^Pharmacy^Community/Retail Pharmacy^3336C0003X

 ;;1107^Suppliers^Pharmacy^Compounding Pharmacy^3336C0004X

 ;;1108^Suppliers^Pharmacy^Home Infusion Therapy Pharmacy^3336H0001X

 ;;1109^Suppliers^Pharmacy^Institutional Pharmacy^3336I0012X

 ;;1110^Suppliers^Pharmacy^Long Term Care Pharmacy^3336L0003X

 ;;1111^Suppliers^Pharmacy^Mail Order Pharmacy^3336M0002X

 ;;1112^Suppliers^Pharmacy^Managed Care Organization Pharmacy^3336M0003X

 ;;1113^Suppliers^Pharmacy^Nuclear Pharmacy^3336N0007X

 ;;1114^Suppliers^Pharmacy^Specialty Pharmacy^3336S0011X

 ;;1115^Suppliers^Portable X-Ray Supplier^^335V00000X

 ;;1116^Suppliers^Prosthetic/Orthotic Supplier^^335E00000X

 ;;1117^Transportation Services^Ambulance^^341600000X

 ;;1118^Transportation Services^Ambulance^Air Transport^3416A0800X

 ;;1119^Transportation Services^Ambulance^Land Transport^3416L0300X

 ;;1120^Transportation Services^Ambulance^Water Transport^3416S0300X

 ;;1121^Transportation Services^Bus^^347B00000X

 ;;1122^Transportation Services^Military/U.S. Coast Guard Transport^^341800000X

 ;;1123^Transportation Services^Military/U.S. Coast Guard Transport^Military or U.S. Coast Guard Ambulance, Air Transport^3418M1120X

 ;;1124^Transportation Services^Military/U.S. Coast Guard Transport^Military or U.S. Coast Guard Ambulance, Ground Transport^3418M1110X

 ;;1125^Transportation Services^Military/U.S. Coast Guard Transport^Military or U.S. Coast Guard Ambulance, Water Transport^3418M1130X

 ;;1126^Transportation Services^Non-emergency Medical Transport (VAN)^^343900000X

 ;;1127^Transportation Services^Private Vehicle^^347C00000X

 ;;1128^Transportation Services^Secured Medical Transport (VAN)^^343800000X

 ;;1129^Transportation Services^Taxi^^344600000X

 ;;1130^Transportation Services^Train^^347D00000X

 ;;1131^Transportation Services^Transportation Broker^^347E00000X

 ;;END

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XU8P467   6403     printed  Mar 13, 2025@21:12:43                                                                                                                                                                                                     Page 2

XU8P467   ; BT/OAKLAND - POST ROUTINE;8/2/07

 +1       ;;8.0;KERNEL;**467**;Jul 10, 1995;Build 12

 +2        QUIT 

POST      ;

 +1        DO ADD

           DO EDIT

           DO COMP

 +2        SET X="XU8P467A"

           XECUTE ^%ZOSF("DEL")

 +3        QUIT 

COMP      ; compile template

 +1        NEW X,Y,DMAX

           SET X="XUCT01"

 +2        SET Y=$$FIND1^DIC(.4,"","MX","XUSERINQ","","","ERR")

 +3        SET DMAX=$$ROUSIZE^DILF

           IF +Y>0

               DO EN^DIPZ

 +4        QUIT 

ADD       ; Add new entries from 957-1131 

 +1        NEW XUI,XUPR,XUCL,XUSP,XUX12,XUIEN,XUDATA

 +2        FOR XUI=1:1:150

               SET XUDATA=$TEXT(DATA+XUI^XU8P467A)

               if XUDATA=" ;;END"

                   QUIT 

               Begin DoDot:1

 +3                SET XUDATA=$PIECE(XUDATA,";;",2)

                   if XUDATA="END"

                       QUIT 

 +4                SET XUIEN=$PIECE(XUDATA,"^")

                   SET XUPR=$PIECE(XUDATA,"^",2)

                   SET XUCL=$PIECE(XUDATA,"^",3)

                   SET XUSP=$PIECE(XUDATA,"^",4)

                   SET XUX12=$PIECE(XUDATA,"^",5)

 +5                DO UPDT(XUIEN,XUPR,XUCL,XUSP,XUX12)

               End DoDot:1

 +6        FOR XUI=1:1:150

               SET XUDATA=$TEXT(DATA+XUI)

               if XUDATA=" ;;END"

                   QUIT 

               Begin DoDot:1

 +7                SET XUDATA=$PIECE(XUDATA,";;",2)

                   if XUDATA="END"

                       QUIT 

 +8                SET XUIEN=$PIECE(XUDATA,"^")

                   SET XUPR=$PIECE(XUDATA,"^",2)

                   SET XUCL=$PIECE(XUDATA,"^",3)

                   SET XUSP=$PIECE(XUDATA,"^",4)

                   SET XUX12=$PIECE(XUDATA,"^",5)

 +9                DO UPDT(XUIEN,XUPR,XUCL,XUSP,XUX12)

               End DoDot:1

 +10       QUIT 

EDIT      ;Edit entries 954,955,956

 +1        NEW FDA

 +2        SET FDA(8932.1,"954,",.01)="Hospitals"

           SET FDA(8932.1,"954,",1)="General Acute Care Hospital"

           SET FDA(8932.1,"954,",3)="a"

 +3        DO FILE^DIE("","FDA","ZZERR")

 +4        NEW FDA

 +5        SET FDA(8932.1,"955,",.01)="Ambulatory Health Care Facilities"

           SET FDA(8932.1,"955,",1)="Clinic/Center"

 +6        SET FDA(8932.1,"955,",2)="VA"

           SET FDA(8932.1,"955,",3)="a"

 +7        DO FILE^DIE("","FDA","ZZERR")

 +8        NEW FDA

 +9        SET FDA(8932.1,"956,",.01)="Suppliers"

           SET FDA(8932.1,"956,",1)="Department of Veterans Affairs (VA) Pharmacy"

           SET FDA(8932.1,"956,",3)="a"

 +10       DO FILE^DIE("","FDA","ZZERR")

 +11      ;

 +12      ; inactivate the entry #1046

           NEW FDA

 +13       SET FDA(8932.1,"1046,",3)="i"

           SET FDA(8932.1,"1046,",4)=3050401

 +14       DO FILE^DIE("","FDA","ZZERR")

 +15       QUIT 

UPDT(XUIEN,XUPR,XUCL,XUSP,XUX12) ; add single entry

 +1        NEW FDA,FDAIEN

           SET FDAIEN(1)=XUIEN

 +2        SET FDA(8932.1,"+1,",.01)=XUPR

           SET FDA(8932.1,"+1,",1)=XUCL

 +3        SET FDA(8932.1,"+1,",2)=XUSP

           SET FDA(8932.1,"+1,",3)="a"

 +4        SET FDA(8932.1,"+1,",6)=XUX12

           SET FDA(8932.1,"+1,",90002)="N"

 +5        DO UPDATE^DIE("","FDA","FDAIEN","ERR")

 +6        QUIT 

DATA      ; information of entries from 1076-1131

 +1       ;;1076^Residential Treatment Facilities^Community Based Residential Treatment Facility, Mental Retardation and/or Developmental Disabilities^^320900000X

 +2       ;;1077^Residential Treatment Facilities^Psychiatric Residential Treatment Facility^^323P00000X

 +3       ;;1078^Residential Treatment Facilities^Residential Treatment Facility, Emotionally Disturbed Children^^322D00000X

 +4       ;;1079^Residential Treatment Facilities^Residential Treatment Facility, Mental Retardation and/or Developmental Disabilities^^320600000X

 +5       ;;1080^Residential Treatment Facilities^Residential Treatment Facility, Physical Disabilities^^320700000X

 +6       ;;1081^Residential Treatment Facilities^Substance Abuse Rehabilitation Facility^^324500000X

 +7       ;;1082^Residential Treatment Facilities^Substance Abuse Rehabilitation Facility^Substance Abuse Treatment, Children^3245S0500X

 +8       ;;1083^Respite Care Facility^Respite Care^^385H00000X

 +9       ;;1084^Respite Care Facility^Respite Care^Respite Care Camp^385HR2050X

 +10      ;;1085^Respite Care Facility^Respite Care^Respite Care, Mental Illness, Child^385HR2055X

 +11      ;;1086^Respite Care Facility^Respite Care^Respite Care, Mental Retardation and/or Developmental Disabilities^385HR2060X

 +12      ;;1087^Respite Care Facility^Respite Care^Respite Care, Physical Disabilities, Child^385HR2065X

 +13      ;;1088^Suppliers^Blood Bank^^331L00000X

 +14      ;;1089^Suppliers^Durable Medical Equipment & Medical Supplies^^332B00000X

 +15      ;;1090^Suppliers^Durable Medical Equipment & Medical Supplies^Customized Equipment^332BC3200X

 +16      ;;1091^Suppliers^Durable Medical Equipment & Medical Supplies^Dialysis Equipment & Supplies^332BD1200X

 +17      ;;1092^Suppliers^Durable Medical Equipment & Medical Supplies^Nursing Facility Supplies^332BN1400X

 +18      ;;1093^Suppliers^Durable Medical Equipment & Medical Supplies^Oxygen Equipment & Supplies^332BX2000X

 +19      ;;1094^Suppliers^Durable Medical Equipment & Medical Supplies^Parenteral & Enteral Nutrition^332BP3500X

 +20      ;;1095^Suppliers^Emergency Response System Companies^^333300000X

 +21      ;;1096^Suppliers^Eye Bank^^332G00000X

 +22      ;;1097^Suppliers^Eyewear Supplier (Equipment, not the service)^^332H00000X

 +23      ;;1098^Suppliers^Hearing Aid Equipment^^332S00000X

 +24      ;;1099^Suppliers^Home Delivered Meals^^332U00000X

 +25      ;;1100^Suppliers^Indian Health Service/Tribal/Urban Indian Health (I/T/U) Pharmacy^^332800000X

 +26      ;;1101^Suppliers^Military/U.S. Coast Guard Pharmacy^^332000000X

 +27      ;;1102^Suppliers^Non-Pharmacy Dispensing Site^^332900000X

 +28      ;;1103^Suppliers^Organ Procurement Organization^^335U00000X

 +29      ;;1104^Suppliers^Pharmacy^^333600000X

 +30      ;;1105^Suppliers^Pharmacy^Clinic Pharmacy^3336C0002X

 +31      ;;1106^Suppliers^Pharmacy^Community/Retail Pharmacy^3336C0003X

 +32      ;;1107^Suppliers^Pharmacy^Compounding Pharmacy^3336C0004X

 +33      ;;1108^Suppliers^Pharmacy^Home Infusion Therapy Pharmacy^3336H0001X

 +34      ;;1109^Suppliers^Pharmacy^Institutional Pharmacy^3336I0012X

 +35      ;;1110^Suppliers^Pharmacy^Long Term Care Pharmacy^3336L0003X

 +36      ;;1111^Suppliers^Pharmacy^Mail Order Pharmacy^3336M0002X

 +37      ;;1112^Suppliers^Pharmacy^Managed Care Organization Pharmacy^3336M0003X

 +38      ;;1113^Suppliers^Pharmacy^Nuclear Pharmacy^3336N0007X

 +39      ;;1114^Suppliers^Pharmacy^Specialty Pharmacy^3336S0011X

 +40      ;;1115^Suppliers^Portable X-Ray Supplier^^335V00000X

 +41      ;;1116^Suppliers^Prosthetic/Orthotic Supplier^^335E00000X

 +42      ;;1117^Transportation Services^Ambulance^^341600000X

 +43      ;;1118^Transportation Services^Ambulance^Air Transport^3416A0800X

 +44      ;;1119^Transportation Services^Ambulance^Land Transport^3416L0300X

 +45      ;;1120^Transportation Services^Ambulance^Water Transport^3416S0300X

 +46      ;;1121^Transportation Services^Bus^^347B00000X

 +47      ;;1122^Transportation Services^Military/U.S. Coast Guard Transport^^341800000X

 +48      ;;1123^Transportation Services^Military/U.S. Coast Guard Transport^Military or U.S. Coast Guard Ambulance, Air Transport^3418M1120X

 +49      ;;1124^Transportation Services^Military/U.S. Coast Guard Transport^Military or U.S. Coast Guard Ambulance, Ground Transport^3418M1110X

 +50      ;;1125^Transportation Services^Military/U.S. Coast Guard Transport^Military or U.S. Coast Guard Ambulance, Water Transport^3418M1130X

 +51      ;;1126^Transportation Services^Non-emergency Medical Transport (VAN)^^343900000X

 +52      ;;1127^Transportation Services^Private Vehicle^^347C00000X

 +53      ;;1128^Transportation Services^Secured Medical Transport (VAN)^^343800000X

 +54      ;;1129^Transportation Services^Taxi^^344600000X

 +55      ;;1130^Transportation Services^Train^^347D00000X

 +56      ;;1131^Transportation Services^Transportation Broker^^347E00000X

 +57      ;;END