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

Package: Nursing Service

Routine: NURA9D1


Information

NURA9D1 ;HIRMFO/MD,RM,FT-FTEE PROFILE BY LOCATION AND SERVICE CATEGORY ;5/2/97 10:16

Source Information

Source file <NURA9D1.m>

Entry Points

Name Comments DBIA/ICR reference
START ;
QUIT
NPRINT
NK
NL
NM
NN
NOT
NOT1
NP
NPPRINT
NHDR
NHDR1
NSUB ; SUBTOTAL ROUTINE
PSUB ; PRODUCT LINE SUBTOTAL ROUTINE
FSUB ; FACILITY SUBTOTAL ROUTINE
SORT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: NURA9D1+8
Function Call: WRITE
  • Prompt: !
  • Line Location: NURA9D1+10
Function Call: WRITE
  • Prompt: !!,?20,NURLINE,!,"REPORT TOTAL",?18,$J(NCT,8,3),!!,"COUNT - ASSIGN.",?18,$J(NTCT,8,3)
  • Line Location: START+4
Function Call: WRITE
  • Prompt: ?36,"PERSONNEL",?62,$J(NTOT,8,3)
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !!,"MEAN - ASSIGN.",?18,$S(NCT>0&(NTCT>0):$J((NCT/NTCT),8,3),1:" 0.000"),?36,"PERSONNEL",?62,$S(NCT>0&(NTOT>0):$J((NCT/NTOT),8,3),1:" 0.000")
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !
  • Line Location: NM+0
Function Call: WRITE
  • Prompt: !,$S(+NFTEE:" ",1:"** ")
  • Line Location: NPPRINT+7
Function Call: WRITE
  • Prompt: !,?$$CNTR^NURSUT2($G(NURFAC(2))),$S($G(NURFAC(2))=" BLANK":"NO FACILITY",1:$G(NURFAC(2)))
  • Line Location: NHDR+2
Function Call: WRITE
  • Prompt: !,"FTEE PROFILE BY LOCATION AND SERVICE CATEGORY"
  • Line Location: NHDR+3
Function Call: WRITE
  • Prompt: ?56,Y,?72,"PAGE: ",NURPAGE
  • Line Location: NHDR+3
Function Call: WRITE
  • Prompt: !,"SERVICE",?36,"EMPLOYEE"
  • Line Location: NHDR+4
Function Call: WRITE
  • Prompt: !,"CATEGORY",?22,"FTEE",?36,"NAME",?64,"LOCATION"
  • Line Location: NHDR+5
Function Call: WRITE
  • Prompt: ?85,"TOUR"
  • Condition for execution: IOM>120
  • Line Location: NHDR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: NHDR+6
Function Call: WRITE
  • Prompt: NURLINE
  • Line Location: NHDR+7
Function Call: WRITE
  • Prompt: !?$$CNTR^NURSUT2(NURPROG(2)),$S($E(NURPROG(2),1)=" ":$E(NURPROG(2),2,99),1:$G(NURPROG(2)))
  • Line Location: NHDR1+0
Function Call: WRITE
  • Prompt: !?$$CNTR^NURSUT2(NURPROG(2)),$$REPEAT^XLFSTR("-",$L(NURPROG(2))+1),!
  • Line Location: NHDR1+0
Function Call: WRITE
  • Prompt: !?21,"-----"
  • Line Location: NSUB+1
Function Call: WRITE
  • Prompt: !,$S($E(NURPROG(2),1)=" ":$E(NURPROG(2),2,99),1:NURPROG(2))_" TOTALS"
  • Line Location: PSUB+1
Function Call: WRITE
  • Prompt: !?20,"******"
  • Line Location: PSUB+1
Function Call: WRITE
  • Prompt: !,"SUBTOTAL",?18,$J(PSUBT,8,3)
  • Line Location: PSUB+2
Function Call: WRITE
  • Prompt: !,NURFAC(2)_" TOTALS"
  • Line Location: FSUB+1
Function Call: WRITE
  • Prompt: !?20,NURLINE
  • Line Location: FSUB+1
Function Call: WRITE
  • Prompt: !,"SUBTOTAL",?18,$J(FSUBT,8,3)
  • Line Location: FSUB+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SORT+0
Function Call: WRITE
  • Prompt: !,"THERE IS NO DATA FOR THIS REPORT"
  • Line Location: SORT+1
Info |  Source |  Entry Points |  Interaction Calls