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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PRSPSAPU

Package: PAID

Routine: PRSPSAPU


Information

PRSPSAPU ;WOIFO/JAH - PT Physician, supervisor approval utils ;01/22/05

Source Information

Source file <PRSPSAPU.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
PAID 5 $$ASK^PRSLIB00  $$ELAPSE^PRSPESR2  (GETESR,HDRESR)^PRSPSAP1  $$TCSTAT^PRSPSAP2  ESRDTS^PRSPSAPU  
VA FileMan 4 MSG^DIALOG  IX^DIC  (,CHK,FILE)^DIE  $$EXTERNAL^DILFD  

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: 19

Package Total Caller Graph
PAID 19 PRSARC07  PRSATPTW  PRSNRAS1  PRSNRDN1  PRSNRLND  PRSNRLOS  PRSNRLS0  PRSNRMM  
PRSNRND1  PRSNRSM1  PRSPEAA  PRSPLVA  PRSPSAP  PRSPSAP1  PRSPSAP2  PRSPSAP3  
PRSPSAPU  PRSPUE  PRSPUT2  

Entry Points

Name Comments DBIA/ICR reference
ONEPTP(TLE) ; get one or all ptp's from a TLE
; if the selection hasn't a memo or hasn't an ESR to be approved
; then inform and re-ask
;
; return PRSIEN for successful PTP selection
; return 0 for all PTP's in T&L
; return -1 for abort/timeout
ALL1PTP(TLE) ; ask for one part time physician from a TLE or ALL
UPESRST(PPI,PRSIEN,PRSD) ;update ESR DAILY STATUS
ESRDTS(ESRDTS,PRSIEN,PPI) ; Return signed dates from PTP's ESR
; return array ESRDTS subscripted sequentially from 1
; ESRDTS(1) = Tue 2-NOV-04
; ESRDTS(2) = Fri 5-NOV-04
DISPLAY(PRSIEN,PPI,CNT) ;display PPI signed esr days for super review/action
; RETURN array CNT
; CNT = count of days
; CNT(1)= days w/status from supervisor during this option
; PGLNS = lines on current page
; DYLNS = lines in a day
;
DAY(LN,EXTDAY,ESR,PRSIEN,PPI) ; write a day, return # of lines.
GETDAY(ESRDY,ESRDTS,ESR,CNT,PRSIEN,PPI) ; RETURN write a day IN ESRDY ARRAY
TTE(CODE) ; return external type of time
STATUSE(ST) ; return external form of supervisor action status
CLRTCDY(PPI,PRSIEN,PRSD,EST) ;function true (1) for success otherwise 0
; clear a timecard day (2,3,10 nodes) if status is (T) timekeeper
; clear work, posting status and remove approved status from ESR day.
; INPUT: PPI,PRSIEN,PRSD: package standard
; EST : optional, valid ESR DAILY STATUS internal value
WRAP(LNS,STR,TAB,WID) ; format a long message string to break lines at words
; TAB is left margin
; WID is right margin
; return LNS number of lines it took to write
WW ; Write Word
AMT(START,STOP,MEAL) ; return decimal hours between times
; times are in PAID timecard work node format. (e.g. 04:30P )

External References

Name Field # of Occurrence
MSG^DIALOG CLRTCDY+24
IX^DIC ALL1PTP+11
^DIE UPESRST+5
CHK^DIE CLRTCDY+17
FILE^DIE CLRTCDY+23
$$EXTERNAL^DILFD DAY+27
$$ASK^PRSLIB00 DISPLAY+13
$$ELAPSE^PRSPESR2 DAY+18, AMT+3
GETESR^PRSPSAP1 DISPLAY+15
HDRESR^PRSPSAP1 DISPLAY+8, DISPLAY+13
$$TCSTAT^PRSPSAP2 CLRTCDY+9
ESRDTS^PRSPSAPU DISPLAY+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There are no Service Level Memoranda on file for ",$P(^PRSPC(PTP,0),U)
  • Line Location: ONEPTP+14
Function Call: WRITE
  • Prompt: !!,"There are no daily ESR's pending approval for ",$P(^PRSPC(PTP,0),U)
  • Line Location: ONEPTP+15
Function Call: WRITE
  • Prompt: !
  • Line Location: ALL1PTP+10
Function Call: WRITE
  • Prompt: !,CNT
  • Line Location: DISPLAY+17
Function Call: WRITE
  • Prompt: ?3,$P(EXTDAY,U,2)
  • Line Location: DAY+4
Function Call: WRITE
  • Prompt: ?17,ESR("TODEXT")
  • Line Location: DAY+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DAY+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DAY+10
Function Call: WRITE
  • Prompt: ?33,START
  • Line Location: DAY+15
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DAY+17
Function Call: WRITE
  • Prompt: STOP
  • Line Location: DAY+20
Function Call: WRITE
  • Prompt: ?49,$$TTE($P(ESR("WORK"),U,ESEG+2))
  • Line Location: DAY+22
Function Call: WRITE
  • Prompt: !,?34,"Remarks: ",$$EXTERNAL^DILFD(458.02,44,"",REMARKS)
  • Line Location: DAY+27
