PRCHRPTX ;AAC/JDM-PRCH ITEM HISTORY BY DATE RANGE ; [1/13/99 11:13am]
Source file <PRCHRPTX.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
V | ;;5.1;IFCAP;;Oct 20, 2000
|
|
EN | ;DISPLAY ITEM HISTORY
|
|
XXLST | ||
TOFCP | ||
XFCP | ||
XXITM | ||
XXDT | ||
LOOPPD | ; Set up to locate records to display.
|
|
LOOPPD1 | ; Loop through file 441.
; ; 1. Loop through Fund Control Point for PRC("SITE") ; within one Item Master File Number. ; 2. Loop through P.O. DATE (in reverse order). ; 3. Loop through a single P.O. DATE to get file 442 PO NUMBER. |
|
DISP | ||
MOFCP | ||
EXIT | ||
CALCCST | ; EP -- CALCULATES ACTUAL UNIT COST TO 2 DECIMALS
|
|
HDR | ||
PAUSE | ; Test for prompt to return or exit
|
|
ASK |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^PRC(420 - [#420] | Classic Fileman Calls |
^PRC(441 - [#441] | Classic Fileman Calls |