PSODSRC.m

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

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