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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: PRSLIB00

Package: PAID

Routine: PRSLIB00


Information

PRSLIB00 ;WOIFO/JAH - PAID LIBRARY - ROUTINES & FUNCTIONS ;01/22/2005

Source Information

Source file <PRSLIB00.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 3 (,DD)^%DT  C^%DTC  ^DIR  
PAID 1 $$ASK^PRSLIB00  

Caller Graph

Caller Graph Total: 62

Package Total Caller Graph
PAID 62 PRSA8BNI  PRSA8BTH  PRSACED  PRSALD  PRSALDA  PRSALVB  PRSARC  PRSARC01  
PRSARC02  PRSARC03  PRSARC04  PRSARC06  PRSARCS  PRSASR  PRSASR1  PRSATE2  
PRSATP  PRSD1150  PRSDFOLL  PRSEEMP3  PRSEEMP4  PRSEPMD4  PRSEPMD5  PRSLIB00  
PRSLIB01  PRSNAA01  PRSNAC01  PRSNCAPE  PRSNCGP  PRSNCGR  PRSNCR1  PRSNDPC1  
PRSNRAD0  PRSNRAS1  PRSNRDN1  PRSNREV1  PRSNRGD1  PRSNRGS0  PRSNRLND  PRSNRLOS  
PRSNRLS0  PRSNRMM  PRSNRMM1  PRSNRND1  PRSNROLD  PRSNROLS  PRSNRSM1  PRSNRUR  
PRSNRUT0  PRSNUT02  PRSNUT03  PRSNUT05  PRSPCORE  PRSPEEM  PRSPESR  PRSPESR1  
PRSPSAP  PRSPSAP2  PRSPSAP3  PRSPSAPU  PRSXP134  ^PRST(458.1  

Entry Points

Name Comments DBIA/ICR reference
AVAILREC(WHO,GLOBREF,OUT) ;IS RECORD AVAILABLE
LOCK(GLOBREF) ;INCREMENTALLY LOCK A RECORD
UNLOCK(GLOBREF) ;INCREMENTALLY UNLOCK A RECORD
ASK(HOLD) ;ask user 2 continue function
BLDYR(NEXT) ;Build year with last digit of year.
LEAPYR(Y) ;boolean function determines if year is leap year.
MONOGRPH(MSG) ;DISPLAY A MESSAGE (MSG)
HUMDRUM(ZZ,INC) ;A SORT OF CLOCK THAT SPINS WHILE LONG PROCESSING IS OCCURRING
MSSG(MSG) ;Randomly pick a heart warming message
; MSGS = The # of messages in this routine. If u add a message, update
MSG ;
CVTDATE(X,PRSDATE) ;
; Called by the input transform of File 458.1 (LEAVE REQUEST) field
; # 2 From Date and field # 4 To Date.
;
; INPUT: X - is set to the external representation of the date
; selected by the user.

External References

Name Field # of Occurrence
^%DT CVTDATE+29, CVTDATE+35
DD^%DT BLDYR+17
C^%DTC BLDYR+16, CVTDATE+52
^DIR ASK+11
$$ASK^PRSLIB00 AVAILREC+30

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,EMPNAME,!,MESSAGE
  • Line Location: AVAILREC+30
Function Call: WRITE
  • Prompt: !!,HAIR,!,FORHEAD,!,NOSE,!,LINE
  • Line Location: MONOGRPH+11
Function Call: WRITE
  • Prompt: !,"| ",?TAB1,MSG,?TAB2,"|",!,LINE,!,TOE,!
  • Line Location: MONOGRPH+12
Function Call: WRITE
  • Prompt: $C(13),$S(ZZT=1:"|",ZZT=2:"/",ZZT=3:"-",ZZT=4:"\",ZZT=5:"|",ZZT=6:"/",ZZT=7:"-",ZZT=8:"\",1:"")
  • Line Location: HUMDRUM+1
Routine Call
  • DIR
  • Line Location:
    • ASK+11

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRSPC - [#450] AVAILREC+29
^PRST(458 - [#458] AVAILREC+28
^TMP($J AVAILREC+32*

Label References

Name Line Occurrences
$$LOCK AVAILREC+30

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT CVTDATE+19~, CVTDATE+29*, CVTDATE+35*
%DT(0 CVTDATE+24*
ADDYRS BLDYR+7~, BLDYR+15*, BLDYR+16
>> AVAIL AVAILREC+27*, AVAILREC+33*, AVAILREC+34
BEGINDT CVTDATE+19~, CVTDATE+53*, CVTDATE+61
CNT BLDYR+7~, BLDYR+8*, BLDYR+14*, BLDYR+15, MSSG+2~, MSSG+4*
CURR BLDYR+7~, BLDYR+10*, BLDYR+11, BLDYR+12*, BLDYR+13*
>> DFN AVAILREC+25, AVAILREC+28, AVAILREC+29, AVAILREC+32
DIR ASK+8~
DIR("A" ASK+9*
DIR(0 ASK+9*, ASK+10*
>> DIRUT ASK+12
DT BLDYR+9, CVTDATE+51, CVTDATE+61
EMPNAME AVAILREC+14~, AVAILREC+29*, AVAILREC+30
FORHEAD MONOGRPH+2~, MONOGRPH+10*, MONOGRPH+11
FUTYR CVTDATE+19~, CVTDATE+36*, CVTDATE+41, CVTDATE+50, CVTDATE+61
GLOBREF AVAILREC~, AVAILREC+25*, AVAILREC+30, LOCK~, LOCK+3, UNLOCK~, UNLOCK+1
HAIR MONOGRPH+2~, MONOGRPH+6*, MONOGRPH+11
HOLD ASK~, ASK+9
I BLDYR+7~, BLDYR+11*
INC HUMDRUM~, HUMDRUM+1
IOST ASK+6
LEAPFLAG LEAPYR+4~, LEAPYR+5*, LEAPYR+6*, LEAPYR+7
LEN MONOGRPH+2~, MONOGRPH+3*, MONOGRPH+4
LINE MONOGRPH+2~, MONOGRPH+9*, MONOGRPH+11, MONOGRPH+12
M1 AVAILREC+14~, AVAILREC+19*, AVAILREC+22
M2 AVAILREC+14~, AVAILREC+20*, AVAILREC+22
M3 AVAILREC+14~, AVAILREC+21*, AVAILREC+22
MESSAGE AVAILREC+14~, AVAILREC+22*, AVAILREC+30
MSG MONOGRPH~, MONOGRPH+3, MONOGRPH+12, MSSG~, MSSG+4*
MSGS MSSG+2~, MSSG+3*, MSSG+4
NEXT BLDYR~, BLDYR+11
NOSE MONOGRPH+2~, MONOGRPH+8*, MONOGRPH+11
OUT AVAILREC~, AVAILREC+26!, AVAILREC+30*
PASYR CVTDATE+19~, CVTDATE+30*, CVTDATE+41, CVTDATE+50, CVTDATE+55, CVTDATE+61
>> PPI AVAILREC+25, AVAILREC+28
PRSDATE CVTDATE~, CVTDATE+24
RESP ASK+8~*
RTN BLDYR+7~, BLDYR+17*, BLDYR+18
>> STOP ASK+5*, ASK+11*, ASK+12*, ASK+13
>> SUCCESS LOCK+3*, LOCK+4
TAB1 MONOGRPH+2~, MONOGRPH+4*, MONOGRPH+12
TAB2 MONOGRPH+2~, MONOGRPH+5*, MONOGRPH+12
TOE MONOGRPH+2~, MONOGRPH+7*, MONOGRPH+12
WHO AVAILREC~, AVAILREC+20
X BLDYR+7~, BLDYR+17, CVTDATE~, CVTDATE+41*, CVTDATE+53, CVTDATE+55*, CVTDATE+61*, CVTDATE+63
X1 BLDYR+7~, BLDYR+16*, CVTDATE+19~, CVTDATE+51*
X2 BLDYR+7~, BLDYR+16*, CVTDATE+19~, CVTDATE+51*
Y ASK+11, BLDYR+7~, BLDYR+17*, LEAPYR~, LEAPYR+5, LEAPYR+6, CVTDATE+19~, CVTDATE+30, CVTDATE+36
YR BLDYR+7~, BLDYR+9*, BLDYR+10, BLDYR+16*
ZZ HUMDRUM~, HUMDRUM+1*, HUMDRUM+2
>> ZZT HUMDRUM+1*

Marked Items

Name Field # of Occurrence
$T(MSG+CNT MSSG+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All