Routine: PSADRUGP

Information

PSADRUGP ;BIR/LTL,JMB-Enter/Edit a Drug ;7/23/97

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"There are no active pharmacy locations." Line Location: LOC+3
Function Call: WRITE	Prompt: !,PSALOCN Line Location: LOC+4
Function Call: WRITE	Prompt: ! Line Location: GETDRUG+2
Function Call: WRITE	Prompt: !,$C(7)," * INACTIVE *" Line Location: GETDRUG+5
Function Call: WRITE	Prompt: @IOF,!,$G(PSALOCN),!,"DRUG: "_PSADRGN Line Location: DRUG+1
Function Call: WRITE	Prompt: ! Line Location: DRUG+10
Function Call: WRITE	Prompt: !!,"Current balance: "_+$P($G(^PSD(58.8,PSALOC,1,PSADRG,0)),"^",4)," ",$P(PSA660,"^",8) Line Location: DISP+2
Function Call: WRITE	Prompt: !!,"Updating beginning balance and transaction history." Line Location: MON+3

FileNo	Call Tags
^PSD(58.81 - [#58.81]	Classic Fileman Calls