source: WorldVistAEHR/trunk/r/NURSING_SERVICE-NUR/NURCPP3.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.4 KB
Line 
1NURCPP3 ;HIRMFO/JH/RM-NURSING CARE PLAN DATA OUTPUT part 3 ;1/11/92
2 ;;4.0;NURSING SERVICE;;Apr 25, 1997
3 ; This is the Patient Problem Listing,Data Processor,Output Routine
4 ;
5GETOUPT ;Print Patient Care Plan Data and Affiliated Dates.
6 S NURSISW=0,ANS="" D HEADER,PRINT Q:NURSOUT S NURSISW=2 D HEADER
7 Q
8PRINT W ! F NURSO=0:0 S NURSO=$O(^TMP($J,"NURSDATA",NURSO)) Q:NURSO'>0 S NURSA=$S($D(^TMP($J,"NURSDATA",NURSO)):^TMP($J,"NURSDATA",NURSO),1:"") D:NURSISW CHKLINE Q:NURSOUT W !,NURSA S NURSLCNT=NURSLCNT+1,NURSSP=1,NURSISW=1
9 Q
10CHKLINE D HEADER:NURSLCNT>NURSIOSL Q
11 ;
12HEADER I NURSISW=2 S NURSEND=IOSL-9 F X=NURSLCNT:1:NURSEND W !
13 I NURSISW W !!,$E(NURSLIN("-"),1,80),!,NURSMED F I=0:0 S I=$O(NURSALGR(I)) Q:I'>0 W !,NURSALGR(I)
14 I NURSISW F K=0:0 S K=$O(NURCLEG(K)) Q:K'>0 W !,NURCLEG(K)
15 I NURSISW W !,NURSHED,?65,"["_NURSPLN_"]",?69,"VAF 10-0043",! Q:NURSISW=2
16 Q:NURSISW=2 I NURSISW,$E(IOST)="C" R !,"Press return to continue or ""^"" to exit: ",ANS:DTIME I ANS="^"!(ANS="^^")!'$T S NURSOUT=1 S:ANS="^^" GMRGOUT=1 Q
17 I NURSISW'=2 W @IOF,!,NURSDAT,?(IOM/2-($L(NURSTITL)/2+($L(NURSTITL)#2)\1)),NURSTITL,?71,"PAGE ",NURSPAG
18 I W:NURSPAG=1&NURSERR !,NURSERR(1),!,NURSERR(2),!,NURSERR(1) W !,$E(NURSLIN("-"),1,80),!,NURSH4,"Date R.N." S NURSPAG=NURSPAG+1,NURSLCNT=5+$S(NURSERR:3,1:0)
19 Q
20SPACES S NURSP3=" "
21 S NURSP1=" ",NURSP2=" ",NURSP3=" ",NURSH1=" ",NURSH2=" ",NURSH3=" ",NURSH4=$E(NURSSS,1,60),NURSH5=$E(NURSSS,1,10),NURSH6="",NURSH7=$E(NURSSS,1,28) Q
Note: See TracBrowser for help on using the repository browser.