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

Package: PAID

Routine: PRSPSAP


Information

PRSPSAP ;WOIFO/JAH - part time physician, supervisory approvals ;10/22/04

Source Information

Source file <PRSPSAP.m>

Entry Points

Name Comments DBIA/ICR reference
MAIN ;
BLDLST(OUT,TLE,NN) ; BUILD LIST OF ALL APPROVAL ACTIONS FOR SINGLE EMPLOYEE
SUMMARY(AA) ;
GETACT(ESRDTS,PRSIEN,PPI) ; return user choice of # (1-ACTCNT) or action
; return 0 for ^ at first action prompt
; return null for no response (user hit return)
; return -1 if ^ at 2nd prompt (action on single day prompt)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: MAIN+4
Function Call: WRITE
  • Prompt: @IOF,!!!,?10,"TIMECARD AND ESR WERE NOT UPDATED."
  • Line Location: MAIN+36
Function Call: WRITE
  • Prompt: @IOF,!!!,"Supervisory Action Summary"
  • Line Location: SUMMARY+1
Function Call: WRITE
  • Prompt: !!,$J(AA,6)," actions require your electronic signature before being"
  • Line Location: SUMMARY+2
Function Call: WRITE
  • Prompt: !,?(6-$L(AA))," committed to the database."
  • Line Location: SUMMARY+3
Function Call: WRITE
  • Prompt: !,$J(AA("A"),6)," ESR record marked for approval. (signature required)"
  • Line Location: SUMMARY+4
Function Call: WRITE
  • Prompt: !,$J(AA("R"),6)," ESR records marked for resubmission. (signature required)"
  • Line Location: SUMMARY+5
Function Call: WRITE
  • Prompt: !,$J(AA("B"),6)," ESR records explicitly bypassed."
  • Line Location: SUMMARY+6
Function Call: WRITE
  • Prompt: !,$J(AA("N"),6)," ESR records with no action."
  • Line Location: SUMMARY+7
Function Call: WRITE
  • Prompt: !
  • Line Location: GETACT+51
Info |  Source |  Entry Points |  Interaction Calls