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

Package: Nursing Service

Routine: NURARWL9


Information

NURARWL9 ;HIRMFO/MD-FACILITY TOTAL ROUTINE FOR WORKLOAD STATISTICS REPORTS ;1/22/99 13:30

Source Information

Source file <NURARWL9.m>

Entry Points

Name Comments DBIA/ICR reference
FACTOT ; FACILITY TOTALS
VAR ;
GOOD ;
PRT
HEADER ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?18,$$REPEAT^XLFSTR("-",114)
  • Line Location: FACTOT+4
Function Call: WRITE
  • Prompt: ?48,$J($P(NFREQ,U,2),4,1),?54,$J($P(NFFTEE,U,2),4,1)
  • Line Location: FACTOT+6
Function Call: WRITE
  • Prompt: ?93,$J($P(NFPROD,U,3),3,0)
  • Condition for execution: NURSZAP'>6 ?67,$J($P(NFPROD,U,2),3,0) W ?74,$J($P(NFREQ,U,3),4,1),?80,$J($P(NFFTEE,U,3),4,1),?86,$J($P(NFVAR,U,3),5,1) W:NURSZAP'>6
  • Line Location: FACTOT+7
Function Call: WRITE
  • Prompt: !?15,$E(UNIT,1,10),?30,TOTA,?35,"|",?39,TOTB,?43,"|",?46,VAR,?51,"|",?54,$S($G(PC2)>0:PC2_"%",$G(TOTA)>0:PC2_"%",1:"*NSS*"),?59,"|"
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: !?15,$E(NPFAC,1,13),?30,TOTA(NPFAC),?35,"|",?39,TOTB(NPFAC),?43,"|",?46,VAR(NPFAC),?51,"|",?54,$S($G(PC2(NPFAC))>0:PC2(NPFAC)_"%",$G(TOTA(NPFAC))>0:PC2(NPFAC)_"%",1:"*NSS*"),?59,"|"
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: !?15,"---------------------------------------------"
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: ?$X," FOR ",$G(NPFAC)
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !?15,"DATE: "
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: ?($X+2),$S(NURSHFT="D":"DAY",NURSHFT="E":"EVENING",NURSHFT="N":"NIGHT",1:"")," SHIFT"
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: " (PROJECTED) FOR "_$$FMTE^XLFDT(NRPTDAT,"2D")
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !!?15,"INSTRUCTIONS:",!?15,"COLUMN A: Total FTEE on duty (from computer printout and staffing adjustments)",!?15,"COLUMN B: Total FTEE required for workload (taken from computer print-out)"
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !?15,"COLUMN C: Total Variance by FTEE (Column A - Column B = Column C)",!?15,"COLUMN D: Percentage of Total Variance (Column A / Column B = Column D)",!?26,"The letters *NSS* in COLUMN D indicate that no staff are scheduled for this unit"
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !!?15," SOD",?38,"REQ",?46,"VAR",?54,"%TV"
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !?15,$S($G(NURSUMSW):"FACILITY",1:"UNIT")_" A",?39,"B",?47,"C",?55,"D"
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !,?15,$$REPEAT^XLFSTR("-",45)
  • Line Location: HEADER+11
Info |  Source |  Entry Points |  Interaction Calls