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  | All
Print Page as PDF
Routine: PRSPSAP3

Package: PAID

Routine: PRSPSAP3


Information

PRSPSAP3 ;WOIFO/JAH - Supervisor Approve-update pt phys timecard ;01/05/05

Source Information

Source file <PRSPSAP3.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
PAID 4 F0^PRSADP1  $$ASK^PRSLIB00  (COLHDRS,GETESR)^PRSPSAP1  ($$AMT,DAY)^PRSPSAPU  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
PAID 3 PRSPSAP1  PRSPSAP2  PRSPUE  

Entry Points

Name Comments DBIA/ICR reference
MARK(ACT,PRSIEN,PPI) ; mark supervisors action on temp global
; ESR STATUS
; when updating a single record we overwrite. When updating
; multiple records we will only update ones with no status.
GETREM(SNIDE) ; return supervisor remark for a resubmit request
; WE CAN'T EDIT THE FIELD DIRECTLY BECAUSE THIS IS A TRANSACTION
; AND NOTHING IS COMMITED TO THE DB UNTIL THEY SIGN
CANTPOST(ER,TCS,PPI,PRSIEN,PRSD,ESRN) ; GIVE SUPERVISOR CAN'T POST INFORMATION
HDR(PRSIEN,PPI,PRSD) ;
CMPESRTC(ERCNT,ERMSG,ESRN,TCN,PPI,PRSIEN,PRSD) ;compare the ESR to the timecard
ESRTCAR(PRSTA,ESRN,TCN,PPI,PRSIEN,PRSD) ;
; return an array subscripted by types of time (TT) for each TT
; found in either the ESR or timecard. Piece 1 of each TT subscript
; represents the timcard and piece 2 represents the ESR.
; Both pieces contain the total hours in decimal format of that TT.

External References

Name Field # of Occurrence
^DIR GETREM+8
F0^PRSADP1 CANTPOST+34
$$ASK^PRSLIB00 CANTPOST+10
COLHDRS^PRSPSAP1 CANTPOST+27
GETESR^PRSPSAP1 CANTPOST+26
$$AMT^PRSPSAPU ESRTCAR+60, ESRTCAR+80
DAY^PRSPSAPU CANTPOST+29

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Time Discrepancies must be resolved. Timecard Status: "
  • Line Location: CANTPOST+4
Function Call: WRITE
  • Prompt: $S(TCS="P":"RELEASED TO PAYROLL",1:"TRANSMITTED TO AUSTIN")
  • Line Location: CANTPOST+5
Function Call: WRITE
  • Prompt: !,"Payroll must "
  • Line Location: CANTPOST+6
Function Call: WRITE
  • Prompt: $S(TCS="P":"return ",1:"initiate corrected ")
  • Line Location: CANTPOST+7
Function Call: WRITE
  • Prompt: "timecard or physician must resubmit ESR."
  • Line Location: CANTPOST+8
Function Call: WRITE
  • Prompt: !!!,$$ASK^PRSLIB00(1)
  • Line Location: CANTPOST+10
Function Call: WRITE
  • Prompt: !!,?15,"TIME DISCREPANCIES BETWEEN TIMECARD AND ESR"
  • Line Location: CANTPOST+14
Function Call: WRITE
  • Prompt: !,?6,"Error",?21,"Type of Time",?39,"Timecard Hrs",?57,"ESR Hrs"
  • Line Location: CANTPOST+16
Function Call: WRITE
  • Prompt: !,?2,"--------------------------------------------------------------"
  • Line Location: CANTPOST+17
Function Call: WRITE
  • Prompt: !,?2,$P(ER(I),U,2),?26,$P(ER(I),U),?44,$P(ER(I),U,3),?60,$P(ER(I),U,4)
  • Line Location: CANTPOST+19
Function Call: WRITE
  • Prompt: !!,?32,"ESR POSTING"
  • Line Location: CANTPOST+21
Function Call: WRITE
  • Prompt: !
  • Line Location: CANTPOST+28
Function Call: WRITE
  • Prompt: "-"
  • Line Location: CANTPOST+28
Function Call: WRITE
  • Prompt: !
  • Line Location: CANTPOST+29
Function Call: WRITE
  • Prompt: !!,?30,"TIMECARD POSTING"
  • Line Location: CANTPOST+30
Function Call: WRITE
  • Prompt: !,?7,"Date",?21,"Scheduled Tour",?46,"Tour Exceptions"
  • Line Location: CANTPOST+32
Function Call: WRITE
  • Prompt: !,?2,"------------------------------------------------------------"
  • Line Location: CANTPOST+33
Function Call: WRITE
  • Prompt: !
  • Line Location: CANTPOST+35
