Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: PRCFA921

Package: IFCAP

Routine: PRCFA921


Information

PRCFA921 ;WISC@ALTOONA/CTB-ROUTINE TO DISPLAY 921.00 OBLIGATION TRANSACTION ;8/26/93 1:27 PM

Source Information

Source file <PRCFA921.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;;Oct 20, 2000
DJ ;RESERVED FOR CODE TO CALL A SCREEN HANDLER
LOAD
SE
71 ;DISPLAY 1358 USING 921.71 CODE SHEET

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: SE+1
Function Call: WRITE
  • Prompt: !,IOINLOW,$E(SP,1,5),"OBLIGATION NUMBER: ",IOINHI,$P(X,"^",6),IOINLOW,$E(SP,1,10),"CODE SHEET #: ",IOINHI,PRCFA("CSNAME")
  • Line Location: SE+1
Function Call: WRITE
  • Prompt: !!,IOINLOW,"TRANSACTION TYPE: ",IOINHI,$P(X,"^",4),IOINLOW," TRANSACTION DATE: ",IOINHI,$P(X,"^",5),IOINLOW," REF #: ",IOINHI,$P(X,"^",6)
  • Line Location: SE+2
Function Call: WRITE
  • Prompt: !,IOINLOW," YALD CODE: ",IOINHI,$E($P(X1,"^")_" ",1,6),IOINLOW,$E(SP,1,6),"DEL MONTH: ",IOINHI
  • Line Location: SE+3
Function Call: WRITE
  • Prompt: !,$E(SP,1,4),IOINLOW,"CONTROL POINT: ",IOINHI,$E($P(X1,"^",5)_" ",1,4),IOINLOW," COST CENTER: ",IOINHI,$P(X1,"^",6)
  • Line Location: SE+5
Function Call: WRITE
  • Prompt: !,IOINLOW," BOC: ",IOINHI,$E($P(X1,"^",8)_$E(SP,1,13),1,13),IOINLOW,$E(SP,1,7),"AMOUNT: ",IOINHI,$P(X1,"^",9)
  • Line Location: SE+6
Function Call: WRITE
  • Prompt: " $"
  • Line Location: SE+7
Function Call: WRITE
  • Prompt: !,IOINLOW," BOC: ",IOINHI,$E($P(X1,"^",10)_$E(SP,1,13),1,13),IOINLOW,$E(SP,1,7),"AMOUNT: ",IOINHI,$P(X1,"^",11)
  • Line Location: SE+8
Function Call: WRITE
  • Prompt: IOINORM
  • Line Location: SE+9
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: 71+4
Function Call: WRITE
  • Prompt: !?5,IOINLOW,"OBLIGATION NUMBER: ",IOINHI,$P(X,"^",6),IOINLOW,$E(SP,1,10),"CODE SHEET #: ",IOINHI,PRCFA("CSNAME")
  • Line Location: 71+4
Function Call: WRITE
  • Prompt: !!,IOINLOW,"TRANSACTION TYPE: ",IOINHI,$P(X,"^",4),IOINLOW," TRANSACTION DATE: ",IOINHI,$P(X,"^",5),IOINLOW," REF #: ",IOINHI,$P(X,"^",6)
  • Line Location: 71+5
Function Call: WRITE
  • Prompt: !?4,IOINLOW,"CONTROL POINT: ",IOINHI,$E($P(X1,"^",5)_" ",1,4),IOINLOW," COST CENTER: ",IOINHI,$P(X1,"^",6),$E(SP,1,9),IOINLOW,"SOURCE CODE: ",IOINHI,$P(X1,"^",3)
  • Line Location: 71+6
Function Call: WRITE
  • Prompt: !,IOINLOW,?15,"SSN: ",IOINHI,$P(X1,"^",17),?50,IOINLOW,"STUB: ",IOINHI,$P(X1,"^",18),!
  • Line Location: 71+7
Function Call: WRITE
  • Prompt: !,IOINLOW," BOC "_I_": ",IOINHI,$E($P(X,"^",6)_$E(SP,1,13),1,13),IOINLOW,$E(SP,1,7),"AMOUNT "_I_": ",IOINHI,$P(X,"^",9)
  • Line Location: 71+8
Function Call: WRITE
  • Prompt: IOINORM
  • Line Location: 71+9
Info |  Source |  Entry Points |  Interaction Calls