Routine: PSODSRC

Name	Comments	DBIA/ICR reference
P
D	;;DESCRIPTION MEANINGS

Name	Line Occurrences
Function Call: WRITE	Prompt: @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" Line Location: P+0
Function Call: WRITE	Prompt: !,"position of the code identifies source of supply. The codes are:",! Line Location: P+1
Function Call: WRITE	Prompt: !?10,I,?20,$E($T(D+I+1),4,99) Line Location: P+2
Function Call: WRITE	Prompt: !,"The second position of the code indicates whether the item is",!,"or is not available from supply warehouse stock. The codes are:",! Line Location: P+3
Function Call: WRITE	Prompt: !?10,"P",?20,"POSTED STOCK",!?10,"U",?20,"UNPOSTED",!?10,"M",?20,"BULK COMPOUND" Line Location: P+4
Function Call: WRITE	Prompt: !,"* USE CODE 0 ONLY WITH SECOND POSITION M." Line Location: P+5

Name	Field # of Occurrence
>> I	P+2*
IOF	P

Information