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

Package: Nursing Service

Routine: NURA6D1


Information

NURA6D1 ;HIRMFO/MD,RM,FT-FTEE PROFILE BY SERVICE CATEGORY ;8/23/96 12:06

Source Information

Source file <NURA6D1.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: NURA6D1+10
Function Call: WRITE
  • Prompt: !!,?20,NURLINE,!,"TOTAL",?18,$J(NCT,8,3),!!,"COUNT - ASSIGN.",?18,$J(NTCT,8,3),?36,"PERSONNEL",?61,$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",?61,$S(NCT>0&(NTOT>0):$J((NCT/NTOT),8,3),1:" 0.000")
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !,$S(+NFTEE:" ",1:"** ")
  • Line Location: NPPRINT+7
Function Call: WRITE
  • Prompt: !,?$$CNTR^NURSUT2(NURFAC(2)),$S($G(NURFAC(2))=" BLANK":"NO FACILITY",1:$G(NURFAC(2)))
  • Line Location: NHDR+3
Function Call: WRITE
  • Prompt: !,"FTEE PROFILE BY SERVICE CATEGORY"
  • Line Location: NHDR+4
Function Call: WRITE
  • Prompt: ?56,Y,?72,"PAGE: ",NURPAGE
  • Line Location: NHDR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: NHDR+5
Function Call: WRITE
  • Prompt: !!,"SERVICE",?36,"EMPLOYEE"
  • Line Location: NHDR+6
Function Call: WRITE
  • Prompt: !,"CATEGORY",?22,"FTEE",?36,"NAME",?64,"LOCATION"
  • Line Location: NHDR+7
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",80)
  • Line Location: NHDR+8
Function Call: WRITE
  • Prompt: !?21,$$REPEAT^XLFSTR("-",5)
  • 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,$$REPEAT^XLFSTR("*",6)
  • 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: !,"THERE IS NO DATA FOR THIS REPORT"
  • Line Location: SORT+1
Info |  Source |  Entry Points |  Interaction Calls