XPDCUSTL.m

XPDCUSTL ;SLC/STAFF-SITE TRACKING UPDATE ALL VERSIONS, LOAD ;7/20/94  15:37 [ 04/02/2003   8:29 AM ]

 ;;8.0;KERNEL;**1005,1007**;APR 1, 2003 

 ;;7.1;Kernel;**22,35**;Oct 25, 1993

 ;

LOAD ; from XPDCUSTP

 N DATA,I,II,NAME,OLDNM,ROUTINE

 F I=1:1 S DATA=$P($T(PAC+I),";",3,99) S NAME=$P(DATA,";") Q:'$L(NAME)  S ROUTINE=$P(DATA,";",2) D

 .S $P(^TMP("XPDCUP",$J,NAME),U,4)=ROUTINE

 .F II=3:1  S OLDNM=$P(DATA,";",II) Q:'$L(OLDNM)  D

 ..S $P(^TMP("XPDCUP",$J,OLDNM),U,4,5)=ROUTINE_U_NAME

 Q

 ;

 ; Format used for package updates:

 ; ;;official name;routine1,routine2,...;old name1;old name2;...

PAC ;;

 ;;ACCOUNTS RECEIVABLE;PRCAAD,PRCADEL;

 ;;ADP PLANNING (PLANMAN);PRAPB,PRAPQ;

 ;;AUTO REPLENISHMENT/WARD STOCK;PSGWAR,PSGWPL;

 ;;AUTOMATED MED INFO EXCHANGE;DVBAPEND,DVBCDCK;

 ;;CLINICAL LEXICON UTILITY;GMTA1,GMPTU;

 ;;CLINICAL MONITORING SYSTEM;QAMEDT0,QAMUTL0;

 ;;CONSULT/REQUEST TRACKING;GMRCA,GMRCAR;

 ;;CONTROLLED SUBSTANCES;PSDCOR,PSDEXP;

 ;;CPT/AMB PROCEDURE UPDATE;DGYA,DGYAPRN;

 ;;CREDENTIALS TRACKING;QARCRF,QARCS;

 ;;D&PPM;PSUA,PSUB;

 ;;DENTAL;DENTA,DENT;

 ;;DIETETICS;FH,FHORD;

 ;;DISCHARGE SUMMARY;GMRDU,GMRDLIBS;

 ;;DRG GROUPER;ICDDRG,ICDDRGM;

 ;;DRUG ACCOUNTABILITY;PSACON,PSADA;

 ;;EEO COMPLAINT TRACKING;EEOEEXE,EEOEOE2;

 ;;ENGINEERING;ENEQ,ENETRAN;

 ;;EXTERNAL PEER REVIEW;DGYEPRN,DGYEUTL;

 ;;FEE BASIS;FBCHCD,FBAASAP;

 ;;GEN. MED. REC. - ALLERGIES;GMRADPT,GMRAUTL;ALLERGY TRACKING SYSTEM

 ;;GEN. MED. REC. - GENERATOR;GMRGED0,GMRGRUT0;TEXT GENERATOR

 ;;GEN. MED. REC. - VITALS;GMRVADM,GMRVDS0;VITALS

 ;;GENERIC CODE SHEET;GECSA,GECSX;

 ;;HEALTH LEVEL SEVEN;HLLP,HLTRANS;

 ;;HEALTH SUMMARY;GMTSADH2,GMTSLRA;

 ;;HINQ;DVBHDEL,DVBHQM4;

 ;;ICR - IMMUNOLOGY CASE REGISTRY;IMRDD,IMRTST;

 ;;IFCAP;PRCHSP,PRCHE;IFCAP PACKAGE

 ;;INCIDENT REPORTING;PRMRHINC,PRMRTYPO;

 ;;INCOME VERIFICATION MATCH;IVMXZEL,IVMXZEM;

 ;;INPATIENT MEDICATIONS;PSJADT,PSJAC;

 ;;INTEGRATED BILLING;DGCRMENU,DGCRC;

 ;;INTERIM MANAGEMENT SUPPORT;ECTASP,ECTPFY;

 ;;KERNEL;XUS,XQ1;

 ;;LAB SERVICE;LRPARAM,LRORD;

 ;;LIBRARY;LBRYPPR,LBRYPG;LIBRARY SERVICE

 ;;LIST MANAGER;VALM,VALM1;

 ;;MAILMAN;XMD,XMAP;

 ;;MCCR NATIONAL DATABASE;PRQSD,PRQSG;MCCR NATIONAL DATABASE - FIELD

 ;;MEDICINE;MCAR,MCARP;

 ;;MENTAL HEALTH;YSSR,YSUTL;MENTAL HEALTH SYSTEM

 ;;MISSING PATIENT REGISTER;A4ELOCK,A4ELOCO;

 ;;NATIONAL DRUG FILE;PSNBLD,PSNPFN;

 ;;NURSING SERVICE;NURSUT0,NURSCPL;

 ;;OCCURRENCE SCREEN;QAOSPSM0,QAOSENTR;OCCURRENCE SCREEN/MONITOR

 ;;ONCOLOGY;ONCOUTC,ONCOAS;

 ;;ORDER ENTRY/RESULTS REPORTING;OR,ORSU;

 ;;OUTPATIENT PHARMACY;PSONEW,PSOREF;

 ;;PAID;PRSTKE,PRSTTL;

 ;;PATIENT CARE ENCOUNTER;PXPTNPAT,PTXTXDPT;

 ;;PATIENT DATA EXCHANGE;VAQADD,VAQPRT;

 ;;PATIENT FEEDBACK;A4A8DLT0,A4A8DSRV;

 ;;PATIENT REPRESENTATIVE;QACNEW,QACSTAT;

 ;;PROBLEM LIST;GMPL,GMPL1;

 ;;POLICE & SECURITY;ESPEVID,ESPFM;

 ;;PROGRESS NOTES;GMRPDD,GMRPNKEY;

 ;;PROSTHETICS;RMPRAP,RMPRM;

 ;;QUALITY IMPROVEMENT CHECKLIST;QIPUTL,QIP5;

 ;;RADIOLOGY;RABTCH,RAORD;

 ;;RECORD TRACKING;RTB,RTT;

 ;;REGISTRATION;DGBT1,DGL;

 ;;REMOTE ORDER/ENTRY SYSTEM;RMPFET,RMPFDS;

 ;;SAGG PROJECT;A1B5GE,A1B5UTL;

 ;;SOCIAL WORK;SOWKCO,SOWKRF;

 ;;SURGERY;SROAMIS,SRONR;

 ;;SURVEY GENERATOR;QAPTOT,QAPSTAT;

 ;;TOOLKIT;XTSUMBLD,XTVNUM;

 ;;UNWINDER;XQOR,XQORM;

 ;;UTILIZATION REVIEW;PRMQS,PMRQQ;

 ;;VA FILEMAN;DIC,DIE;FILE MANAGER

 ;;VISIT TRACKING;VSIT,VSITVAR;

 ;;VOLUNTARY SERVICE;ABSVE,ABSVLS;

 ;;

