PSA48P17 ;VMP/PDW-BUILD MCKESSON XTMP( ;9/19/2004
;;3.0;DRUG ACCOUNTABILITY/INVENTORY INTERFACE;**48**;10/24/97
;;1431808~100^1431824~25^1431840~42.5^1431857~100^1431956~30^1431972~100^1432129~10^1432137~500^1432178~30^1432277~1000^
;;1432467~1000^1432483~50^1432558~500^1432566~1^1432582~500^1432608~100^1432871~10^1433119~100^1433275~28.35^1433408~100^
;;1433507~12^1433572~100^1433812~60^1433853~5^1434125~1^1434166~100^1434174~500^1434356~100^1434505~42.5^1434539~1000^
;;1434604~30^1435171~100^1435189~100^1435205~100^1435221~100^1435270~25^1435296~1^1435304~100^1435312~100^1435346~1000^
;;1435353~100^1435486~100^1435585~500^1435684~100^1435700~1^1435759~500^1435791~12^1435858~2000^1435940~100^1435957~100^
;;1435965~5^1435973~100^1436013~5^1436203~100^1436229~100^1436286~1^1436310~100^1436344~100^1436351~100^1436575~20^
;;1436724~500^1436815~100^1436856~60^1436955~2000^1437011~1^1437045~15^1437102~5^1437110~15^1437235~500^1437326~90^
;;1437391~15^1437417~30^1437466~100^1437474~100^1437540~118^1437557~1000^1437565~100^1437581~100^1437607~1^1437615~100^
;;1437649~100^1437797~12^1437805~24^1437813~48^1437862~1500^1437938~12^1437961~473^1438084~100^1438167~100^1438183~100^
;;1438191~1000^1438209~100^1438217~1000^1438225~100^1438258~30^1438399~100^1438506~100^1438597~144^1438605~30^1438639~2000^
;;1438738~250^1438837~100^1438878~473^1439108~500^1439249~144^1439330~500^1439397~15^1439421~1^1439504~100^1439512~6^
;;1439744~15^1439777~5^1439785~120^1440171~6^1440346~250^1440361~1000^1440387~100^1440551~500^1440569~355^1440593~5^
;;1440742~12^1440767~5000^1441112~4^1441229~120^1441328~5^1441633~12^1441666~60^1441724~5^1441757~12^1441799~12^
;;1441831~5^1442177~50^1442185~237^1442250~100^1442326~10^1442391~500^1442508~15^1442540~100^1442557~20^1442656~50^
;;1442664~90^1442680~1000^1442698~1^1442730~500^1442763~1000^1442771~100^1442805~100^1442862~1^1443027~1^1443100~120^
;;1443126~100^1443134~20^1443142~1^1443175~100^1443274~15^1443282~15^1443316~500^1443399~100^1443415~100^1443449~100^
;;1443456~60^1443498~100^1443514~5^1443555~1000^1443563~40^1443589~30^1443621~1000^1443647~15^1443670~90^1443688~100^
;;1443696~100^1443787~100^1443795~100^1443803~60^1443886~100^1443910~500^1443928~100^1443969~100^1443977~1000^1444025~100^
;;1444033~120^1444082~10^1444140~360^1444165~200^1444264~500^1444272~100^1444298~100^1444413~1000^1444447~36^1444454~100^
;;1444462~1000^1444470~100^1444496~100^1444579~100^1444587~100^1444611~100^1444645~100^1444777~25^1444785~100^1444827~480^
;;1444850~500^1444868~100^1444942~90^1445022~100^1445055~100^1445089~90^1445113~25^1445162~100^1445188~100^1445220~118^
;;1445238~90^1445246~30^1445311~30^1445360~150^1445402~50^1445410~30^1445451~12^1445493~500^1445535~150^1445543~100^
;;1445568~12^1445618~1000^1445626~175^1445667~473^1445683~100^1445717~1^1445725~100^1445758~30^1445808~368^1445832~120^
;;1445865~240^1445881~100^1445899~473^1445931~30^1445956~100^1445998~120^1446012~60^1446038~473^1446053~1000^1446103~20^
;;1446152~30^1446210~30^1446236~1^1446327~500^1446384~28.4^1446400~100^1446517~500^1446582~100^1446590~3.5^1446632~100^
;;1446673~50^1446681~1000^1446780~60^1446897~1000^1446939~100^1447028~100^1447044~24^1447119~500^1447143~100^1447150~100^
;;1447168~30^1447226~500^1447234~1000^1447283~500^1447291~200^1447317~100^1447424~100^1447572~100^1447580~60^1447614~100^
;;1447655~100^1447739~500^1447788~180^1447796~2^1447895~100^1448042~60^1448117~100^1448232~120^1448265~1000^1448323~1000^
;;1448539~50^1448547~240^1448554~500^1448620~500^1448646~1000^1448737~454^1448786~100^1448828~100^1448836~100^1448877~500^
;;1449107~450^1449123~1000^1449172~1^1449180~480^1449222~100^1449289~59^1449313~473^1449404~100^1449438~118^1449453~15^
;;1449529~10^1449537~100^1449552~45^1449578~100^1449586~20^1449594~500^1449628~90^1449669~480^1449768~500^1449776~1^
;;1449800~100^1449917~1^1449958~100^1449982~100^1450006~90^1450139~1^1450147~100^1450220~100^1450238~50^1450261~100^
;;1450279~118^1450352~100^1450386~15^1450428~500^1450436~50^1450469~100^1450576~100^1450584~1^1450618~1000^1450626~100^
;;1450725~100^1450733~100^1450758~100^1450790~100^1450816~28^1450840~100^1450857~2^1450873~20^1450881~100^1451004~100^
;;1451046~100^1451079~500^1451129~15^1451137~500^1451236~30^1451269~100^1451285~30^1451319~100^1451400~1000^1451426~4^
;;1451459~500^1451533~12^1451558~100^1451582~100^1451590~100^1451608~1000^1451616~60^1451657~100^1451723~100^1451798~1^
;;1451814~30^1451855~100^1451863~240^1451871~100^1451889~500^1451897~60^1451954~100^1451996~480^1452077~51^1452101~1000^
;;1452143~100^1452226~100^1452283~1000^1452366~1^1452374~100^1452382~480^1452499~100^1452507~100^1452556~500^1452671~100^
;;1452762~120^1452770~240^1452820~1000^1452986~100^1453133~500^1453281~100^1453307~1000^1453364~30^1453422~50^1453455~1000^
;;1453539~100^1453646~10^1453661~100^1453695~10^1453703~1^1453836~500^1453919~120^1453950~100^1453984~100^1454065~1^
;;1454164~1000^1454180~150^1454321~473^1454396~200^1454446~1000^1454784~4^1454818~100^1454933~473^1454990~1000^1455021~100^
;;1455237~500^1455286~15^1455294~1000^1455385~500^1455492~473^1455559~10^1455575~10^1455609~1^1455740~15^1455898~100^
;;1455914~100^1455930~100^1455955~100^1455997~100^1456136~100^1456151~100^1456185~100^1456193~1000^1456201~100^1456342~120^
;;1456375~60^1456540~100^1456706~100^1456748~50^1456979~473^1457183~10^1457233~100^1457571~10^1457654~15^1457704~100^
;;1457779~5^1457936~100^1458033~120^1458215~12^1458231~12^1458249~12^1458355~100^1458892~2^1458942~30^1458983~46^
;;1459254~5^1459403~24^1459635~20^1459668~5^1459692~1000^1459726~15^1459841~20^1459890~5^1459916~100^1459932~8^
;;1459999~5^1460088~1000^1460112~10^1460179~100^1460211~10^1460310~8^1460344~5^1460351~5^1460385~5^1460740~100^
;;1460757~100^1460765~28^1460864~60^1461078~500^1461102~15^1461144~5^1461177~1^1461201~15^1461219~240^1461227~5^
;;1461235~5^1461250~63^1461334~1000^1461342~25^1461458~15^1461490~50^1461631~100^1461714~165^1461730~100^1461748~100^
;;1461755~60^1461789~100^1461805~1^1461813~1^1461912~473^1461979~500^1462035~473^1462084~100^1462142~473^1462225~60^
;;END
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSA48P17 6181 printed Dec 13, 2024@01:48:17 Page 2
PSA48P17 ;VMP/PDW-BUILD MCKESSON XTMP( ;9/19/2004
+1 ;;3.0;DRUG ACCOUNTABILITY/INVENTORY INTERFACE;**48**;10/24/97
+2 ;;1431808~100^1431824~25^1431840~42.5^1431857~100^1431956~30^1431972~100^1432129~10^1432137~500^1432178~30^1432277~1000^
+3 ;;1432467~1000^1432483~50^1432558~500^1432566~1^1432582~500^1432608~100^1432871~10^1433119~100^1433275~28.35^1433408~100^
+4 ;;1433507~12^1433572~100^1433812~60^1433853~5^1434125~1^1434166~100^1434174~500^1434356~100^1434505~42.5^1434539~1000^
+5 ;;1434604~30^1435171~100^1435189~100^1435205~100^1435221~100^1435270~25^1435296~1^1435304~100^1435312~100^1435346~1000^
+6 ;;1435353~100^1435486~100^1435585~500^1435684~100^1435700~1^1435759~500^1435791~12^1435858~2000^1435940~100^1435957~100^
+7 ;;1435965~5^1435973~100^1436013~5^1436203~100^1436229~100^1436286~1^1436310~100^1436344~100^1436351~100^1436575~20^
+8 ;;1436724~500^1436815~100^1436856~60^1436955~2000^1437011~1^1437045~15^1437102~5^1437110~15^1437235~500^1437326~90^
+9 ;;1437391~15^1437417~30^1437466~100^1437474~100^1437540~118^1437557~1000^1437565~100^1437581~100^1437607~1^1437615~100^
+10 ;;1437649~100^1437797~12^1437805~24^1437813~48^1437862~1500^1437938~12^1437961~473^1438084~100^1438167~100^1438183~100^
+11 ;;1438191~1000^1438209~100^1438217~1000^1438225~100^1438258~30^1438399~100^1438506~100^1438597~144^1438605~30^1438639~2000^
+12 ;;1438738~250^1438837~100^1438878~473^1439108~500^1439249~144^1439330~500^1439397~15^1439421~1^1439504~100^1439512~6^
+13 ;;1439744~15^1439777~5^1439785~120^1440171~6^1440346~250^1440361~1000^1440387~100^1440551~500^1440569~355^1440593~5^
+14 ;;1440742~12^1440767~5000^1441112~4^1441229~120^1441328~5^1441633~12^1441666~60^1441724~5^1441757~12^1441799~12^
+15 ;;1441831~5^1442177~50^1442185~237^1442250~100^1442326~10^1442391~500^1442508~15^1442540~100^1442557~20^1442656~50^
+16 ;;1442664~90^1442680~1000^1442698~1^1442730~500^1442763~1000^1442771~100^1442805~100^1442862~1^1443027~1^1443100~120^
+17 ;;1443126~100^1443134~20^1443142~1^1443175~100^1443274~15^1443282~15^1443316~500^1443399~100^1443415~100^1443449~100^
+18 ;;1443456~60^1443498~100^1443514~5^1443555~1000^1443563~40^1443589~30^1443621~1000^1443647~15^1443670~90^1443688~100^
+19 ;;1443696~100^1443787~100^1443795~100^1443803~60^1443886~100^1443910~500^1443928~100^1443969~100^1443977~1000^1444025~100^
+20 ;;1444033~120^1444082~10^1444140~360^1444165~200^1444264~500^1444272~100^1444298~100^1444413~1000^1444447~36^1444454~100^
+21 ;;1444462~1000^1444470~100^1444496~100^1444579~100^1444587~100^1444611~100^1444645~100^1444777~25^1444785~100^1444827~480^
+22 ;;1444850~500^1444868~100^1444942~90^1445022~100^1445055~100^1445089~90^1445113~25^1445162~100^1445188~100^1445220~118^
+23 ;;1445238~90^1445246~30^1445311~30^1445360~150^1445402~50^1445410~30^1445451~12^1445493~500^1445535~150^1445543~100^
+24 ;;1445568~12^1445618~1000^1445626~175^1445667~473^1445683~100^1445717~1^1445725~100^1445758~30^1445808~368^1445832~120^
+25 ;;1445865~240^1445881~100^1445899~473^1445931~30^1445956~100^1445998~120^1446012~60^1446038~473^1446053~1000^1446103~20^
+26 ;;1446152~30^1446210~30^1446236~1^1446327~500^1446384~28.4^1446400~100^1446517~500^1446582~100^1446590~3.5^1446632~100^
+27 ;;1446673~50^1446681~1000^1446780~60^1446897~1000^1446939~100^1447028~100^1447044~24^1447119~500^1447143~100^1447150~100^
+28 ;;1447168~30^1447226~500^1447234~1000^1447283~500^1447291~200^1447317~100^1447424~100^1447572~100^1447580~60^1447614~100^
+29 ;;1447655~100^1447739~500^1447788~180^1447796~2^1447895~100^1448042~60^1448117~100^1448232~120^1448265~1000^1448323~1000^
+30 ;;1448539~50^1448547~240^1448554~500^1448620~500^1448646~1000^1448737~454^1448786~100^1448828~100^1448836~100^1448877~500^
+31 ;;1449107~450^1449123~1000^1449172~1^1449180~480^1449222~100^1449289~59^1449313~473^1449404~100^1449438~118^1449453~15^
+32 ;;1449529~10^1449537~100^1449552~45^1449578~100^1449586~20^1449594~500^1449628~90^1449669~480^1449768~500^1449776~1^
+33 ;;1449800~100^1449917~1^1449958~100^1449982~100^1450006~90^1450139~1^1450147~100^1450220~100^1450238~50^1450261~100^
+34 ;;1450279~118^1450352~100^1450386~15^1450428~500^1450436~50^1450469~100^1450576~100^1450584~1^1450618~1000^1450626~100^
+35 ;;1450725~100^1450733~100^1450758~100^1450790~100^1450816~28^1450840~100^1450857~2^1450873~20^1450881~100^1451004~100^
+36 ;;1451046~100^1451079~500^1451129~15^1451137~500^1451236~30^1451269~100^1451285~30^1451319~100^1451400~1000^1451426~4^
+37 ;;1451459~500^1451533~12^1451558~100^1451582~100^1451590~100^1451608~1000^1451616~60^1451657~100^1451723~100^1451798~1^
+38 ;;1451814~30^1451855~100^1451863~240^1451871~100^1451889~500^1451897~60^1451954~100^1451996~480^1452077~51^1452101~1000^
+39 ;;1452143~100^1452226~100^1452283~1000^1452366~1^1452374~100^1452382~480^1452499~100^1452507~100^1452556~500^1452671~100^
+40 ;;1452762~120^1452770~240^1452820~1000^1452986~100^1453133~500^1453281~100^1453307~1000^1453364~30^1453422~50^1453455~1000^
+41 ;;1453539~100^1453646~10^1453661~100^1453695~10^1453703~1^1453836~500^1453919~120^1453950~100^1453984~100^1454065~1^
+42 ;;1454164~1000^1454180~150^1454321~473^1454396~200^1454446~1000^1454784~4^1454818~100^1454933~473^1454990~1000^1455021~100^
+43 ;;1455237~500^1455286~15^1455294~1000^1455385~500^1455492~473^1455559~10^1455575~10^1455609~1^1455740~15^1455898~100^
+44 ;;1455914~100^1455930~100^1455955~100^1455997~100^1456136~100^1456151~100^1456185~100^1456193~1000^1456201~100^1456342~120^
+45 ;;1456375~60^1456540~100^1456706~100^1456748~50^1456979~473^1457183~10^1457233~100^1457571~10^1457654~15^1457704~100^
+46 ;;1457779~5^1457936~100^1458033~120^1458215~12^1458231~12^1458249~12^1458355~100^1458892~2^1458942~30^1458983~46^
+47 ;;1459254~5^1459403~24^1459635~20^1459668~5^1459692~1000^1459726~15^1459841~20^1459890~5^1459916~100^1459932~8^
+48 ;;1459999~5^1460088~1000^1460112~10^1460179~100^1460211~10^1460310~8^1460344~5^1460351~5^1460385~5^1460740~100^
+49 ;;1460757~100^1460765~28^1460864~60^1461078~500^1461102~15^1461144~5^1461177~1^1461201~15^1461219~240^1461227~5^
+50 ;;1461235~5^1461250~63^1461334~1000^1461342~25^1461458~15^1461490~50^1461631~100^1461714~165^1461730~100^1461748~100^
+51 ;;1461755~60^1461789~100^1461805~1^1461813~1^1461912~473^1461979~500^1462035~473^1462084~100^1462142~473^1462225~60^
+52 ;;END