- 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 Feb 18, 2025@23:53:52 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
