Routine: PRCFAC4

Information

PRCFAC4 ;WISC@ALTOONA/CTB-PRINT PO OBLIGATION HISTORY ;2/12/98 2:27 PM

Source file <PRCFAC4.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: B+1
Function Call: WRITE	Prompt: !! Line Location: B+2
Function Call: WRITE	Prompt: !,?22,"PURCHASE ORDER NUMBER: ",$P(PO(0),U),! Line Location: B+4
Function Call: WRITE	Prompt: !,?2,"DATE: " Line Location: B+5
Function Call: WRITE	Prompt: ?40,"FCP: " Line Location: B+6
Function Call: WRITE	Prompt: $E($P(PO(0),U,3),1,30) Line Location: B+6
Function Call: WRITE	Prompt: !?2,"STATUS: " Line Location: B+7
Function Call: WRITE	Prompt: Y Line Location: B+7
Function Call: WRITE	Prompt: !?2,"VENDOR: " Line Location: B+8
Function Call: WRITE	Prompt: Y Line Location: B+8
Function Call: WRITE	Prompt: ?49,"TOTAL: " Line Location: B+9
Function Call: WRITE	Prompt: $J(X,11,2) Line Location: B+9
Function Call: WRITE	Prompt: Y Line Location: WL+0
Function Call: WRITE	Prompt: ?49,$P(^(0),"^") Condition for execution: $D(^VA(200,X3,0)) Line Location: WL+0
Function Call: WRITE	Prompt: Y\100#100,"/",Y#100\1,"/",Y\10000+1700 Line Location: DT+0
Function Call: WRITE	Prompt: !!,"FMS DOCUMENT(S): ",!,?2,"TT/SC",?10,"TR DATE",?19,"REF",?27,"SIG DATE/TIME",?49,"SIGNED BY:" Line Location: HDR+0
Function Call: READ	Variable: X Timeout: $S($D(DTIME):DTIME,1:300) Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"Press RETURN to continue, '^' to Quit" Line Location: ASK+0
Function Call: WRITE	Prompt: @IOF Line Location: ASK+0
Function Call: WRITE	Prompt: " ??",$C(7) Line Location: EN40+0

FileNo	Call Tags
^PRC(442 - [#442]	Classic Fileman Calls