Function Call: WRITE
  • Prompt: ?61,HOURS,?68,MEAL
  • Line Location: DAY+29
Function Call: WRITE
  • Prompt: !,?2,"Physician Remarks: "
  • Line Location: DAY+32
Function Call: WRITE
  • Prompt: ?72,$$STATUSE(STATUSI)
  • Line Location: DAY+36
Function Call: WRITE
  • Prompt: !
  • Line Location: GETDAY+10
Function Call: WRITE
  • Prompt: ?$G(TAB)
  • Line Location: WRAP+7
Function Call: WRITE
  • Prompt: !,?$G(TAB)
  • Line Location: WW+2
Function Call: WRITE
  • Prompt: WORD," "
  • Line Location: WW+3
Routine Call
  • DIALOG
  • Line Location:
    • CLRTCDY+24
Routine Call
  • DIC
  • Line Location:
    • ALL1PTP+11
Routine Call
  • DIE
  • Line Location:
    • UPESRST+5
Routine Call
  • DIE
  • Line Location:
    • CLRTCDY+17
Routine Call
  • DIE
  • Line Location:
    • CLRTCDY+23

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRSPC - [#450] Classic Fileman Calls
458.02 CHK^DIE,  EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRSPC - [#450] ONEPTP+14, ONEPTP+15
^PRST(457.3 - [#457.3] TTE+3, TTE+4
^PRST(458 - [#458] ONEPTP+15, ESRDTS+5, CLRTCDY+7, CLRTCDY+13!
^PRST(458.7 - [#458.7] ONEPTP+14
^TMP($J ESRDTS+7, DISPLAY+12, DAY+35, GETDAY+23

Label References

Name Line Occurrences
$$ALL1PTP ONEPTP+11
$$STATUSE DAY+36, GETDAY+23
$$TTE DAY+22, GETDAY+18
DAY DISPLAY+18
WRAP DAY+33
WW WRAP+16, WRAP+18

Naked Globals

Name Field # of Occurrence
^(10 CLRTCDY+13!
^(3 CLRTCDY+13!

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ALL ONEPTP+8~, ONEPTP+9*, ONEPTP+10, ONEPTP+12*, ONEPTP+16
AMT AMT+2~, AMT+3*, AMT+4, AMT+5*, AMT+6
BLANKS GETDAY+1~, GETDAY+3*, GETDAY+5, GETDAY+13, GETDAY+18, GETDAY+20, GETDAY+22
CNT DISPLAY~, DISPLAY+11*, DISPLAY+16*, DISPLAY+17, DISPLAY+18, GETDAY~, GETDAY+4, GETDAY+23
CNT(1 DISPLAY+11*
CODE TTE~, TTE+2, TTE+3
COLW WRAP+4~, WRAP+6*, WRAP+13, WRAP+14, WRAP+15
D ALL1PTP+2~, ALL1PTP+9*
DA UPESRST+1~, UPESRST+2*
DA(1 UPESRST+2*, UPESRST+4
DA(2 UPESRST+2*, UPESRST+4
DAYLNS DISPLAY+7~, DISPLAY+18, DISPLAY+19
DIC ALL1PTP+2~, ALL1PTP+6*
DIC("A" ALL1PTP+4*
DIC("S" ALL1PTP+7*
DIC(0 ALL1PTP+5*
DIE UPESRST+1~, UPESRST+4*
DR UPESRST+1~, UPESRST+3*
DTOUT ALL1PTP+2~, ALL1PTP+14
DUOUT ALL1PTP+2~, ALL1PTP+14
ESEG DISPLAY+7~, DAY+1~, DAY+9*, DAY+10, DAY+12, DAY+13, DAY+14, DAY+22, DAY+24, GETDAY+1~
, GETDAY+9*, GETDAY+10, GETDAY+12, GETDAY+16, GETDAY+18, GETDAY+20, GETDAY+22
ESR DISPLAY+7~, DISPLAY+15, DISPLAY+18, DAY~, GETDAY~
ESR("RMK" DAY+31, DAY+33
ESR("TODEXT" DAY+5, DAY+7, GETDAY+5, GETDAY+7
ESR("WORK" DAY+9, DAY+12, DAY+13, DAY+14, DAY+22, DAY+24, GETDAY+9, GETDAY+12, GETDAY+16, GETDAY+18
, GETDAY+20, GETDAY+22
ESRDTS ESRDTS~, DISPLAY+7~, DISPLAY+10, GETDAY~
ESRDTS( ESRDTS+9*, DISPLAY+18, GETDAY+4, GETDAY+23
ESRDY GETDAY~
ESRDY( GETDAY+4*, GETDAY+5*, GETDAY+7*, GETDAY+13*, GETDAY+14*, GETDAY+16*, GETDAY+18*, GETDAY+20*, GETDAY+22*, GETDAY+24*
, GETDAY+25*
EST CLRTCDY~, CLRTCDY+17, CLRTCDY+22
EXTDAY DAY~, DAY+4, DAY+35
HOURS DAY+1~, DAY+3*, DAY+18*, DAY+29
I DISPLAY+7~, WRAP+4~, WRAP+9*, WRAP+10
IENS CLRTCDY+20~, CLRTCDY+21*, CLRTCDY+22
IOSL DISPLAY+13
ITEMS ESRDTS+4~, ESRDTS+6*, ESRDTS+8*, ESRDTS+9
K TTE+1~, TTE+3*, TTE+4
LCNT DAY+1~, DAY+33, DAY+34
LN DAY~, DAY+2*, DAY+7*, DAY+26*, DAY+34*, GETDAY+1~, GETDAY+2*, GETDAY+4, GETDAY+5, GETDAY+7*
, GETDAY+13, GETDAY+14, GETDAY+16, GETDAY+18, GETDAY+20, GETDAY+22, GETDAY+24, GETDAY+25*
LNS WRAP~, WRAP+8*, WW+2*
MEAL DAY+1~, DAY+14*, DAY+18, DAY+29, AMT~, AMT+3
OUT ONEPTP+8~, ONEPTP+9*, ONEPTP+10, ONEPTP+13*, ONEPTP+17, DISPLAY+7~, DISPLAY+11*, DISPLAY+12, DISPLAY+13*, DISPLAY+14
PGLNS DISPLAY+7~, DISPLAY+8, DISPLAY+13, DISPLAY+19*
PPI UPESRST~, UPESRST+2, ESRDTS~, ESRDTS+5, ESRDTS+7, DISPLAY~, DISPLAY+8, DISPLAY+10, DISPLAY+12, DISPLAY+13
, DISPLAY+15, DISPLAY+18, DAY~, DAY+35, GETDAY~, GETDAY+23, CLRTCDY~, CLRTCDY+6, CLRTCDY+7, CLRTCDY+9
, CLRTCDY+13, CLRTCDY+21
PRSD UPESRST~, UPESRST+2, ESRDTS+4~, ESRDTS+6*, ESRDTS+7*, ESRDTS+9, DISPLAY+7~, DISPLAY+11*, DISPLAY+12*, DISPLAY+15
, CLRTCDY~, CLRTCDY+6, CLRTCDY+7, CLRTCDY+13, CLRTCDY+21
PRSDTS ESRDTS+4~, ESRDTS+5*, ESRDTS+9
PRSFDA CLRTCDY+20~
PRSFDA( CLRTCDY+22*
PRSIEN ALL1PTP+1, ALL1PTP+2~, ALL1PTP+3*, ALL1PTP+15*, ALL1PTP+17*, ALL1PTP+18, UPESRST~, UPESRST+2, ESRDTS~, ESRDTS+7
, DISPLAY~, DISPLAY+8, DISPLAY+10, DISPLAY+12, DISPLAY+13, DISPLAY+15, DISPLAY+18, DAY~, DAY+35, GETDAY~
, GETDAY+23, CLRTCDY~, CLRTCDY+6, CLRTCDY+7, CLRTCDY+9, CLRTCDY+13, CLRTCDY+21
PTP ONEPTP+8~, ONEPTP+9*, ONEPTP+10, ONEPTP+11*, ONEPTP+12, ONEPTP+13, ONEPTP+14*, ONEPTP+15*, ONEPTP+16*, ONEPTP+17*
, ONEPTP+18
REMARKS DAY+1~, DAY+24*, DAY+25, DAY+27
ST GETDAY+23*, GETDAY+24, STATUSE~, STATUSE+1*, STATUSE+2
START DAY+1~, DAY+12*, DAY+15, DAY+16, DAY+18, GETDAY+1~, GETDAY+12*, GETDAY+13, GETDAY+14, AMT~
, AMT+3
STATUSI DAY+1~, DAY+35*, DAY+36
STE DAY+1~
STOP DAY+1~, DAY+13*, DAY+18, DAY+20, AMT~, AMT+3
STR WRAP~, WRAP+9, WRAP+10
TAB WRAP~, WRAP+6, WRAP+7, WW+2
TCSTAT CLRTCDY+8~, CLRTCDY+9*, CLRTCDY+10
TLE ONEPTP~, ONEPTP+11, ALL1PTP~, ALL1PTP+1, ALL1PTP+9
U ONEPTP+14, ONEPTP+15, ESRDTS+9, DAY+4, DAY+9, DAY+12, DAY+13, DAY+14, DAY+22, DAY+24
, GETDAY+4, GETDAY+9, GETDAY+12, GETDAY+16, GETDAY+18, GETDAY+20, GETDAY+22
VALID CLRTCDY+16~, CLRTCDY+17, CLRTCDY+18
W1 WRAP+4~, WRAP+14*, WRAP+16
W2 WRAP+4~, WRAP+15*, WRAP+17
WC WRAP+4~, WRAP+5*, WW+2*, WW+3*
WID WRAP~, WRAP+6, WW+1
WORD WRAP+4~, WRAP+5*, WRAP+10*, WRAP+11, WRAP+13, WRAP+14, WRAP+15, WRAP+16*, WRAP+17*, WW+1
, WW+3
X AMT+2~, AMT+4*, AMT+5
Y ALL1PTP+2~, ALL1PTP+14, ALL1PTP+17
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All