Function Call: WRITE
  • Prompt: @IOF,!!,"ESR approval REJECTED for "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: $P($G(^PRSPC(PRSIEN,0)),"^")," on day ",PRSD," in PP "
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: $P($G(^PRST(458,PPI,0)),U),"."
  • Line Location: HDR+3
Routine Call
  • DIR
  • Line Location:
    • GETREM+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRSPC - [#450] HDR+2
^PRST(458 - [#458] CANTPOST+24, HDR+3, CMPESRTC+20, CMPESRTC+21, ESRTCAR+34, ESRTCAR+64, ESRTCAR+68
^TMP($J MARK+8, MARK+9*, MARK+12, MARK+14*, MARK+16!, MARK+20, MARK+21, MARK+23*, MARK+24*

Label References

Name Line Occurrences
$$GETREM MARK+13, MARK+18
ESRTCAR CMPESRTC+22
HDR CANTPOST+3, CANTPOST+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACT MARK~, MARK+5, MARK+6*, MARK+9, MARK+11, MARK+18, MARK+23, MARK+24
BEG ESRTCAR+31~, ESRTCAR+57*, ESRTCAR+60, ESRTCAR+78*, ESRTCAR+80
DAY CANTPOST+23~, CANTPOST+34*
DAYLNS CANTPOST+23~, CANTPOST+29
DFN CANTPOST+34~*
DIR GETREM+3~
DIR("A" GETREM+7*
DIR("B" GETREM+6*
DIR(0 GETREM+5*
DIRUT GETREM+3~
DTE CANTPOST+23~, CANTPOST+25*, CANTPOST+29
DTOUT GETREM+3~, GETREM+10
DUOUT GETREM+3~, GETREM+10
END ESRTCAR+31~, ESRTCAR+58*, ESRTCAR+60, ESRTCAR+79*, ESRTCAR+80
ER CANTPOST~
ER( CANTPOST+18, CANTPOST+19
ERCNT CMPESRTC~, CMPESRTC+17*, CMPESRTC+31*, CMPESRTC+32, CMPESRTC+42*, CMPESRTC+43
ERFND CMPESRTC+15~, CMPESRTC+17*, CMPESRTC+32*, CMPESRTC+39
ERMSG CMPESRTC~, CMPESRTC+17*, CMPESRTC+19*
ERMSG( CMPESRTC+32*, CMPESRTC+43*
ESR CANTPOST+23~, CANTPOST+26, CANTPOST+29
ESRN CANTPOST~, CMPESRTC~, CMPESRTC+20*, CMPESRTC+22, ESRTCAR~, ESRTCAR+48
ESRT CMPESRTC+15~, CMPESRTC+29*, CMPESRTC+30, CMPESRTC+32, CMPESRTC+40*, CMPESRTC+41, CMPESRTC+43
HRS ESRTCAR+31~, ESRTCAR+56*, ESRTCAR+61, ESRTCAR+77*, ESRTCAR+81
I CANTPOST+2~, CANTPOST+18*, CANTPOST+19, CANTPOST+28*, ESRTCAR+47*, ESRTCAR+48, ESRTCAR+70*, ESRTCAR+71, ESRTCAR+89*
IOF HDR+1
IOM CANTPOST+28
ITEM MARK+4~, MARK+5*, MARK+7, MARK+8
LNCNT CANTPOST+2~
MEAL ESRTCAR+31~, ESRTCAR+59*, ESRTCAR+60
NETRG ESRTCAR+30~, ESRTCAR+101*, ESRTCAR+109*, ESRTCAR+110
OLDACT MARK+4~, MARK+21*, MARK+22
OLDREM MARK+4~, MARK+12*, MARK+13
PDT CANTPOST+23~, CANTPOST+24*, CANTPOST+25
PPI MARK~, MARK+8, MARK+9, MARK+12, MARK+14, MARK+16, MARK+20, MARK+21, MARK+23, MARK+24
, CANTPOST~, CANTPOST+3, CANTPOST+11, CANTPOST+24, CANTPOST+26, CANTPOST+29, HDR~, HDR+3, CMPESRTC~, CMPESRTC+18
, CMPESRTC+20, CMPESRTC+21, CMPESRTC+22, ESRTCAR~, ESRTCAR+34, ESRTCAR+64, ESRTCAR+68
PRSD MARK+8*, MARK+9, MARK+12, MARK+14, MARK+16, MARK+19*, MARK+20*, MARK+21, MARK+23, MARK+24
, CANTPOST~, CANTPOST+3, CANTPOST+11, CANTPOST+25, CANTPOST+26, CANTPOST+29, CANTPOST+34, HDR~, HDR+2, CMPESRTC~
, CMPESRTC+18, CMPESRTC+20, CMPESRTC+21, CMPESRTC+22, ESRTCAR~, ESRTCAR+34, ESRTCAR+64, ESRTCAR+68
PRSIEN MARK~, MARK+8, MARK+9, MARK+12, MARK+14, MARK+16, MARK+20, MARK+21, MARK+23, MARK+24
, CANTPOST~, CANTPOST+3, CANTPOST+11, CANTPOST+26, CANTPOST+29, CANTPOST+34, HDR~, HDR+2, CMPESRTC~, CMPESRTC+18
, CMPESRTC+20, CMPESRTC+21, CMPESRTC+22, ESRTCAR~, ESRTCAR+34, ESRTCAR+64, ESRTCAR+68
PRSML ESRTCAR+30~
PRSTA CMPESRTC+15~, CMPESRTC+22, ESRTCAR~, ESRTCAR+32!
PRSTA( CMPESRTC+27, CMPESRTC+29, CMPESRTC+39, CMPESRTC+40, ESRTCAR+56, ESRTCAR+61*, ESRTCAR+77, ESRTCAR+81*, ESRTCAR+95*, ESRTCAR+103
, ESRTCAR+108
PRSTA("NP" CMPESRTC+37
PRSTA("RG" ESRTCAR+100, ESRTCAR+110*
REM MARK+4~, MARK+13*, MARK+14, MARK+18*, MARK+24, GETREM+3~, GETREM+4*, GETREM+9*, GETREM+10*, GETREM+11
SEGHRS ESRTCAR+31~, ESRTCAR+60*, ESRTCAR+61, ESRTCAR+80*, ESRTCAR+81
SNIDE GETREM~, GETREM+6
T1LEN ESRTCAR+30~, ESRTCAR+40*, ESRTCAR+95, ESRTCAR+101
T2LEN ESRTCAR+30~, ESRTCAR+41*, ESRTCAR+95, ESRTCAR+101
TCEXAMT ESRTCAR+30~, ESRTCAR+108*, ESRTCAR+109
TCN CMPESRTC~, CMPESRTC+21*, CMPESRTC+22, ESRTCAR~, ESRTCAR+71, ESRTCAR+89
TCPT ESRTCAR+30~, ESRTCAR+68*, ESRTCAR+69, ESRTCAR+87, ESRTCAR+93
TCS CANTPOST~, CANTPOST+5, CANTPOST+7
TCT CMPESRTC+15~, CMPESRTC+29*, CMPESRTC+30, CMPESRTC+32
TOD ESRTCAR+30~
TRC ESRTCAR+31~, ESRTCAR+73*, ESRTCAR+75, ESRTCAR+89*, ESRTCAR+90
TSEG ESRTCAR+31~, ESRTCAR+48*, ESRTCAR+49, ESRTCAR+57, ESRTCAR+58, ESRTCAR+59, ESRTCAR+71*, ESRTCAR+72, ESRTCAR+73, ESRTCAR+78
, ESRTCAR+79
TT CMPESRTC+15~, CMPESRTC+26*, CMPESRTC+27*, CMPESRTC+28, CMPESRTC+29, CMPESRTC+32, CMPESRTC+38*, CMPESRTC+39*, CMPESRTC+40, CMPESRTC+43
, ESRTCAR+31~, ESRTCAR+49*, ESRTCAR+55, ESRTCAR+56, ESRTCAR+61, ESRTCAR+72*, ESRTCAR+75*, ESRTCAR+76, ESRTCAR+77, ESRTCAR+81
, ESRTCAR+89*, ESRTCAR+90*, ESRTCAR+93*, ESRTCAR+95, ESRTCAR+102*, ESRTCAR+103*, ESRTCAR+106, ESRTCAR+107, ESRTCAR+108
U MARK+5, MARK+6, CANTPOST+19, CANTPOST+25, HDR+3, CMPESRTC+19, CMPESRTC+28, CMPESRTC+29, CMPESRTC+32, CMPESRTC+37
, CMPESRTC+40, CMPESRTC+43, ESRTCAR+40, ESRTCAR+41, ESRTCAR+48, ESRTCAR+49, ESRTCAR+55, ESRTCAR+56, ESRTCAR+57, ESRTCAR+58
, ESRTCAR+59, ESRTCAR+61, ESRTCAR+64, ESRTCAR+68, ESRTCAR+71, ESRTCAR+72, ESRTCAR+73, ESRTCAR+76, ESRTCAR+77, ESRTCAR+78
, ESRTCAR+79, ESRTCAR+81, ESRTCAR+89, ESRTCAR+95, ESRTCAR+100, ESRTCAR+106, ESRTCAR+108, ESRTCAR+110
X GETREM+3~
Y GETREM+3~, GETREM+9
ZNODE ESRTCAR+30~, ESRTCAR+34*, ESRTCAR+40, ESRTCAR+41
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All