Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PRSLIB01

Package: PAID

Routine: PRSLIB01


Information

PRSLIB01 ;JAH/WCIOFO-PAID UTILITIES AND LIBRARY 01 ;Mar 25, 2005

Source Information

Source file <PRSLIB01.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
PAID 3 EN^PRS8HD  ($$NXTPP,NX,PP)^PRSAPPU  $$LEAPYR^PRSLIB00  
VA FileMan 3 ^%DT  ^%DTC  ^DIR  
Kernel 2 ENDR^%ZISS  ($$DOW,$$FMTE)^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
PAID 2 PRS MONTH CALENDAR  PRSPEM  

Entry Points

Name Comments DBIA/ICR reference
MAIN ;DISPLAY MONTHLY CALENDAR FOR ANY DATE
CALENDAR(OUT) ;
; Ask user for a date and quit if not a valid date.
; Get # of days in the month the user has selected.
; Get the weekday for the 1st day of the selected month.
; If necessary get days elapsed from jan 1 to 1st day of selected mo.
; Display the month.
SILMO(PRSDT) ;SILENT CALL TO DISPLAY MONTH
; INPUT: PRSDT - must be fileman date
GETPPS(FIRSTDAY,LASTDAY) ;
GETHEAD(Y) ;
WEEKDAY1(ZDATE) ;get the weekday of the 1st day of the month
; INPUT: ZDATE - FileMan date, used as the month to display
; OUTPUT: return - Integer corresponding to day of week
; (i.e. Sunday[1], Monday[2]) for the 1st day of
; the month
DISPMO(DAYNO,NODAYS,HL) ;DISPLAY ENTIRE MONTH
ASKJULIA() ;RETURN RESPONSE--DO YOU WANT A CALENDAR A with dates
; expressed as the number of days elapsed since January 1?
DISPJULI(DAYNO,NODAYS,JULIAND1) ;
; DISPLAY GREGORIAN AND JULIAN CALENDAR SIDE BY SIDE
PAYROLMO(DAYNO,NODAYS) ;PAYROLL STYLE DISPLAY OF ENTIRE MONTH
DAYSINMO(Y,M) ; Return number of days in month based on year and month
; Input: Y = year in 4 digit format between 1700 and 3000
; M = month expressed as an integer from 1 to 12 (Jan - Dec)
GETJULI(ZFMDATE,YEAR) ;

External References

Name Field # of Occurrence
^%DT CALENDAR+11, SILMO+4
^%DTC GETJULI+4
ENDR^%ZISS DISPMO+5
^DIR ASKJULIA+22
EN^PRS8HD CALENDAR+48, SILMO+23
$$NXTPP^PRSAPPU GETPPS+4, GETPPS+8
NX^PRSAPPU GETPPS+3, GETPPS+4, GETPPS+8
PP^PRSAPPU GETPPS+2
$$LEAPYR^PRSLIB00 DAYSINMO+8
$$DOW^XLFDT WEEKDAY1+6
$$FMTE^XLFDT GETHEAD+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: CALENDAR+35
Function Call: WRITE
  • Prompt: "---------------",HDR,"------------"
  • Line Location: CALENDAR+36
Function Call: WRITE
  • Prompt: !!,"-------Elapsed Days Calendar---------"
  • Line Location: CALENDAR+41
Function Call: WRITE
  • Prompt: !,"---------------Holidays------------",!
  • Line Location: CALENDAR+43
Function Call: WRITE
  • Prompt: !,?2,$P(HD(HOLIDAY),"^",2)," ",+$E(HOLIDAY,6,7),?15,$P(HD(HOLIDAY),"^")
  • Line Location: CALENDAR+54
Function Call: WRITE
  • Prompt: " Sorry, Can't find holidays past 2022."
  • Line Location: CALENDAR+56
Function Call: WRITE
  • Prompt: !," No Holidays this month."
  • Line Location: CALENDAR+57
Function Call: WRITE
  • Prompt: !,"-----------------------------------",!
  • Line Location: CALENDAR+58
Function Call: WRITE
  • Prompt: @IOF,!,"---------------",HDR,"------------"
  • Line Location: SILMO+17
Function Call: WRITE
  • Prompt: !,"---------------Holidays------------",!
  • Line Location: SILMO+19
Function Call: WRITE
  • Prompt: !,?2,$P(HD(HOLIDAY),"^",2)," ",+$E(HOLIDAY,6,7),?15,$P(HD(HOLIDAY),"^")
  • Line Location: SILMO+29
Function Call: WRITE
  • Prompt: " Sorry, Can't find holidays past 2022."
  • Line Location: SILMO+31
Function Call: WRITE
  • Prompt: !," No Holidays this month."
  • Line Location: SILMO+32
Function Call: WRITE
  • Prompt: !,"-----------------------------------",!
  • Line Location: SILMO+33