XPDCUSTL  ;SLC/STAFF-SITE TRACKING UPDATE ALL VERSIONS, LOAD ;7/20/94  15:37 [ 04/02/2003   8:29 AM ]

 +1       ;;8.0;KERNEL;**1005,1007**;APR 1, 2003 

 +2       ;;7.1;Kernel;**22,35**;Oct 25, 1993

 +3       ;

LOAD      ; from XPDCUSTP

 +1        NEW DATA,I,II,NAME,OLDNM,ROUTINE

 +2        FOR I=1:1

               SET DATA=$PIECE($TEXT(PAC+I),";",3,99)

               SET NAME=$PIECE(DATA,";")

               IF '$LENGTH(NAME)

                   QUIT 

               SET ROUTINE=$PIECE(DATA,";",2)

               Begin DoDot:1

 +3                SET $PIECE(^TMP("XPDCUP",$JOB,NAME),U,4)=ROUTINE

 +4                FOR II=3:1

                       SET OLDNM=$PIECE(DATA,";",II)

                       IF '$LENGTH(OLDNM)

                           QUIT 

                       Begin DoDot:2

 +5                        SET $PIECE(^TMP("XPDCUP",$JOB,OLDNM),U,4,5)=ROUTINE_U_NAME

                       End DoDot:2

               End DoDot:1

 +6        QUIT 

 +7       ;

 +8       ; Format used for package updates:

 +9       ; ;;official name;routine1,routine2,...;old name1;old name2;...

