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

Package: PAID

Routine: PRSNRLS0


Information

PRSNRLS0 ;WOIFO/KJS - All Activity at a Nursing Location - Summary and Detailed;12-8-2011

Source Information

Source file <PRSNRLS0.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
INFO ;Find nurse information to display in report
DATA ;Extract display data from POCD array
TOTTIME ;
; save hours into work array
HDRSUM ;Display header for report of Individual Nurse Activity
PRTSUM ; Loop through Totals array and print each one
PPP ;
HDRDET ;Display header for report of Individual Nurse Activity
PRTDET ;Print report
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+21
Function Call: WRITE
  • Prompt: ?TAB
  • Line Location: REPORT+22
Function Call: WRITE
  • Prompt: "-"
  • Line Location: REPORT+22
Function Call: WRITE
  • Prompt: !!,"End of Report"
  • Line Location: REPORT+48
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDRSUM+2
Function Call: WRITE
  • Prompt: ?20,"All Activity at a Nurse Location Summary Report"
  • Line Location: HDRSUM+4
Function Call: WRITE
  • Prompt: !,?15,EXTBEG_" - "_EXTEND,?45,"Run Date: ",TODAY,?70,"Page: ",$J(PG,3)
  • Line Location: HDRSUM+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HDRSUM+6
Function Call: WRITE
  • Prompt: !,"Nurse Name",?21,"Type of",?32,"Type of",?48,"Primary Location",?68,"# of",?75,"T&L"
  • Line Location: HDRSUM+7
Function Call: WRITE
  • Prompt: !,"Skill Mix",?22,"Time",?33,"Work",?68,"Hours",?75,"Unit"
  • Line Location: HDRSUM+8
Function Call: WRITE
  • Prompt: !,"--------------------------------------------------------------------------------"
  • Line Location: HDRSUM+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTSUM+10
Function Call: WRITE
  • Prompt: !,$E(PRSNAME,1,19)
  • Line Location: PPP+1
Function Call: WRITE
  • Prompt: ?21,TT,?32,$E(TWD,1,14),?48,$E($P(PRIMLOC,U,3),1,18),?66,$J(HOURS,7,2),?75,PRSNTL
  • Line Location: PPP+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PPP+3
Function Call: WRITE
  • Prompt: " ",$E(SKILMIX,1,17)
  • Line Location: PPP+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDRDET+2
Function Call: WRITE
  • Prompt: ?20,"All Activity at a Nurse Location Detail Report"
  • Line Location: HDRDET+4
Function Call: WRITE
  • Prompt: !,?15,EXTBEG_" - "_EXTEND,?45,"Run Date: ",TODAY,?70,"Page: ",$J(PG,3)
  • Line Location: HDRDET+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HDRDET+6
Function Call: WRITE
  • Prompt: !,"Nurse Name",?21,"Last 4",?29,"Start/",?38,"Type of",?49,"Mand",?57,"Meal",?63,"Primary Location/"
  • Line Location: HDRDET+7
Function Call: WRITE
  • Prompt: !,"Skill Mix",?23,"SSN/",?29,"Stop",?39,"Time",?50,"OT",?57,"Time",?64,"Type of Work"
  • Line Location: HDRDET+8
Function Call: WRITE
  • Prompt: !,"Date",?23,"T&L",?29,"Time"
  • Line Location: HDRDET+9
Function Call: WRITE
  • Prompt: !,"--------------------------------------------------------------------------------"
  • Line Location: HDRDET+10
Function Call: WRITE
  • Prompt: !,$E(PRSNAME,1,19)
  • Line Location: PRTDET+1
Function Call: WRITE
  • Prompt: !," ",PRSNDATE
  • Line Location: PRTDET+3
Function Call: WRITE
  • Prompt: ?22,$E(PRSNSSN,6,9)
  • Line Location: PRTDET+4
Function Call: WRITE
  • Prompt: ?29,PRSNST
  • Line Location: PRTDET+5
Function Call: WRITE
  • Prompt: ?38,PRSNLNG
  • Line Location: PRTDET+6
Function Call: WRITE
  • Prompt: ?51,PRSNM
  • Line Location: PRTDET+7
Function Call: WRITE
  • Prompt: ?58,MEAL
  • Line Location: PRTDET+8
Function Call: WRITE
  • Prompt: ?65,$E($P(PRIMLOC,U,3),1,14)
  • Line Location: PRTDET+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTDET+10
Function Call: WRITE
  • Prompt: " ",$E(SKILMIX,1,17)
  • Line Location: PRTDET+11
Function Call: WRITE
  • Prompt: ?22,PRSNTL
  • Line Location: PRTDET+12
Function Call: WRITE
  • Prompt: ?29,PRSNSP
  • Line Location: PRTDET+13
Function Call: WRITE
  • Prompt: ?65,$E(PRSNTWD,1,14)
  • Line Location: PRTDET+14
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTDET+15
Function Call: WRITE
  • Prompt: " ",PRSNDATE,!
  • Line Location: PRTDET+17
Function Call: WRITE
  • Prompt: !,"Request "_ZTSK_" queued."
  • Line Location: QUE+18
Info |  Source |  Entry Points |  Interaction Calls