Function Call: WRITE
  • Prompt: !,?PPOFFSET," ",DAYS,!
  • Line Location: DISPMO+10
Function Call: WRITE
  • Prompt: PPS(I)
  • Line Location: DISPMO+13
Function Call: WRITE
  • Prompt: ?BLDTAB,IORVON,I,IORVOFF
  • Line Location: DISPMO+17
Function Call: WRITE
  • Prompt: ?(BLDTAB+(PPOFFSET+((DAYPOS+1)*(4)-$S($L(I)=2:1,1:0)))),I
  • Line Location: DISPMO+22
Function Call: WRITE
  • Prompt: ?(PPOFFSET+((DAYPOS+1)*(4)-$S($L(I)=2:1,1:0))),I
  • Line Location: DISPMO+25
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASKJULIA+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPJULI+7
Function Call: WRITE
  • Prompt: PPS(I)
  • Line Location: DISPJULI+10
Function Call: WRITE
  • Prompt: ?(PPOFFSET+((DAYPOS+1)*4-($L(I+JULIAND1)-1))),I+JULIAND1
  • Line Location: DISPJULI+11
Function Call: WRITE
  • Prompt: !," ",DAYS,!
  • Line Location: PAYROLMO+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PAYROLMO+9
Function Call: WRITE
  • Prompt: ?((DAYPOS+1)*(4)-$S($L(I)=2:1,1:0)),I
  • Line Location: PAYROLMO+10
Routine Call
  • DIR
  • Line Location:
    • ASKJULIA+22

Label References

