ME» iPPRNet Data Loader?*k( ã@“à?ÿ¦â@e\Ô(éÿï?¦â@ Óâ@:PPRNet Data Loader (c) 2004, 2006 by Donald T. Stewart, MDT?Modified for Patient Records V8.x 2005 by Robert C. Glorioso MDTkSpruced up a bit more, added more error trapping, with more remarks in the documentation by dts, 9/25/2006T1N1 is Counter; N2 is PPRNet ID; N3 is PP IDT=C1 is Excel: C2 is FName: C3 is MI; C4 is LName; C20 is Acct#T`T2 is FName: T3 is MI: T4 is LName T5 is SSN T6 is Sex T7 was DOB but not supported in dbgui8T1T8 is address1 T9 is address2 T10 is address 3TMT11 City; T12 State; T13 Zip; T14 Home Phone; T15 Work Phone: T16 Cell phoneTKT17 Fax; T18 Email; T20 is Acct# T21 tests that DBGUI entry field is blankT2001.5T00150T®First open up the DBGui program and log in -- change the directories and paths in the following 4 lines to match your system and in the subsequent Activate or Launch commandsT.P:\T!#01120 P:\DBGui8.exePatient QueryTo T00000005ThFCenterCenterClick on "Resume" after you are logged in to DBGui and have your PPRNet Spreadsheet openTT!]011202C:\Program Files\Microsoft Office\Office\EXCEL.EXEQ:\ppart\200316.xlsMicrosoft ExcelTkSet variable N1 to one less than the first row you will be looking up in the spreadsheet, row "1" to startT}1T3Now add columns to your spreadsheet for the PP DataTÐ? EXCEL.EXEXLMAINMicrosoft ExcelXLDESKEXCEL7200316TThis opens a GoTo box in ExcelT gT‡Type the name of the column where you want to start adding patient demographics. in this case it is EF, followed by 1 for the first rowT ef1TThis is the first new columnTPP ID TAnd these are the rest of themTaFName MI LName SSN Sex DOB Address 1 Address 2 Address 3 City State Zip Home Phone Work Phone Cell Phone Fax E-Mail TžT,Now we start the loop that does all the workTDSet Repeat until N1 = one more than the last row on your spreadsheetT„ N1T10000T!]011202E:\Program Files\Microsoft Office\Office\Excel.exeQ:\ppart\200316.xlsMicrosoft ExcelT(This next line moves you to the next rowT€TF1TÐ? EXCEL.EXEXLMAINMicrosoft ExcelXLDESKEXCEL7200316T gT@This moves you to the PPRnet patient ID, the next line copies itT b%N1%TTuF01T4Now set vairable N2 to the current PPRNet patient IDT} TuF01T2Test that we are not at the end of the spreadsheetT‰N-10FôF†F.P:\T!#01120 P:\DBGui8.exePatient QueryTÐ,€ DBGUI8.EXE#32770 Patient QueryEditTÒTuF01T–%N2%T8Check that a record is found, blank the variables if notTthe account number goes to T20TÐ,€ DBGUI8.EXE#32770 Patient QueryEditTÔTTTuF01TT|TuF01TT‰T-1T!get the first name to variable T2TÐ,€ DBGUI8.EXE#32770 Patient Query#EditTÔTget the MI to T3TÐ,€ DBGUI8.EXE#32770 Patient Query'EditTÔTget the last name to T4TÐ,€ DBGUI8.EXE#32770 Patient Query%EditTÔTget the ssn to T5TÐ,€ DBGUI8.EXE#32770 Patient QueryEditTÔT get sex to T6TÐ,€ DBGUI8.EXE#32770 Patient Query EditTÔT get dob to T7FÔFget address1 to T8TÐ,€ DBGUI8.EXE#32770 Patient QueryEditTÔTaddress2 to T9TÐ,€ DBGUI8.EXE#32770 Patient QueryEditTÔTaddress3 to T10TÐ, € DBGUI8.EXE#32770 Patient QueryEditTÔ T city to T11TÐ, € DBGUI8.EXE#32770 Patient QueryEditTÔ T state to T12TÐ, € DBGUI8.EXE#32770 Patient QueryEditTÔ T zip to T13TÐ, € DBGUI8.EXE#32770 Patient QueryEditTÔ Thome phont to T14TÐ, € DBGUI8.EXE#32770 Patient QueryEditTÔ Twork phone to T15TÐ,€ DBGUI8.EXE#32770 Patient QueryEditTÔTCell phone to T16TÐ,€ DBGUI8.EXE#32770 Patient QueryEditTÔT fax to T17TÐ,€ DBGUI8.EXE#32770 Patient QueryEditTÔT email to T18TÐ,€ DBGUI8.EXE#32770 Patient Query EditTÔT‡T-If record not found, blank out the variablesT|T|T|T|T|T|T|T|T|T| T| T| T| T| T|T|T|T|T†T7Now paste these variables into the new columns we addedT!]011202E:\Program Files\Microsoft Office\Office\Excel.exeQ:\ppart\200316.xlsMicrosoft ExcelTÐ? EXCEL.EXEXLMAINMicrosoft ExcelXLDESKEXCEL7200316T gT ef%N1%T%T1%T T%T2%T T%T3%T T%T4%T T%T5%T T%T6%T T%T7%T T%T8%T T%T9%T T%T10%T T%T11%T T%T12%T T%T13%T T%T14%T T%T15%T T%T16%T T%T17%T T%T18%T TT\BYB