PSA48P21 ;VMP/PDW-BUILD MCKESSON XTMP( ;9/19/2004
;;3.0;DRUG ACCOUNTABILITY/INVENTORY INTERFACE;**48**;10/24/97
;;1670512~5^1670587~84^1670702~236.7^1670728~150^1670843~500^1670876~1^1671049~100^1671163~10^1671205~100^1671262~1000^
;;1671320~500^1671361~100^1671395~500^1671411~20^1671643~100^1671668~480^1671684~3.5^1671700~100^1671916~1000^1672153~2^
;;1672567~480^1672575~5^1672708~100^1672757~480^1672807~1000^1672831~10^1672864~100^1673078~10^1673086~60^1673177~10^
;;1673342~20^1673383~30^1673466~50^1673565~25^1673607~75^1673623~25^1673649~480^1673748~5^1673870~20^1673912~50^
;;1674019~10^1674027~25^1674035~150^1674142~30^1674175~100^1674274~10^1674431~100^1674464~100^1674571~60^1674613~100^
;;1674621~100^1674712~1500^1674720~100^1674753~50^1674845~60^1674852~100^1674860~100^1674886~100^1674936~100^1674944~454^
;;1675032~500^1675040~12^1675073~100^1675149~100^1675198~50^1675214~1500^1675602~60^1675636~180^1675644~480^1675651~50^
;;1675685~1500^1675701~12^1675719~100^1675768~100^1675800~100^1675818~50^1675826~100^1675867~1500^1675917~30^1675933~500^
;;1675966~1500^1676048~100^1676121~2^1676162~30^1676220~15^1676238~50^1676360~30^1676394~100^1676451~127.5^1676469~50^
;;1676501~100^1676535~50^1676634~100^1676667~1^1676675~25^1676683~100^1676881~25^1676915~1000^1677061~1^1677228~100^
;;1677244~100^1677418~100^1677475~100^1677616~60^1677764~100^1677830~30^1678036~56.8^1678242~10^1678341~100^1678374~60^
;;1678499~100^1678523~500^1678606~10^1678663~30^1678689~1^1678697~100^1678739~30^1678838~30^1678846~60^1678895~30^
;;1678986~30^1679174~1^1679182~1^1679208~100^1679232~240^1679265~1^1679273~1^1679281~1^1679299~1^1679307~1^
;;1679315~1^1679323~1^1679331~1^1679349~1^1679356~1^1679364~1^1679372~1^1679406~1^1679430~1^1679448~1^
;;1679604~100^1679653~1^1679729~10^1680016~50^1680032~100^1680115~60^1680123~100^1680131~100^1680271~3784^1680289~946^
;;1680297~3784^1680313~75^1680586~60^1680594~56.8^1680602~50^1680651~15^1680826~60^1681014~5^1681139~100^1681253~150^
;;1681337~100^1681436~30^1681451~100^1681659~60^1681691~30^1681733~100^1681857~21^1681923~250^1682160~60^1682228~50^
;;1682269~100^1682343~20^1682350~500^1682665~100^1682756~250^1683002~100^1683028~28^1683119~100^1683283~100^1683473~10^
;;1683556~100^1683614~100^1683887~12^1683911~100^1684083~100^1684182~2^1684208~48^1684414~946^1684505~100^1684570~100^
;;1684588~1^1684620~6^1684711~50^1684794~2^1684943~30^1684950~15^1684992~32^1685007~100^1685155~2^1685445~3^
;;1685460~50^1685668~100^1685676~20^1685684~250^1685726~120^1685791~180^1685817~4^1685858~60^1686013~100^1686112~180^
;;1686294~100^1686302~100^1686310~100^1686344~75^1686500~4^1686708~250^1686757~28^1686765~3^1686864~100^1686922~100^
;;1686963~100^1687045~454^1687250~100^1687268~105^1687284~100^1687326~500^1687334~2^1687565~10^1687631~20^1687797~500^
;;1687946~1^1688076~100^1688084~100^1688118~250^1688134~100^1688159~150^1688191~150^1688332~100^1688365~30^1688480~100^
;;1688647~50^1688654~30^1688746~1000^1688787~100^1688845~250^1688928~30^1689272~100^1689330~100^1689512~10^1689520~100^
;;1689587~100^1689629~5^1689637~5^1689827~1^1689843~100^1691161~100^1691179~1000^1691237~100^1691369~90^1691393~500^
;;1691468~2.5^1691526~500^1691575~500^1691633~250^1691872~120^1691963~500^1691989~30^1692029~150^1692078~100^1692284~500^
;;1692391~5^1692441~60^1692557~100^1692698~100^1692730~1000^1692748~500^1692763~1000^1692771~5000^1692797~1000^1692805~100^
;;1692813~100^1692854~120^1692862~100^1692888~10^1692896~480^1692912~100^1692938~120^1692946~240^1692979~100^1693076~30^
;;1693183~100^1693266~50^1693274~88.7^1693308~500^1693332~5^1693415~100^1693456~5^1693613~100^1693647~100^1693670~100^
;;1693696~100^1693803~5^1693886~5^1693951~500^1693977~100^1694041~15^1694140~100^1694249~10^1694256~30^1694272~100^
;;1694298~100^1694330~12^1694439~100^1694447~1000^1694538~100^1694587~100^1694645~100^1694694~5^1694777~50^1694843~10^
;;1695147~100^1695352~3840^1695469~10^1695717~1^1695758~30^1695766~100^1695790~500^1695832~48^1695873~500^1695931~10^
;;1696160~100^1696186~100^1696277~1000^1696293~100^1696301~100^1696327~500^1696392~1000^1696400~480^1696459~5^1696624~30^
;;1696715~12^1696723~100^1696780~100^1696806~60^1696855~100^1696889~100^1697150~120^1697168~50^1697192~480^1697200~100^
;;1697358~480^1697382~60^1697408~100^1697424~100^1697580~1^1697705~100^1697747~1000^1697754~100^1697960~100^1698018~100^
;;1698034~100^1698067~24^1698307~100^1698315~100^1698505~500^1698570~3.5^1698596~100^1698661~100^1698778~100^1699545~200^
;;1699867~100^1699933~200^1699941~100^1700046~100^1700061~2^1700178~100^1700194~100^1700293~100^1700327~10^1700558~100^
;;1700616~100^1701010~500^1701119~500^1701226~100^1701259~10^1701325~100^1701390~220^1701572~237^1701630~118.28^1701648~100^
;;1701713~100^1701804~100^1701820~500^1701879~15^1701945~113.4^1702281~100^1702687~100^1702786~100^1703024~100^1703032~30^
;;1703156~100^1703263~473^1703321~100^1703354~500^1703388~100^1703438~50^1703446~100^1703453~100^1703487~90^1703545~100^
;;1703594~60^1703636~10^1703792~100^1703800~100^1703818~100^1703875~500^1703891~20^1703925~100^1704329~1000^1704436~100^
;;1704576~500^1704600~100^1704832~30^1704899~100^1704915~100^1705060~100^1705177~10^1705318~500^1705334~2^1705441~500^
;;1705805~10^1706001~30^1706019~100^1706068~100^1706100~480^1706183~10^1706647~369^1706662~24^1706696~4^1706761~360^
;;1706779~15^1706787~1^1706860~100^1706977~50^1706985~1^1707025~12^1707082~50^1707108~100^1707140~30^1707157~1000^
;;1707371~500^1707660~24^1707694~100^1707702~100^1707769~1000^1708056~1^1708064~1^1708155~50^1708205~5^1708296~3^
;;1708486~500^1708551~25^1708650~15^1708833~10^1708841~20^1708866~30^1708874~1^1708882~2^1708890~10^1708924~30^
;;1708965~30^1710003~100^1710029~6^1710045~100^1710086~2^1710102~60^1710185~6^1710219~100^1710227~100^1710300~10^
;;1710342~100^1710474~30^1710508~50^1710573~100^1710755~15^1710771~15^1710797~45^1711001~1000^1711068~473^1711076~500^
;;1711167~10^1711621~100^1711704~100^1711811~960^1711829~960^1711894~500^1711936~18^1712108~1000^1712140~100^1712181~1^
;;END
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSA48P21 6136 printed Dec 13, 2024@01:48:22 Page 2
PSA48P21 ;VMP/PDW-BUILD MCKESSON XTMP( ;9/19/2004
+1 ;;3.0;DRUG ACCOUNTABILITY/INVENTORY INTERFACE;**48**;10/24/97
+2 ;;1670512~5^1670587~84^1670702~236.7^1670728~150^1670843~500^1670876~1^1671049~100^1671163~10^1671205~100^1671262~1000^
+3 ;;1671320~500^1671361~100^1671395~500^1671411~20^1671643~100^1671668~480^1671684~3.5^1671700~100^1671916~1000^1672153~2^
+4 ;;1672567~480^1672575~5^1672708~100^1672757~480^1672807~1000^1672831~10^1672864~100^1673078~10^1673086~60^1673177~10^
+5 ;;1673342~20^1673383~30^1673466~50^1673565~25^1673607~75^1673623~25^1673649~480^1673748~5^1673870~20^1673912~50^
+6 ;;1674019~10^1674027~25^1674035~150^1674142~30^1674175~100^1674274~10^1674431~100^1674464~100^1674571~60^1674613~100^
+7 ;;1674621~100^1674712~1500^1674720~100^1674753~50^1674845~60^1674852~100^1674860~100^1674886~100^1674936~100^1674944~454^
+8 ;;1675032~500^1675040~12^1675073~100^1675149~100^1675198~50^1675214~1500^1675602~60^1675636~180^1675644~480^1675651~50^
+9 ;;1675685~1500^1675701~12^1675719~100^1675768~100^1675800~100^1675818~50^1675826~100^1675867~1500^1675917~30^1675933~500^
+10 ;;1675966~1500^1676048~100^1676121~2^1676162~30^1676220~15^1676238~50^1676360~30^1676394~100^1676451~127.5^1676469~50^
+11 ;;1676501~100^1676535~50^1676634~100^1676667~1^1676675~25^1676683~100^1676881~25^1676915~1000^1677061~1^1677228~100^
+12 ;;1677244~100^1677418~100^1677475~100^1677616~60^1677764~100^1677830~30^1678036~56.8^1678242~10^1678341~100^1678374~60^
+13 ;;1678499~100^1678523~500^1678606~10^1678663~30^1678689~1^1678697~100^1678739~30^1678838~30^1678846~60^1678895~30^
+14 ;;1678986~30^1679174~1^1679182~1^1679208~100^1679232~240^1679265~1^1679273~1^1679281~1^1679299~1^1679307~1^
+15 ;;1679315~1^1679323~1^1679331~1^1679349~1^1679356~1^1679364~1^1679372~1^1679406~1^1679430~1^1679448~1^
+16 ;;1679604~100^1679653~1^1679729~10^1680016~50^1680032~100^1680115~60^1680123~100^1680131~100^1680271~3784^1680289~946^
+17 ;;1680297~3784^1680313~75^1680586~60^1680594~56.8^1680602~50^1680651~15^1680826~60^1681014~5^1681139~100^1681253~150^
+18 ;;1681337~100^1681436~30^1681451~100^1681659~60^1681691~30^1681733~100^1681857~21^1681923~250^1682160~60^1682228~50^
+19 ;;1682269~100^1682343~20^1682350~500^1682665~100^1682756~250^1683002~100^1683028~28^1683119~100^1683283~100^1683473~10^
+20 ;;1683556~100^1683614~100^1683887~12^1683911~100^1684083~100^1684182~2^1684208~48^1684414~946^1684505~100^1684570~100^
+21 ;;1684588~1^1684620~6^1684711~50^1684794~2^1684943~30^1684950~15^1684992~32^1685007~100^1685155~2^1685445~3^
+22 ;;1685460~50^1685668~100^1685676~20^1685684~250^1685726~120^1685791~180^1685817~4^1685858~60^1686013~100^1686112~180^
+23 ;;1686294~100^1686302~100^1686310~100^1686344~75^1686500~4^1686708~250^1686757~28^1686765~3^1686864~100^1686922~100^
+24 ;;1686963~100^1687045~454^1687250~100^1687268~105^1687284~100^1687326~500^1687334~2^1687565~10^1687631~20^1687797~500^
+25 ;;1687946~1^1688076~100^1688084~100^1688118~250^1688134~100^1688159~150^1688191~150^1688332~100^1688365~30^1688480~100^
+26 ;;1688647~50^1688654~30^1688746~1000^1688787~100^1688845~250^1688928~30^1689272~100^1689330~100^1689512~10^1689520~100^
+27 ;;1689587~100^1689629~5^1689637~5^1689827~1^1689843~100^1691161~100^1691179~1000^1691237~100^1691369~90^1691393~500^
+28 ;;1691468~2.5^1691526~500^1691575~500^1691633~250^1691872~120^1691963~500^1691989~30^1692029~150^1692078~100^1692284~500^
+29 ;;1692391~5^1692441~60^1692557~100^1692698~100^1692730~1000^1692748~500^1692763~1000^1692771~5000^1692797~1000^1692805~100^
+30 ;;1692813~100^1692854~120^1692862~100^1692888~10^1692896~480^1692912~100^1692938~120^1692946~240^1692979~100^1693076~30^
+31 ;;1693183~100^1693266~50^1693274~88.7^1693308~500^1693332~5^1693415~100^1693456~5^1693613~100^1693647~100^1693670~100^
+32 ;;1693696~100^1693803~5^1693886~5^1693951~500^1693977~100^1694041~15^1694140~100^1694249~10^1694256~30^1694272~100^
+33 ;;1694298~100^1694330~12^1694439~100^1694447~1000^1694538~100^1694587~100^1694645~100^1694694~5^1694777~50^1694843~10^
+34 ;;1695147~100^1695352~3840^1695469~10^1695717~1^1695758~30^1695766~100^1695790~500^1695832~48^1695873~500^1695931~10^
+35 ;;1696160~100^1696186~100^1696277~1000^1696293~100^1696301~100^1696327~500^1696392~1000^1696400~480^1696459~5^1696624~30^
+36 ;;1696715~12^1696723~100^1696780~100^1696806~60^1696855~100^1696889~100^1697150~120^1697168~50^1697192~480^1697200~100^
+37 ;;1697358~480^1697382~60^1697408~100^1697424~100^1697580~1^1697705~100^1697747~1000^1697754~100^1697960~100^1698018~100^
+38 ;;1698034~100^1698067~24^1698307~100^1698315~100^1698505~500^1698570~3.5^1698596~100^1698661~100^1698778~100^1699545~200^
+39 ;;1699867~100^1699933~200^1699941~100^1700046~100^1700061~2^1700178~100^1700194~100^1700293~100^1700327~10^1700558~100^
+40 ;;1700616~100^1701010~500^1701119~500^1701226~100^1701259~10^1701325~100^1701390~220^1701572~237^1701630~118.28^1701648~100^
+41 ;;1701713~100^1701804~100^1701820~500^1701879~15^1701945~113.4^1702281~100^1702687~100^1702786~100^1703024~100^1703032~30^
+42 ;;1703156~100^1703263~473^1703321~100^1703354~500^1703388~100^1703438~50^1703446~100^1703453~100^1703487~90^1703545~100^
+43 ;;1703594~60^1703636~10^1703792~100^1703800~100^1703818~100^1703875~500^1703891~20^1703925~100^1704329~1000^1704436~100^
+44 ;;1704576~500^1704600~100^1704832~30^1704899~100^1704915~100^1705060~100^1705177~10^1705318~500^1705334~2^1705441~500^
+45 ;;1705805~10^1706001~30^1706019~100^1706068~100^1706100~480^1706183~10^1706647~369^1706662~24^1706696~4^1706761~360^
+46 ;;1706779~15^1706787~1^1706860~100^1706977~50^1706985~1^1707025~12^1707082~50^1707108~100^1707140~30^1707157~1000^
+47 ;;1707371~500^1707660~24^1707694~100^1707702~100^1707769~1000^1708056~1^1708064~1^1708155~50^1708205~5^1708296~3^
+48 ;;1708486~500^1708551~25^1708650~15^1708833~10^1708841~20^1708866~30^1708874~1^1708882~2^1708890~10^1708924~30^
+49 ;;1708965~30^1710003~100^1710029~6^1710045~100^1710086~2^1710102~60^1710185~6^1710219~100^1710227~100^1710300~10^
+50 ;;1710342~100^1710474~30^1710508~50^1710573~100^1710755~15^1710771~15^1710797~45^1711001~1000^1711068~473^1711076~500^
+51 ;;1711167~10^1711621~100^1711704~100^1711811~960^1711829~960^1711894~500^1711936~18^1712108~1000^1712140~100^1712181~1^
+52 ;;END