PSA48P40 ;VMP/PDW-BUILD MCKESSON XTMP( ;9/19/2004
;;3.0;DRUG ACCOUNTABILITY/INVENTORY INTERFACE;**48**;10/24/97
;;2773927~250^2773943~90^2773968~500^2773984~30^2773992~15^2774024~60^2774115~1000^2774149~100^2774446~2^2774487~100^
;;2774552~500^2774719~5^2774834~30^2774933~500^2775070~300^2775104~100^2775237~1000^2775476~473^2775518~500^2775930~1000^
;;2775963~100^2775989~100^2776078~500^2776086~100^2776128~1000^2776193~1000^2776219~473^2776235~85^2776243~100^2776300~100^
;;2776375~12^2776391~237^2776490~240^2776516~100^2776565~960^2776599~1000^2776672~100^2776755~100^2776763~100^2776797~500^
;;2776813~1000^2776821~1000^2776912~473^2776946~100^2776979~100^2777001~1000^2777035~500^2777076~45^2777167~60^2777340~100^
;;2777357~10^2777431~500^2777498~100^2777514~10^2777522~42.5^2777597~10^2777605~10^2777613~3.5^2777670~30^2777712~10^
;;2777720~1000^2777779~30^2777795~500^2777852~50^2777894~500^2778009~50^2778033~60^2778041~100^2778082~10^2778132~45^
;;2778140~100^2778256~100^2778330~100^2778363~100^2778371~100^2778439~100^2778454~20^2778470~100^2778504~500^2778546~30^
;;2778595~60^2778652~100^2778660~100^2778736~60^2778892~120^2778959~120^2779130~180^2779155~30^2779247~100^2779254~300^
;;2779262~390^2779304~100^2779346~2^2779387~180^2779395~300^2779403~5^2779411~1^2779460~300^2779478~390^2779502~1000^
;;2779569~180^2779577~300^2779635~500^2779643~2.5^2779650~180^2779668~15^2779767~30^2780088~3^2780146~100^2780153~100^
;;2780161~1^2780203~1^2780229~1^2780468~100^2780609~50^2780716~10^2780724~2.5^2780732~10^2780740~10^2780765~10^
;;2780815~100^2780823~500^2780872~10^2781128~100^2781227~50^2781235~1^2781284~10^2781292~250^2781409~1^2781615~100^
;;2781649~1000^2781672~100^2781680~473^2781706~500^2781714~500^2781748~10^2781763~180^2781854~12^2782035~1.45^2782068~100^
;;2782076~240^2782100~1^2782118~5^2782134~100^2782159~28^2782209~120^2782225~100^2782258~60^2782274~100^2782290~60^
;;2782308~100^2782324~100^2782332~120^2782340~100^2782399~120^2782480~60^2782563~50^2782605~360^2782779~50^2782829~120^
;;2782837~100^2782845~30^2782910~2^2782928~500^2783025~500^2783041~10^2783116~100^2783157~2^2783173~1^2783207~100^
;;2783215~60^2783280~100^2783496~250^2783579~100^2783629~100^2783686~60^2783710~473^2783736~500^2783850~30^2783942~1^
;;2783967~100^2783991~25^2784064~100^2784072~473^2784189~60^2784205~100^2784304~100^2784411~150^2784429~20^2784460~100^
;;2784486~100^2784494~250^2784528~100^2784650~118^2784882~473^2784940~1000^2784999~10^2785053~118^2785145~1000^2785160~473^
;;2785343~100^2785368~1^2785442~1^2785574~1^2785749~100^2785780~1^2785939~500^2786028~30^2786077~1^2786275~1^
;;2786291~3^2786416~10^2786424~50^2786465~10^2786499~5^2786515~1000^2786606~100^2786648~5^2786705~100^2786713~100^
;;2786739~100^2786747~100^2786762~14.1^2786879~100^2786887~473^2786960~100^2786978~473^2787059~100^2787141~20^2787208~100^
;;2787224~3^2787273~30^2787281~430^2787364~50^2787380~1^2787398~500^2787422~3^2787463~100^2787471~100^2787489~100^
;;2787521~100^2787547~100^2787554~500^2787588~5^2787612~10^2787638~1^2787661~3000^2787679~1000^2787745~30^2787794~473^
;;2787844~1000^2787950~100^2787976~100^2788032~100^2788073~5^2788149~100^2788156~473^2788180~5^2788214~100^2788222~100^
;;2788362~100^2788438~473^2788503~18^2788586~100^2788628~1^2788651~100^2788693~5^2788743~100^2788800~5^2788842~1^
;;2788982~50^2789113~1000^2789154~5^2789196~100^2789253~100^2789329~100^2789337~500^2789436~100^2789501~100^2789527~100^
;;2789550~473^2789568~100^2789659~500^2789667~100^2789725~26^2789733~100^2791028~100^2791101~15^2791291~1000^2791358~100^
;;2791671~1000^2791705~75^2791721~100^2792026~3.5^2792315~100^2792448~100^2792489~10^2792513~1000^2792554~15^2792588~100^
;;2792604~100^2792612~1.5^2792661~500^2792729~100^2792745~10^2792794~100^2792844~500^2792893~118^2792927~10^2792935~500^
;;2792950~20^2792968~473^2792976~100^2792992~45^2793040~45^2793057~750^2793107~100^2793123~20^2793149~120^2793206~45^
;;2793214~120^2793263~20^2793271~118^2793289~100^2793313~500^2793339~45^2793354~100^2793396~100^2793453~100^2793461~42^
;;2793479~15^2793545~56^2793560~100^2793586~45^2793602~500^2793610~10^2793628~500^2793669~100^2793685~70^2793719~50^
;;2793743~500^2793768~100^2793792~500^2793818~84^2793826~50^2793834~100^2793859~180^2793867~1000^2793875~2.5^2793883~60^
;;2793933~100^2793958~16^2793982~10000^2794006~60^2794014~473^2794048~8^2794055~100^2794089~500^2794121~10000^2794139~100^
;;2794154~8^2794188~60^2794220~30^2794279~1000^2794287~100^2794303~100^2794345~100^2794360~100^2794386~2.5^2794444~473^
;;2794469~12^2794485~100^2794501~10000^2794519~100^2794584~100^2794741~500^2794758~120^2794766~500^2794816~100^2794857~1000^
;;2794865~5^2794915~500^2794931~1000^2794980~500^2795037~3840^2795110~100^2795433~10^2795557~50^2795664~100^2795748~100^
;;2796464~5^2796555~100^2796688~10000^2796837~10000^2797470~100^2797744~500^2797777~28^2798395~35^2798643~100^2798650~500^
;;2798684~500^2798791~100^2798809~100^2798924~100^2798932~30^2798957~100^2799153~2^2799161~14^2799245~25^2799278~60^
;;2799286~100^2799351~90^2799401~10000^2799484~10^2799583~500^2799591~500^2799641~10000^2799666~50^2799740~20^2799781~50^
;;2799799~100^2799823~500^2799898~500^2799922~50^3200045~225^3200219~1^3200284~1000^3200342~100^3200417~1000^3200599~100^
;;3200623~400^3200797~50^3201050~100^3201068~15^3201084~30^3201225~30^3201928~100^3202058~30^3202165~500^3202306~90^
;;3202603~102^3202710~30^3203015~100^3203239~100^3203296~454^3203452~100^3204062~60^3204211~100^3204336~1^3204344~1^
;;3204351~1^3204369~1^3204377~1^3204393~1^3204427~1^3204435~1^3204450~1^3204468~1^3204492~1^3204518~1^
;;3204526~1^3204534~1^3204559~1^3204856~100^3205044~100^3205127~200^3205283~500^3205408~15^3205614~100^3205986~500^
;;3206505~1^3206794~100^3206893~120^3206976~1000^3207065~240^3207164~50^3207651~100^3208022~150^3208170~500^3208212~50^
;;3208220~200^3208295~60^3208352~30^3208808~30^3208816~30^3208899~100^3210002~1^3210036~500^3210044~500^3210051~500^
;;3210101~500^3210135~500^3210184~500^3210192~30^3210226~30^3210242~1^3210259~10^3210275~500^3210317~500^3210325~500^
;;END
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSA48P40 6171 printed Dec 13, 2024@01:48:41 Page 2
PSA48P40 ;VMP/PDW-BUILD MCKESSON XTMP( ;9/19/2004
+1 ;;3.0;DRUG ACCOUNTABILITY/INVENTORY INTERFACE;**48**;10/24/97
+2 ;;2773927~250^2773943~90^2773968~500^2773984~30^2773992~15^2774024~60^2774115~1000^2774149~100^2774446~2^2774487~100^
+3 ;;2774552~500^2774719~5^2774834~30^2774933~500^2775070~300^2775104~100^2775237~1000^2775476~473^2775518~500^2775930~1000^
+4 ;;2775963~100^2775989~100^2776078~500^2776086~100^2776128~1000^2776193~1000^2776219~473^2776235~85^2776243~100^2776300~100^
+5 ;;2776375~12^2776391~237^2776490~240^2776516~100^2776565~960^2776599~1000^2776672~100^2776755~100^2776763~100^2776797~500^
+6 ;;2776813~1000^2776821~1000^2776912~473^2776946~100^2776979~100^2777001~1000^2777035~500^2777076~45^2777167~60^2777340~100^
+7 ;;2777357~10^2777431~500^2777498~100^2777514~10^2777522~42.5^2777597~10^2777605~10^2777613~3.5^2777670~30^2777712~10^
+8 ;;2777720~1000^2777779~30^2777795~500^2777852~50^2777894~500^2778009~50^2778033~60^2778041~100^2778082~10^2778132~45^
+9 ;;2778140~100^2778256~100^2778330~100^2778363~100^2778371~100^2778439~100^2778454~20^2778470~100^2778504~500^2778546~30^
+10 ;;2778595~60^2778652~100^2778660~100^2778736~60^2778892~120^2778959~120^2779130~180^2779155~30^2779247~100^2779254~300^
+11 ;;2779262~390^2779304~100^2779346~2^2779387~180^2779395~300^2779403~5^2779411~1^2779460~300^2779478~390^2779502~1000^
+12 ;;2779569~180^2779577~300^2779635~500^2779643~2.5^2779650~180^2779668~15^2779767~30^2780088~3^2780146~100^2780153~100^
+13 ;;2780161~1^2780203~1^2780229~1^2780468~100^2780609~50^2780716~10^2780724~2.5^2780732~10^2780740~10^2780765~10^
+14 ;;2780815~100^2780823~500^2780872~10^2781128~100^2781227~50^2781235~1^2781284~10^2781292~250^2781409~1^2781615~100^
+15 ;;2781649~1000^2781672~100^2781680~473^2781706~500^2781714~500^2781748~10^2781763~180^2781854~12^2782035~1.45^2782068~100^
+16 ;;2782076~240^2782100~1^2782118~5^2782134~100^2782159~28^2782209~120^2782225~100^2782258~60^2782274~100^2782290~60^
+17 ;;2782308~100^2782324~100^2782332~120^2782340~100^2782399~120^2782480~60^2782563~50^2782605~360^2782779~50^2782829~120^
+18 ;;2782837~100^2782845~30^2782910~2^2782928~500^2783025~500^2783041~10^2783116~100^2783157~2^2783173~1^2783207~100^
+19 ;;2783215~60^2783280~100^2783496~250^2783579~100^2783629~100^2783686~60^2783710~473^2783736~500^2783850~30^2783942~1^
+20 ;;2783967~100^2783991~25^2784064~100^2784072~473^2784189~60^2784205~100^2784304~100^2784411~150^2784429~20^2784460~100^
+21 ;;2784486~100^2784494~250^2784528~100^2784650~118^2784882~473^2784940~1000^2784999~10^2785053~118^2785145~1000^2785160~473^
+22 ;;2785343~100^2785368~1^2785442~1^2785574~1^2785749~100^2785780~1^2785939~500^2786028~30^2786077~1^2786275~1^
+23 ;;2786291~3^2786416~10^2786424~50^2786465~10^2786499~5^2786515~1000^2786606~100^2786648~5^2786705~100^2786713~100^
+24 ;;2786739~100^2786747~100^2786762~14.1^2786879~100^2786887~473^2786960~100^2786978~473^2787059~100^2787141~20^2787208~100^
+25 ;;2787224~3^2787273~30^2787281~430^2787364~50^2787380~1^2787398~500^2787422~3^2787463~100^2787471~100^2787489~100^
+26 ;;2787521~100^2787547~100^2787554~500^2787588~5^2787612~10^2787638~1^2787661~3000^2787679~1000^2787745~30^2787794~473^
+27 ;;2787844~1000^2787950~100^2787976~100^2788032~100^2788073~5^2788149~100^2788156~473^2788180~5^2788214~100^2788222~100^
+28 ;;2788362~100^2788438~473^2788503~18^2788586~100^2788628~1^2788651~100^2788693~5^2788743~100^2788800~5^2788842~1^
+29 ;;2788982~50^2789113~1000^2789154~5^2789196~100^2789253~100^2789329~100^2789337~500^2789436~100^2789501~100^2789527~100^
+30 ;;2789550~473^2789568~100^2789659~500^2789667~100^2789725~26^2789733~100^2791028~100^2791101~15^2791291~1000^2791358~100^
+31 ;;2791671~1000^2791705~75^2791721~100^2792026~3.5^2792315~100^2792448~100^2792489~10^2792513~1000^2792554~15^2792588~100^
+32 ;;2792604~100^2792612~1.5^2792661~500^2792729~100^2792745~10^2792794~100^2792844~500^2792893~118^2792927~10^2792935~500^
+33 ;;2792950~20^2792968~473^2792976~100^2792992~45^2793040~45^2793057~750^2793107~100^2793123~20^2793149~120^2793206~45^
+34 ;;2793214~120^2793263~20^2793271~118^2793289~100^2793313~500^2793339~45^2793354~100^2793396~100^2793453~100^2793461~42^
+35 ;;2793479~15^2793545~56^2793560~100^2793586~45^2793602~500^2793610~10^2793628~500^2793669~100^2793685~70^2793719~50^
+36 ;;2793743~500^2793768~100^2793792~500^2793818~84^2793826~50^2793834~100^2793859~180^2793867~1000^2793875~2.5^2793883~60^
+37 ;;2793933~100^2793958~16^2793982~10000^2794006~60^2794014~473^2794048~8^2794055~100^2794089~500^2794121~10000^2794139~100^
+38 ;;2794154~8^2794188~60^2794220~30^2794279~1000^2794287~100^2794303~100^2794345~100^2794360~100^2794386~2.5^2794444~473^
+39 ;;2794469~12^2794485~100^2794501~10000^2794519~100^2794584~100^2794741~500^2794758~120^2794766~500^2794816~100^2794857~1000^
+40 ;;2794865~5^2794915~500^2794931~1000^2794980~500^2795037~3840^2795110~100^2795433~10^2795557~50^2795664~100^2795748~100^
+41 ;;2796464~5^2796555~100^2796688~10000^2796837~10000^2797470~100^2797744~500^2797777~28^2798395~35^2798643~100^2798650~500^
+42 ;;2798684~500^2798791~100^2798809~100^2798924~100^2798932~30^2798957~100^2799153~2^2799161~14^2799245~25^2799278~60^
+43 ;;2799286~100^2799351~90^2799401~10000^2799484~10^2799583~500^2799591~500^2799641~10000^2799666~50^2799740~20^2799781~50^
+44 ;;2799799~100^2799823~500^2799898~500^2799922~50^3200045~225^3200219~1^3200284~1000^3200342~100^3200417~1000^3200599~100^
+45 ;;3200623~400^3200797~50^3201050~100^3201068~15^3201084~30^3201225~30^3201928~100^3202058~30^3202165~500^3202306~90^
+46 ;;3202603~102^3202710~30^3203015~100^3203239~100^3203296~454^3203452~100^3204062~60^3204211~100^3204336~1^3204344~1^
+47 ;;3204351~1^3204369~1^3204377~1^3204393~1^3204427~1^3204435~1^3204450~1^3204468~1^3204492~1^3204518~1^
+48 ;;3204526~1^3204534~1^3204559~1^3204856~100^3205044~100^3205127~200^3205283~500^3205408~15^3205614~100^3205986~500^
+49 ;;3206505~1^3206794~100^3206893~120^3206976~1000^3207065~240^3207164~50^3207651~100^3208022~150^3208170~500^3208212~50^
+50 ;;3208220~200^3208295~60^3208352~30^3208808~30^3208816~30^3208899~100^3210002~1^3210036~500^3210044~500^3210051~500^
+51 ;;3210101~500^3210135~500^3210184~500^3210192~30^3210226~30^3210242~1^3210259~10^3210275~500^3210317~500^3210325~500^
+52 ;;END
