Routine: LRBLJLG1

Information

LRBLJLG1 ;AVAMC/REG/CYM - REVIEW UNIT LOG-IN ;11/12/96 07:41 ;

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,P," Source: ",LRW," Invoice: ",LRI,!,"Review:",?9,"Unit",?25,"ABO/Rh",?33,"Expiration date (*=Expired or expires today)" Line Location: LRBLJLG1+5
Function Call: WRITE	Prompt: !,X,")",?9,$P(LRL(X),"^",2),?25,$P(LRL(X),"^",3),?28,$P(LRL(X),"^",4),?34 Line Location: LRBLJLG1+6
Function Call: WRITE	Prompt: Y,$P(LRL(X),"^",6) Line Location: LRBLJLG1+6
Function Call: READ	Variable: LRE Timeout: DTIME Line Location: ASK+0
Function Call: WRITE	Prompt: $C(7),! Line Location: ASK+0
Function Call: WRITE	Prompt: $C(7),!,"No entering '^' during this edit !!" Line Location: DIE+3
Function Call: WRITE	Prompt: " Enter a number from 1 to ",A Line Location: H+0
Function Call: WRITE	Prompt: $C(7)," Sorry, that unit exists in inventory." Line Location: CK+1
Function Call: WRITE	Prompt: $C(7),!!?4,"Expiration date exceeds allowable limit !",! Line Location: A+0

FileNo	Call Tags
^LRD(65 - [#65]	Classic Fileman Calls