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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: NURARCRW

Package: Nursing Service

Routine: NURARCRW


Information

NURARCRW ;HIRMFO/RM/FT/MD-VIEW PRINT PATIENT CLASSIFICATIONS BY WARD ;12/8/98

Source Information

Source file <NURARCRW.m>

Entry Points

Name Comments DBIA/ICR reference
REENT ;
DEV
START ;
QUIT
PRINT ;
NN
NO
NP
NQ
BRK
PRINTIT
HEADER ;HEAD ROUTINE
SORT ;
CAT ; CATEGORY TOTAL DISPLAY

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?30,$S($G(NURCURSW):"Current",1:"Unit")_" Classification"
  • Line Location: REENT+1
Function Call: WRITE
  • Prompt: !!,?17,"Press return if total hospital report is desired"
  • Line Location: REENT+2
Function Call: WRITE
  • Prompt: !!,?17,"Enter unit number if this is a unit report: "
  • Line Location: REENT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: REENT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !
  • Line Location: NO+0
Function Call: WRITE
  • Prompt: !,?8,"NURSING BED SECTION: ",NBEDS
  • Line Location: BRK+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINTIT+3
Function Call: WRITE
  • Prompt: ?24,"CLASSIFICATION NOT APPLICABLE"
  • Line Location: PRINTIT+5
Function Call: WRITE
  • Prompt: ?24,$P(DATA,"^",3)
  • Line Location: PRINTIT+6
Function Call: WRITE
  • Prompt: ?(31+((X-1)*2)),$E($P(DATA,"^",4),X)
  • Line Location: PRINTIT+7
Function Call: WRITE
  • Prompt: ?42,$P(Y,":",1,2),?62,$E($P(DATA,"^",7),1,18)
  • Line Location: PRINTIT+8
Function Call: WRITE
  • Prompt: ?62,$E($P(DATA,"^",7),19,36)
  • Line Location: PRINTIT+9
Function Call: WRITE
  • Prompt: !,?62,$E($P(DATA,"^",7),37,50)
  • Line Location: PRINTIT+9
Function Call: WRITE
  • Prompt: !,@IOF,?2,"UNIT PATIENT CLASSIFICATION REPORT",?51,"DATE:"
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: ?57,Y,?71,"PAGE: ",NURPAGE
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !!,?2,"PATIENT NAME/SSN",?24,"CLASS.",?32,"FACTORS",?43,"DATE",?62,"COMMENTS",!,$$REPEAT^XLFSTR("-",80)
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,?$$CNTR^NURSUT2(NURFAC(3)),$S($G(NURFAC(3))=" BLANK":"NO FACILITY",1:$G(NURFAC(3)))
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: "."
  • Line Location: SORT+10
Function Call: WRITE
  • Prompt: !!,?70,"PATIENTS",!,?29,"I II III IV V CLASSIFIED",!,?27,"---",?35,"---",?44,"---",?52,"---",?60,"---",?70,"----------"
  • Line Location: CAT+1
Function Call: WRITE
  • Prompt: !,"CATEGORY TOTALS:",?27,$J(NTC(1),3),?35,$J(NTC(2),3),?44,$J(NTC(3),3),?52,$J(NTC(4),3),?60,$J(NTC(5),3),?70,$J(NTC,10),!
  • Line Location: CAT+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^NURSF(211.4 - [#211.4] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call