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

Package: PAID

Routine: PRSNRLOS


Information

PRSNRLOS ;WOIFO/KJS - All Overtime at a Nursing Location - Summary and Detailed;2-2-2012

Source Information

Source file <PRSNRLOS.m>

Entry Points

Name Comments DBIA/ICR reference
COORD ;Entry point for VANOD Coordinator
; Coordinator has no access limits so let them pick any group
MAIN ;
REPORT ;for group of location
EXIT ;
INFO ;Find nurse information to display in report
DATA ;Extract display data from POCD array
TOTTIM1 ;
; save hours into work array
TOTTIM2 ;
; save hours into work array
HDRSUM1 ;Display header for report of Individual Nurse Activity
PRTSUM1 ; Loop through Totals array and print each one
PPP1 ;
HDRSUM2 ;Display header for report of Individual Nurse Activity
PRTSUM2 ; Loop through Totals array and print each one
PPP2 ;
PRTSUM3 ; Loop through Totals array and print each one
PPP3 ;
TYPE ;Choose summary or detailed group activity report
DATE ; User is prompted for a date range
QUE ;call to generate and display report for individual activity

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?TAB,GHD,!
  • Line Location: REPORT+41
Function Call: WRITE
  • Prompt: ?TAB
  • Line Location: REPORT+42
Function Call: WRITE
  • Prompt: "-"
  • Line Location: REPORT+42
Function Call: WRITE
  • Prompt: !,?2,"GRAND TOTAL:",?43,$J($P(HOURS,U,1),7,2),?53,$J($P(HOURS,U,2),7,2),?63,$J($P(HOURS,U,3),7,2),?73,$J(TOTHRS,7,2)
  • Line Location: REPORT+50
Function Call: WRITE
  • Prompt: !,?2,"GRAND TOTAL:",?66,$J(HOURS,7,2)
  • Line Location: REPORT+54
Function Call: WRITE
  • Prompt: !!,"End of Report"
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDRSUM1+2
Function Call: WRITE
  • Prompt: ?20,"All Overtime at a Nurse Location Summary Report"
  • Line Location: HDRSUM1+4
Function Call: WRITE
  • Prompt: !,?15,EXTBEG_" - "_EXTEND,?45,"Run Date: ",TODAY,?70,"Page: ",$J(PG,3)
  • Line Location: HDRSUM1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HDRSUM1+6
Function Call: WRITE
  • Prompt: !,?10,"Reason for",?45,"# Of",?55,"# Of",?65,"# Of",?75,"Total"
  • Line Location: HDRSUM1+7
Function Call: WRITE
  • Prompt: !,?10,"Overtime",?45,"Hours",?55,"Hours",?65,"Hours",?75,"Hours"
  • Line Location: HDRSUM1+8
Function Call: WRITE
  • Prompt: !,?46,"RN",?56,"LPN",?66,"UAP"
  • Line Location: HDRSUM1+9
Function Call: WRITE
  • Prompt: !,"--------------------------------------------------------------------------------"
  • Line Location: HDRSUM1+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTSUM1+8
Function Call: WRITE
  • Prompt: !,?4," TOTAL: ",PICK,?43,$J($P(HOURS,U,1),7,2),?53,$J($P(HOURS,U,2),7,2),?63,$J($P(HOURS,U,3),7,2),?73,$J(TOTHRS,7,2),!
  • Line Location: PRTSUM1+14
Function Call: WRITE
  • Prompt: !
  • Line Location: PPP1+3
Function Call: WRITE
  • Prompt: ?10,PRSNTT
  • Line Location: PPP1+4
Function Call: WRITE
  • Prompt: ?10,"TOTAL: ",PRSNTT
  • Line Location: PPP1+5
Function Call: WRITE
  • Prompt: ?43,$J($P(HOURS,U,1),7,2),?53,$J($P(HOURS,U,2),7,2),?63,$J($P(HOURS,U,3),7,2),?73,$J(TOTHRS,7,2)
  • Line Location: PPP1+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDRSUM2+2
Function Call: WRITE
  • Prompt: ?20,"All Overtime at a Nurse Location Detail Report"
  • Line Location: HDRSUM2+4
Function Call: WRITE
  • Prompt: !,?15,EXTBEG_" - "_EXTEND,?45,"Run Date: ",TODAY,?70,"Page: ",$J(PG,3)
  • Line Location: HDRSUM2+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HDRSUM2+6
Function Call: WRITE
  • Prompt: !,"Nurse Name",?21,"Type Time-",?32,"Type",?48,"Primary Location",?68,"# of",?75,"T&L"
  • Line Location: HDRSUM2+7
Function Call: WRITE
  • Prompt: !,"Skill Mix",?21,"OT-Reason",?32,"Work",?68,"Hours",?75,"Unit"
  • Line Location: HDRSUM2+8
Function Call: WRITE
  • Prompt: !,"--------------------------------------------------------------------------------"
  • Line Location: HDRSUM2+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTSUM2+14
Function Call: WRITE
  • Prompt: !,$E(PRSNAME,1,19)
  • Line Location: PPP2+1
Function Call: WRITE
  • Prompt: ?21,$P(PRSNTT,"-",1,3),?32,$E($P(PRSNTT,"-",4),1,14),?48,$E($P(PRIMLOC,U,3),1,18),?67,$J(HOURS,6,2),?75,PRSNTL,!
  • Line Location: PPP2+2
Function Call: WRITE
  • Prompt: " ",$E(SKILMIX,1,17)
  • Line Location: PPP2+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTSUM3+8
Function Call: WRITE
  • Prompt: !,?4," TOTAL: ",PICK,?67,$J(HOURS,6,2),!
  • Line Location: PRTSUM3+13
Function Call: WRITE
  • Prompt: !,?6," TOTAL: ",PRSNTT,?67,$J(HOURS,6,2)
  • Line Location: PPP3+1
Function Call: WRITE
  • Prompt: !,"Request "_ZTSK_" queued."
  • Line Location: QUE+18
Info |  Source |  Entry Points |  Interaction Calls