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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PRSDV459

Package: PAID

Routine: PRSDV459


Information

PRSDV459 ;HISC/MGD-VIEW PAID PAYRUN DATA ;09/09/04

Source Information

Source file <PRSDV459.m>

Entry Points

Name Comments DBIA/ICR reference
PP ;select pay period
EMP
CAT
SAN
DISPLAY ;display payrun data
KILL1 ;kill most variables and close the device
KILL2 ;kill the remaining variables
WRITE ;write the data
CHECK
PRTC ;press return to continue
HEADER ;print header
LD ; Display Labor Distribution codes
DESC ;write description
TABLE ;set subfile dr variable
P1 ;;1;GENERAL INFORMATION;P1;1
P2 ;;2;EARNINGS;P2;2
P3 ;;3;DEDUCTIONS;P3;4
P4 ;;4;LEAVE;P4;1
P5 ;;5;LABOR DISTRIBUTION;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,NAME,?TAB,CCORG,?61,"DUTY STATION: ",STATION_DS
  • Line Location: CAT+1
Function Call: WRITE
  • Prompt: !,SSN,?71,"T&L: ",TLU,!,DASHES,!,"PAY PERIOD: ",PPNAME
  • Line Location: CAT+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: CAT+3
Function Call: WRITE
  • Prompt: !,?20,$P(CHOICE(LOOP),";",3),?23,$P(CHOICE(LOOP),";",4)
  • Line Location: CAT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: SAN+0
Function Call: WRITE
  • Prompt: !!,*7,DIR("?")_"."
  • Line Location: SAN+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SAN+25
Function Call: WRITE
  • Prompt: !,$P(NODEDD,U,1)
  • Line Location: WRITE+6
Function Call: WRITE
  • Prompt: ?30,$S($P(NODEDD,U,5)["""$""":$J($FN(INTERNAL,",",2),14),$P(NODEDD,U,2)["NJ":$J(INTERNAL,14,2),$P(NODEDD,U,2)["D":$J(DESC,14),1:$J(INTERNAL,14))
  • Line Location: WRITE+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTC+1
Function Call: WRITE
  • Prompt: !,NAME,?TAB,CCORG,?61,"DUTY STATION: ",STATION_DS
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,SSN,?71,"T&L: ",TLU,!,DASHES
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,"PAY PERIOD: ",PPNAME,?TAB,CATEGORY,?73,"PAGE ",PAGE
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !,DASHES
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !,"LABOR DIST CODE-",PRSLD," ",$P(NODEDD,U,1)
  • Line Location: LD+17
Function Call: WRITE
  • Prompt: ?30,$S($P(NODEDD,U,5)["""$""":$J($FN(INTERNAL,",",2),14),$P(NODEDD,U,2)["NJ":$J(INTERNAL,14,2),$P(NODEDD,U,2)["D":$J(DESC,14),1:$J(INTERNAL,14))
  • Line Location: LD+18
Function Call: WRITE
  • Prompt: ?47,DESC
  • Line Location: DESC+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $L($P(DESC," ",LOOP1))>(80-COLUMN)
  • Line Location: DESC+3
Function Call: WRITE
  • Prompt: ?COLUMN,$P(DESC," ",LOOP1)
  • Line Location: DESC+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRST(459 - [#459] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call