Routine: PRCFARRD

Information

PRCFARRD ;WISC@ALTOONA/CTB-ROUTINE TO DISPLAY FMS RECEIVING REPORT TRANSACTION ;6/23/95 14:44

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,IOINLOW,$E(SP,1,15),"OBLIGATION NUMBER: ",IOINHI,C(3),IOINLOW," PARTIAL #: ",IOINHI Line Location: SE+1
Function Call: WRITE	Prompt: PRCFA("PARTIAL") Condition for execution: $D(PRCFA("PARTIAL")) Line Location: SE+1
Function Call: WRITE	Prompt: !!,IOINLOW,$E(SP,1,10),"TOTAL AMOUNT OF RECEIVING REPORT: ",IOINHI,"$",$FN(XX,",",2) Line Location: SE+2
Function Call: WRITE	Prompt: !!,IOINLOW,"TRANSACTION TYPE: ",IOINHI,C(1),IOINLOW,$E(SP,1,5),"TRANSACTION DATE: ",IOINHI,C(2),IOINLOW," REF #: ",IOINHI,C(3) Line Location: SE+3
Function Call: WRITE	Prompt: !,IOINLOW,$E(SP,1,7),"LIQ. CODE: ",IOINHI,$E(C(4)_" ",1,4),! Line Location: SE+4
Function Call: WRITE	Prompt: @IOF Line Location: SE+8
Function Call: WRITE	Prompt: !,IOINLOW,"Item #: ",IOINHI,$J($P(X8,U,3),4) Line Location: SE+9
Function Call: WRITE	Prompt: IOINLOW," FMS Line #: ",IOINHI,$E($P(X8,U,2)_" ",1,3) Line Location: SE+10
Function Call: WRITE	Prompt: IOINLOW," BOC: ",IOINHI,$G(BOC($P(X8,U,2))) Line Location: SE+11
Function Call: WRITE	Prompt: IOINLOW," FMS Amount: ",IOINHI,$J($FN($P(X8,U,10)/100,",",2),14) Line Location: SE+12
Function Call: WRITE	Prompt: IOINLOW Line Location: EXIT+0