Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: NURCES01

NURCES01.m

Go to the documentation of this file.
  1. NURCES01 ;HIRMFO/YH-END OF SHIFT REPORT PART 1/2 ;5/17/17
  1. ;;4.0;NURSING SERVICE;**45**;Apr 25, 1997;Build 12
  1. PRINT1 ;
  1. D ^NURSAPCH
  1. S GMROUT=0 I GPACK D SETARRY^NURCES2
  1. I GFH D DIET^NURCES4
  1. D EN6^NURSCUTL S NURSCLAS("CL")=1 D EN2^NURSCUTL
  1. I NURSCLAS S NDATA(1)=$S($D(^NURSA(214.6,NURSCLAS,0)):^(0),1:"") S NURFACT=$S($P(NDATA(1),"^",4)'="":$P(NDATA(1),"^",4),1:""),NURCAT=$S(+$P(NDATA(1),"^",3):$P(NDATA(1),"^",3),1:""),NCOM=$S($P(NDATA(1),"^",7)'="":$P(NDATA(1),"^",7),1:"")
  1. I $D(^NURSF(214,DFN,0)) S NDATA(2)=^(0),NSEC=$S('$D(NDATA(2)):"",'$P(NDATA(2),"^",4):"",'$D(^NURSF(213.3,$P(NDATA(2),"^",4),0)):"",1:$P(^NURSF(213.3,$P(NDATA(2),"^",4),1),"^"))
  1. D PTDATA^NURCES2,PTPROB^NURCES1 Q:NURQUIT
  1. I GPACK,$D(NURIV),NURIV>0 S N=0 F S N=$O(NURIV(N)) Q:N'>0 D
  1. . D FITLINE^NURCES5(NURIV(N),62,.NPR)
  1. I GPACK,$D(NURTUBE),NURTUBE>0 S NPR=NPR+1,NPR(NPR)="Last tube changed:",GSITE="" F S GSITE=$O(NURTUBE(GSITE)) Q:GSITE="" S Y=NURTUBE(GSITE) X ^DD("DD") S NPR=NPR+1,NPR(NPR)=" "_GSITE_" on "_$P(Y,":",1,2)
  1. D ASSN
  1. K NURIV,NURTUBE,GLEFT,GSITE,GSAVEH S NN(1)=2 S:NPR>2&(NOPT=1) NN(1)=NPR S:NADM>NN(1) NN(1)=NADM S:NPT>NN(1) NN(1)=NPT S:NVM>NN(1) NN(1)=NVM F NN=1:1:NN(1) D:$Y>(IOSL-8) HEADER^NURCES2 Q:NURQUIT D PRINT2^NURCES2 Q:NURQUIT
  1. I NOPT=2 D PART2
  1. Q:NURQUIT W $S(NOPT=1:NURX,NOPT=2:$E(NURX,1,79),1:NURX),!
  1. Q
  1. PART2 ;
  1. W !,?10,"Patient Problems:",!
  1. I NPR>0 F NN=1:1:NPR W ?12,NPR(NN),! D:$Y>(IOSL-8) HEADER^NURCES2 Q:NURQUIT
  1. I NPR=0 W ?49,"|",?64,"|",! D:$Y>(IOSL-8) HEADER^NURCES2
  1. Q
  1. ASSN ;Assessment, Safety and Special Needs
  1. I '$G(NPR) D FITLINE^NURCES5(" ",62,.NPR)
  1. D FITLINE^NURCES5(" ",62,.NPR)
  1. D FITLINE^NURCES5("Assessment: [ ]FALL [ ]I&O [ ]SL [ ]PICC",62,.NPR)
  1. D FITLINE^NURCES5(" [ ]MID [ ]ASPR",62,.NPR)
  1. D FITLINE^NURCES5(" ",62,.NPR)
  1. D FITLINE^NURCES5("SAFETY: (isolation, elopement risk, restraints,",62,.NPR)
  1. D FITLINE^NURCES5(" critical lab values,fall/risk score ______)",62,.NPR)
  1. D FITLINE^NURCES5(" ",62,.NPR)
  1. D FITLINE^NURCES5("SPECIAL NEEDS: (equipment, oxygen, etc.)",62,.NPR)
  1. D FITLINE^NURCES5(" ",62,.NPR)
  1. Q