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

Package: Nursing Service

Routine: NURARPC2


Information

NURARPC2 ;HIRMFO/MD-CONTINUATION OF DRIVER TO PRINT AMIS 1106 ACUITY REPORTS ;5/9/97

Source Information

Source file <NURARPC2.m>

Entry Points

Name Comments DBIA/ICR reference
HEADER ; HEADINGS
HEADER1
PRINTRPT ; PRINT REPORT
L0
L1
L2
WRITE
B
C
D
BRK ; UNIT TOTALS
E
BRK1 ; DATE TOTALS
BRK2 ; FACILITY TOTALS

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?$$CNTR^NURSUT2(NURFAC(2)),$S(NURFAC(2)=" BLANK":"NO FACILITY",1:NURFAC(2))
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !!,Y,?(80-$L(NURSHDR(1)))\2,NURSHDR(1),?70,"PAGE: ",NURPAGE,!,?(80-$L(NURSHDR(2)))\2,NURSHDR(2),!,?(80-$L(NURSHDR))\2,NURSHDR,!
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: ?22,"CATEGORY I II III IV V CLASS."
  • Line Location: HEADER1+0
Function Call: WRITE
  • Prompt: !,"WARD: ",$S(NBDSECT="":NF1,1:NF2)
  • Line Location: WRITE+4
Function Call: WRITE
  • Prompt: !,"BED SECTION: ",NF1
  • Line Location: WRITE+5
Function Call: WRITE
  • Prompt: !,?6,NF2
  • Line Location: B+0
Function Call: WRITE
  • Prompt: !,?6,$S(NBDSECT="":NF2,1:NF1)
  • Line Location: B+1
Function Call: WRITE
  • Prompt: ?34,$J(NC(1),3),?42,$J(NC(2),3),?50,$J(NC(3),3),?58,$J(NC(4),3),?66,$J(NC(5),3),?74,$J(NCEN,3)
  • Line Location: C+0
Function Call: WRITE
  • Prompt: !,?34,"--- --- --- --- --- ---",!,$S(+NHOSPSW:"SUBTOTAL ",1:"TOTAL"),?34,$J(NTC(1),3),?42,$J(NTC(2),3),?50,$J(NTC(3),3),?58,$J(NTC(4),3),?66,$J(NTC(5),3),?74,$J(NTCEN,3),!
  • Line Location: BRK+3
Function Call: WRITE
  • Prompt: !,?34,"--- --- --- --- --- ---",!,$E(HDATE(1),4,5)_"/"_$E(HDATE(1),6,7)_"/"_$E(HDATE(1),2,3)," TOTAL",?34,$J(DTC(1),3),?42,$J(DTC(2),3),?50,$J(DTC(3),3),?58,$J(DTC(4),3),?66,$J(DTC(5),3),?74,$J(DTCEN,3),!
  • Line Location: BRK1+2
Function Call: WRITE
  • Prompt: !,?34,"--- --- --- --- --- ---",!,NURFAC(2)," TOTALS",?33,$J(NFTC(1),4),?41,$J(NFTC(2),4),?49,$J(NFTC(3),4),?57,$J(NFTC(4),4),?65,$J(NFTC(5),4),?73,$J(NFTCEN,4),!
  • Line Location: BRK2+2
Info |  Source |  Entry Points |  Interaction Calls