Routine: PRCNTIRQ

Information

PRCNTIRQ ;SSI/ALA-Enter a Turn-In Request ;[ 02/06/97 11:57 AM ]

Name	Comments	DBIA/ICR reference
EN
ENR	; Get the next sequential number
TIN	; Select a Turn-In request, display info & get justification
EXIT
DISP	; Display line item info
INP	; Input transform check for validity of selection

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This request has been assigned transaction #: ",PRCNRTN,! Line Location: TIN+1
Function Call: WRITE	Prompt: !,"CSN: ",$G(PRCNDAT(6914,RI,18,"E")) Line Location: DISP+4
Function Call: WRITE	Prompt: !,"Description: ",$G(PRCNDAT(6914,RI,3,"E")) Line Location: DISP+5
Function Call: WRITE	Prompt: !,"Model #: ",$G(PRCNDAT(6914,RI,4,"E")) Line Location: DISP+6
Function Call: WRITE	Prompt: ?40,"Serial #: ",$G(PRCNDAT(6914,RI,5,"E")) Line Location: DISP+7
Function Call: WRITE	Prompt: !,"Manufacturer: ",$G(PRCNDAT(6914,RI,1,"E")) Line Location: DISP+8
Function Call: WRITE	Prompt: ?40,"Last Location: ",$G(PRCNDAT(6914,RI,24,"E")) Line Location: DISP+9
Function Call: WRITE	Prompt: !,"Aquisition Value: ","$ "_$G(PRCNDAT(6914,RI,12,"E")) Line Location: DISP+10
Function Call: WRITE	Prompt: ?40,"CMR: ",$G(PRCNDAT(6914,RI,19,"E")) Line Location: DISP+11
Function Call: WRITE	Prompt: !,$C(7)," Cannot add item to turn in at this point" Line Location: INP+1
Function Call: WRITE	Prompt: !,$C(7)," Request already on file for this item" Line Location: INP+4
Function Call: WRITE	Prompt: !,$C(7),"Item not owned by facility" Line Location: INP+5
Function Call: WRITE	Prompt: !,$C(7)," Item not in this CMR" Line Location: INP+6
Function Call: WRITE	Prompt: !,$C(7),"Previous item capitalized, this item isn't" Line Location: INP+9