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

Package: Nursing Service

Routine: NURA6D2


Information

NURA6D2 ;HIRMFO/MD,RM,FT-FTEE PROFILE BY SERVICE POSITION ;8/24/96 10:29

Source Information

Source file <NURA6D2.m>

Entry Points

Name Comments DBIA/ICR reference
START ;
QUIT
NPRINT
NL
NM
NE
NN
NO
NP
NQ
NR
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: NURA6D2+8
Function Call: WRITE
  • Prompt: !
  • Line Location: NURA6D2+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+2
Function Call: WRITE
  • Prompt: !,"FTEE PROFILE BY SERVICE POSITION"
  • 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: !,"POSITION",?22,"FTEE",?36,"NAME",?64,"LOCATION"
  • Line Location: NHDR+5
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",80)
  • Line Location: NHDR+6
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: !
  • 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