PAC       ;;

 +1       ;;ACCOUNTS RECEIVABLE;PRCAAD,PRCADEL;

 +2       ;;ADP PLANNING (PLANMAN);PRAPB,PRAPQ;

 +3       ;;AUTO REPLENISHMENT/WARD STOCK;PSGWAR,PSGWPL;

 +4       ;;AUTOMATED MED INFO EXCHANGE;DVBAPEND,DVBCDCK;

 +5       ;;CLINICAL LEXICON UTILITY;GMTA1,GMPTU;

 +6       ;;CLINICAL MONITORING SYSTEM;QAMEDT0,QAMUTL0;

 +7       ;;CONSULT/REQUEST TRACKING;GMRCA,GMRCAR;

 +8       ;;CONTROLLED SUBSTANCES;PSDCOR,PSDEXP;

 +9       ;;CPT/AMB PROCEDURE UPDATE;DGYA,DGYAPRN;

 +10      ;;CREDENTIALS TRACKING;QARCRF,QARCS;

 +11      ;;D&PPM;PSUA,PSUB;

 +12      ;;DENTAL;DENTA,DENT;

 +13      ;;DIETETICS;FH,FHORD;

 +14      ;;DISCHARGE SUMMARY;GMRDU,GMRDLIBS;

 +15      ;;DRG GROUPER;ICDDRG,ICDDRGM;

 +16      ;;DRUG ACCOUNTABILITY;PSACON,PSADA;

 +17      ;;EEO COMPLAINT TRACKING;EEOEEXE,EEOEOE2;

 +18      ;;ENGINEERING;ENEQ,ENETRAN;

 +19      ;;EXTERNAL PEER REVIEW;DGYEPRN,DGYEUTL;

 +20      ;;FEE BASIS;FBCHCD,FBAASAP;

 +21      ;;GEN. MED. REC. - ALLERGIES;GMRADPT,GMRAUTL;ALLERGY TRACKING SYSTEM

 +22      ;;GEN. MED. REC. - GENERATOR;GMRGED0,GMRGRUT0;TEXT GENERATOR

 +23      ;;GEN. MED. REC. - VITALS;GMRVADM,GMRVDS0;VITALS

 +24      ;;GENERIC CODE SHEET;GECSA,GECSX;

 +25      ;;HEALTH LEVEL SEVEN;HLLP,HLTRANS;

 +26      ;;HEALTH SUMMARY;GMTSADH2,GMTSLRA;

 +27      ;;HINQ;DVBHDEL,DVBHQM4;

 +28      ;;ICR - IMMUNOLOGY CASE REGISTRY;IMRDD,IMRTST;

 +29      ;;IFCAP;PRCHSP,PRCHE;IFCAP PACKAGE

 +30      ;;INCIDENT REPORTING;PRMRHINC,PRMRTYPO;

 +31      ;;INCOME VERIFICATION MATCH;IVMXZEL,IVMXZEM;

 +32      ;;INPATIENT MEDICATIONS;PSJADT,PSJAC;

 +33      ;;INTEGRATED BILLING;DGCRMENU,DGCRC;

 +34      ;;INTERIM MANAGEMENT SUPPORT;ECTASP,ECTPFY;

 +35      ;;KERNEL;XUS,XQ1;

 +36      ;;LAB SERVICE;LRPARAM,LRORD;

 +37      ;;LIBRARY;LBRYPPR,LBRYPG;LIBRARY SERVICE

 +38      ;;LIST MANAGER;VALM,VALM1;

 +39      ;;MAILMAN;XMD,XMAP;

 +40      ;;MCCR NATIONAL DATABASE;PRQSD,PRQSG;MCCR NATIONAL DATABASE - FIELD

 +41      ;;MEDICINE;MCAR,MCARP;

 +42      ;;MENTAL HEALTH;YSSR,YSUTL;MENTAL HEALTH SYSTEM

 +43      ;;MISSING PATIENT REGISTER;A4ELOCK,A4ELOCO;

 +44      ;;NATIONAL DRUG FILE;PSNBLD,PSNPFN;

 +45      ;;NURSING SERVICE;NURSUT0,NURSCPL;

 +46      ;;OCCURRENCE SCREEN;QAOSPSM0,QAOSENTR;OCCURRENCE SCREEN/MONITOR

 +47      ;;ONCOLOGY;ONCOUTC,ONCOAS;

 +48      ;;ORDER ENTRY/RESULTS REPORTING;OR,ORSU;

 +49      ;;OUTPATIENT PHARMACY;PSONEW,PSOREF;

 +50      ;;PAID;PRSTKE,PRSTTL;

 +51      ;;PATIENT CARE ENCOUNTER;PXPTNPAT,PTXTXDPT;

 +52      ;;PATIENT DATA EXCHANGE;VAQADD,VAQPRT;

 +53      ;;PATIENT FEEDBACK;A4A8DLT0,A4A8DSRV;

 +54      ;;PATIENT REPRESENTATIVE;QACNEW,QACSTAT;

 +55      ;;PROBLEM LIST;GMPL,GMPL1;

 +56      ;;POLICE & SECURITY;ESPEVID,ESPFM;

 +57      ;;PROGRESS NOTES;GMRPDD,GMRPNKEY;

 +58      ;;PROSTHETICS;RMPRAP,RMPRM;

 +59      ;;QUALITY IMPROVEMENT CHECKLIST;QIPUTL,QIP5;

 +60      ;;RADIOLOGY;RABTCH,RAORD;

 +61      ;;RECORD TRACKING;RTB,RTT;

 +62      ;;REGISTRATION;DGBT1,DGL;

 +63      ;;REMOTE ORDER/ENTRY SYSTEM;RMPFET,RMPFDS;

 +64      ;;SAGG PROJECT;A1B5GE,A1B5UTL;

 +65      ;;SOCIAL WORK;SOWKCO,SOWKRF;

 +66      ;;SURGERY;SROAMIS,SRONR;

 +67      ;;SURVEY GENERATOR;QAPTOT,QAPSTAT;

 +68      ;;TOOLKIT;XTSUMBLD,XTVNUM;

 +69      ;;UNWINDER;XQOR,XQORM;

 +70      ;;UTILIZATION REVIEW;PRMQS,PMRQQ;

 +71      ;;VA FILEMAN;DIC,DIE;FILE MANAGER

 +72      ;;VISIT TRACKING;VSIT,VSITVAR;

 +73      ;;VOLUNTARY SERVICE;ABSVE,ABSVLS;

 +74      ;;