Routine: PRCPRPH1

Information

PRCPRPH1 ;WISC/RFJ-physical count form for prim and sec (cont);02 Feb 93 ; 3/22/99 11:30am

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"MAIN STORAGE LOCATION: ",MAIN Line Location: DQ+11
Function Call: WRITE	Prompt: !?10,"GROUP CATEGORY: ",$$GROUPNM^PRCPEGRP(GROUP) Line Location: DQ+13
Function Call: WRITE	Prompt: !,$E($P(D,"^",1),1,40),?42,ITEMDA,?47,$J($P(D,"^",2),10) Line Location: DQ+15
Function Call: WRITE	Prompt: $J($P(D,"^",3),12) Line Location: DQ+16
Function Call: WRITE	Prompt: ?71,"_________" Line Location: DQ+17
Function Call: WRITE	Prompt: !?20,"ADD STORAGE: " Line Location: DQ+19
Function Call: WRITE	Prompt: !?20 Line Location: DQ+20
Function Call: WRITE	Prompt: $E($$STORELOC^PRCPESTO($P(D,"^")),1,15)," " Line Location: DQ+21
Function Call: WRITE	Prompt: !?10,"<<< TASKMANAGER JOB TERMINATED BY USER >>>" Line Location: DQ+27
Function Call: WRITE	Prompt: @IOF Line Location: H+0
Function Call: WRITE	Prompt: $C(13),"PHYSICAL COUNT FORM: ",$E(PRCP("IN"),1,12),?(80-$L(%)),% Line Location: H+1
Function Call: WRITE	Prompt: !,"DESCRIPTION",?42,"MI",?50,"UNIT/ISS" Line Location: H+2
Function Call: WRITE	Prompt: ?62,"ON HAND" Line Location: H+3
Function Call: WRITE	Prompt: ?71,"NEW COUNT",!,% Line Location: H+4