Name Line Occurrences
$$ASKJULIA CALENDAR+18
$$DAYSINMO CALENDAR+23, SILMO+9
$$GETHEAD CALENDAR+34, SILMO+16
$$GETJULI CALENDAR+40
$$WEEKDAY1 CALENDAR+31, SILMO+15
CALENDAR MAIN+2
DISPJULI CALENDAR+42
DISPMO CALENDAR+37, SILMO+18
GETPPS CALENDAR+29, SILMO+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT CALENDAR+8~, CALENDAR+11*, SILMO+3~
BLDTAB DISPMO+7~, DISPMO+8*, DISPMO+16*, DISPMO+17, DISPMO+18*, DISPMO+22
CNTDWN DISPMO+7~, DISPMO+8*, DISPMO+14, DISPMO+20*, DISPMO+23*
COUNT CALENDAR+9~, CALENDAR+51*, CALENDAR+55*, CALENDAR+56*, CALENDAR+57, SILMO+3~, SILMO+26*, SILMO+30*, SILMO+31*, SILMO+32
D1 GETPPS+1~, GETPPS+2*, GETPPS+4, GETPPS+5, GETPPS+7, GETPPS+9, GETPPS+10
DAY1 CALENDAR+8~, CALENDAR+31*, CALENDAR+37, CALENDAR+42, SILMO+3~, SILMO+15*, SILMO+18
DAYNO DISPMO~, DISPMO+12, DISPJULI~, DISPJULI+9, PAYROLMO~, PAYROLMO+8
DAYPOS DISPMO+7~, DISPMO+12*, DISPMO+13, DISPMO+16, DISPMO+20, DISPMO+22, DISPMO+25, DISPJULI+5~, DISPJULI+9*, DISPJULI+10
, DISPJULI+11, PAYROLMO+4~, PAYROLMO+8*, PAYROLMO+9, PAYROLMO+10
DAYS CALENDAR+8~, CALENDAR+23*, CALENDAR+25, CALENDAR+37, CALENDAR+42, SILMO+3~, SILMO+9*, SILMO+10, SILMO+18, DISPMO+7~
, DISPMO+9*, DISPMO+10, DISPJULI+5~, PAYROLMO+4~, PAYROLMO+5*, PAYROLMO+6
DIR ASKJULIA+2~
DIR("?" ASKJULIA+7*, ASKJULIA+8*, ASKJULIA+9*, ASKJULIA+10*, ASKJULIA+11*, ASKJULIA+12*, ASKJULIA+13*, ASKJULIA+14*, ASKJULIA+15*, ASKJULIA+16*
, ASKJULIA+17*, ASKJULIA+18*, ASKJULIA+19*, ASKJULIA+20*, ASKJULIA+21*
DIR("A" ASKJULIA+4*
DIR("B" ASKJULIA+6*
DIR(0 ASKJULIA+5*
DIRUT ASKJULIA+2~
DT CALENDAR+15, SILMO+7
FIRSTDAY CALENDAR+8~, CALENDAR+25*, CALENDAR+29, CALENDAR+40, CALENDAR+49*, CALENDAR+50, CALENDAR+52, SILMO+3~, SILMO+10*, SILMO+14
, SILMO+24*, SILMO+25, SILMO+27, GETPPS~, GETPPS+2, GETPPS+4
GOODM DAYSINMO+4~*, DAYSINMO+6*, DAYSINMO+7
GOODY DAYSINMO+4~*, DAYSINMO+5*, DAYSINMO+7
HD CALENDAR+47~, SILMO+22~
HD( CALENDAR+53, CALENDAR+54, SILMO+28, SILMO+29
HDR CALENDAR+9~, CALENDAR+34*, CALENDAR+36, SILMO+3~, SILMO+16*, SILMO+17, GETHEAD+1~, GETHEAD+2*, GETHEAD+3, GETHEAD+4
, GETHEAD+5
HIGHLITE CALENDAR+8~, CALENDAR+14*, CALENDAR+15*, CALENDAR+37, SILMO+3~, SILMO+6*, SILMO+7*, SILMO+18
HL DISPMO~, DISPMO+5, DISPMO+14, DISPMO+15
HO CALENDAR+47~, SILMO+22~
HOLIDAY CALENDAR+47~, CALENDAR+50*, CALENDAR+53*, CALENDAR+54, SILMO+22~, SILMO+25*, SILMO+28*, SILMO+29
I DISPMO+7~, DISPMO+11*, DISPMO+12, DISPMO+13, DISPMO+14, DISPMO+15, DISPMO+16, DISPMO+17, DISPMO+18, DISPMO+22
, DISPMO+25, DISPJULI+5~, DISPJULI+8*, DISPJULI+9, DISPJULI+10, DISPJULI+11, PAYROLMO+4~, PAYROLMO+7*, PAYROLMO+8, PAYROLMO+10
IOF CALENDAR+35, SILMO+17
IORVOFF DISPMO+5~, DISPMO+17
IORVON DISPMO+5~, DISPMO+17
JULIAND1 DISPJULI~, DISPJULI+11
JULID1 CALENDAR+39~, CALENDAR+40*, CALENDAR+42
LASTDAY CALENDAR+8~, CALENDAR+25*, CALENDAR+29, CALENDAR+53, SILMO+3~, SILMO+10*, SILMO+14, SILMO+28, GETPPS~, GETPPS+7
, GETPPS+9
LENOFDT GETHEAD+1~, GETHEAD+4*, GETHEAD+5
M DAYSINMO~, DAYSINMO+6
MONTH CALENDAR+8~, CALENDAR+22*, CALENDAR+23, SILMO+3~, SILMO+8*, SILMO+9, GETHEAD+1~, GETHEAD+3*, GETHEAD+6, DAYSINMO+8
NODAYS DISPMO~, DISPMO+11, DISPJULI~, DISPJULI+8, PAYROLMO~, PAYROLMO+7
OUT MAIN+1~, MAIN+2, CALENDAR~, CALENDAR+7*, CALENDAR+59*
PP4Y GETPPS+1~
PPDAY GETPPS+1~, GETPPS+5*, GETPPS+6, GETPPS+10*, GETPPS+11
PPE GETPPS+1~, GETPPS+4*, GETPPS+6, GETPPS+8*, GETPPS+11
PPI GETPPS+1~
PPOFFSET DISPMO+7~, DISPMO+8*, DISPMO+10, DISPMO+16, DISPMO+22, DISPMO+25, DISPJULI+5~, DISPJULI+6*, DISPJULI+11
PPS CALENDAR+28~, SILMO+13~
PPS( GETPPS+6*, GETPPS+11*, DISPMO+13, DISPJULI+10
PRS8D CALENDAR+47~, CALENDAR+48*, SILMO+22~, SILMO+23*
PRSDT SILMO~, SILMO+4, SILMO+8, SILMO+10, SILMO+15, SILMO+23
SHOWJULI CALENDAR+8~, CALENDAR+18*, CALENDAR+38
U DAYSINMO+8
X SILMO+3~, SILMO+4*, DISPMO+5*, GETJULI+5
X1 GETJULI+1~, GETJULI+3*
X2 GETJULI+1~, GETJULI+2*
Y CALENDAR+8~, CALENDAR+11, CALENDAR+12, CALENDAR+15, CALENDAR+19, CALENDAR+34, SILMO+3~, SILMO+4, SILMO+7, SILMO+16
, GETHEAD~, GETHEAD+2, ASKJULIA+2~, ASKJULIA+23, DAYSINMO~, DAYSINMO+5
YEAR CALENDAR+8~, CALENDAR+22*, CALENDAR+23, CALENDAR+40, SILMO+3~, SILMO+8*, SILMO+9, GETHEAD+1~, GETHEAD+5*, GETHEAD+6
, DAYSINMO+8, GETJULI~, GETJULI+2
ZDATE WEEKDAY1~, WEEKDAY1+5*, WEEKDAY1+6
ZFMDATE CALENDAR+8~, CALENDAR+11*, CALENDAR+22, CALENDAR+25, CALENDAR+31, CALENDAR+48, GETJULI~, GETJULI+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All