PSODSRC ;BHAM ISC/XAK,MJK - help text for source of supply field in drug file ; 08/20/92 9:04
;;7.0;OUTPATIENT PHARMACY;;DEC 1997
P W @IOF,!,"A two or three position code identifies the source of supply and whether",!,"the drug is stocked by the station supply division. The first"
W !,"position of the code identifies source of supply. The codes are:",!
F I=0:1:10 W !?10,I,?20,$E($T(D+I+1),4,99)
W !,"The second position of the code indicates whether the item is",!,"or is not available from supply warehouse stock. The codes are:",!
W !?10,"P",?20,"POSTED STOCK",!?10,"U",?20,"UNPOSTED",!?10,"M",?20,"BULK COMPOUND"
W !,"* USE CODE 0 ONLY WITH SECOND POSITION M."
D ;;DESCRIPTION MEANINGS
;;BULK COMPOUND ITEMS *
;;VA SERVICING SUPPLY DEPOT
;;OPEN MARKET
;;GSA STORES DEPOT
;;VA DECENTRALIZED CONTRACTS
;;FEDERAL PRISON INDUSTRIES, INC.
;;FEDERAL SUPPLY SCHEDULES
;;VA SUPPLY DEPOT, HINES
;;VA SUPPLY DEPOT, SOMERVILLE
;;APPROPRIATE MARKETING DIVISION
;;VA SUPPLY DEPOT, BELL
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSODSRC 1020 printed Dec 13, 2024@02:27:26 Page 2
PSODSRC ;BHAM ISC/XAK,MJK - help text for source of supply field in drug file ; 08/20/92 9:04
+1 ;;7.0;OUTPATIENT PHARMACY;;DEC 1997
P WRITE @IOF,!,"A two or three position code identifies the source of supply and whether",!,"the drug is stocked by the station supply division. The first"
+1 WRITE !,"position of the code identifies source of supply. The codes are:",!
+2 FOR I=0:1:10
WRITE !?10,I,?20,$EXTRACT($TEXT(D+I+1),4,99)
+3 WRITE !,"The second position of the code indicates whether the item is",!,"or is not available from supply warehouse stock. The codes are:",!
+4 WRITE !?10,"P",?20,"POSTED STOCK",!?10,"U",?20,"UNPOSTED",!?10,"M",?20,"BULK COMPOUND"
+5 WRITE !,"* USE CODE 0 ONLY WITH SECOND POSITION M."
D ;;DESCRIPTION MEANINGS
+1 ;;BULK COMPOUND ITEMS *
+2 ;;VA SERVICING SUPPLY DEPOT
+3 ;;OPEN MARKET
+4 ;;GSA STORES DEPOT
+5 ;;VA DECENTRALIZED CONTRACTS
+6 ;;FEDERAL PRISON INDUSTRIES, INC.
+7 ;;FEDERAL SUPPLY SCHEDULES
+8 ;;VA SUPPLY DEPOT, HINES
+9 ;;VA SUPPLY DEPOT, SOMERVILLE
+10 ;;APPROPRIATE MARKETING DIVISION
+11 ;;VA SUPPLY DEPOT, BELL
