Routine: PRCHNPO2

Information

PRCHNPO2 ;WISC/RSD/RHD-CONT. OF NEW PO ;12/1/93 09:41

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;16;Oct 20, 2000
EN1	;ASK REQUEST NUMBER FOR IMPREST FUND INPUT TEMPLATE
EN2	;SCREEN FOR BREAKOUT CODE IN FILE 442
EN2Q
EN2Z
EN3	;DISPLAYS BREAKOUT CODES,CALLED FROM TEMPLATE PRCHAMT
EN4	;CALLED FROM PRCHNPO3, ADDS COMMENTS
LST1
Q
EN6	;DISPLAYS BUSINESS SIZE,CALLED FROM PRCHNPO1
EN7	;SCREEN OF TYPE CODE	ICR #6639 Status: Active Usage: Private
EN7Q
QQ

Name	Line Occurrences
Function Call: WRITE	Prompt: !?3,"Possible Breakout Codes: " Line Location: EN3+2
Function Call: WRITE	Prompt: "," Condition for execution: I Line Location: EN3+3
Function Call: WRITE	Prompt: $P(^PRCD(420.6,Y,0),U,1) Line Location: EN3+3
Function Call: WRITE	Prompt: ! Line Location: EN3+4
Function Call: WRITE	Prompt: ! Line Location: LST1+3
Function Call: WRITE	Prompt: !?3,"Business Type is undefined for this vendor!",$C(7) Line Location: EN6+6
Function Call: WRITE	Prompt: !?3,"BUSINESS TYPE: ",PRCHN("MB") Line Location: EN6+7
Function Call: WRITE	Prompt: !!,$$ERR^PRCHQQ(ROUTINE,PRCSIG) Line Location: QQ+0
Function Call: WRITE	Prompt: !,"Notify Application Coordinator!",$C(7) Condition for execution: PRCSIG=0!(PRCSIG=-3) Line Location: QQ+0