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

Package: Nursing Service

Routine: NURCES2


Information

NURCES2 ;HIRMFO/YH-END OF SHIFT REPORT PART 3 - ITEMIZED I/O DATA ;5/16/17

Source Information

Source file <NURCES2.m>

Entry Points

Name Comments DBIA/ICR reference
SETARRY ;SET DATA IN ^TMP($J,"GMRY", FOR EACH PATIENT
SETIV ;SET IV TEXT
IVM ;SET IV MAINTENANCE IN ^TMP($J,"GMRY"
SCARE ;
SETUT ;
IVTUBE ;OBTAIN LAST TUBING CHANGED
TUBING
CHANGED ;
CHANGED1 ;
HEADER ; PRINTING OF HEADING ROUTINE
PTDATA ;
PRINT2

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: !,NURDT,?20,"END-OF-SHIFT REPORT",?40,"UNIT: ",NPWARD
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: ?$S(NOPT=1:90,NOPT=2:55,1:55),"TOUR: "_+$E($P(GMRSTRT,".",2),1,2)_":"_$E($P(GMRSTRT,".",2)_"00",3,4)_"-"_+$E($P(Y,".",2),1,2)_":",$E($P(Y,".",2),3,4)
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: ?$S(NOPT=1:118,NOPT=2:72,1:72),"PAGE:",NURPAGE
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !,"SITUATION",?25,"|BACKGROUND | |ASSESSMENT "
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: ?68,"|RECOMMENDATION"
  • Condition for execution: NOPT=1
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !,"ROOM-BED/NAME/SSN/",?25,"|ADMITTING DX/ |PT |LATEST VITALS"
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: ?68,"|PATIENT PROBLEMS"
  • Condition for execution: NOPT=1
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !,"SPECIALTY/DIET/ALLERGIES",?25,"|DATE/MDs",?42,"|CAT|"
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: ?68,"|",!,NURX,!
  • Condition for execution: NOPT=1
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !,$E(NURX,1,79),!
  • Condition for execution: NOPT=2
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: $E(NPT(NN),1,25)
  • Line Location: PRINT2+0
Function Call: WRITE
  • Prompt: $E(NADM(NN),1,16)
  • Line Location: PRINT2+1
Function Call: WRITE
  • Prompt: NCL(NN)
  • Line Location: PRINT2+2
Function Call: WRITE
  • Prompt: NVM(NN)
  • Line Location: PRINT2+3
Function Call: WRITE
  • Prompt: NPR(NN)
  • Line Location: PRINT2+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT2+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(213.9 - [#213.9] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call