Routine: NURCPP5

Information

NURCPP5 ;HIRMFO/JH/RM-NURSING CARE PLAN DATA OUTPUT Part 1 ;8/29/96

Source file <NURCPP5.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$E(NURSLIN("-"),1,132),!!,"THERE IS NO DATA FOR THIS REPORT" Line Location: EN1+16
Function Call: WRITE	Prompt: Condition for execution: $E(IOST)'="C" ! F NURSO=1:0 S NURSA=$S($D(^TMP($J,"NURSDATA",NURSO)):^TMP($J,"NURSDATA",NURSO),1:"") W !,NURSA S NURSO=$O(^TMP($J,"NURSDATA",NURSO)) Q:NURSO'>0 Line Location: PRINT+0
Function Call: WRITE	Prompt: ! Line Location: HEADER+0
Function Call: WRITE	Prompt: !,NURSALGR(I) Line Location: HEADER+1
Function Call: WRITE	Prompt: !,NURCLEG(K) Line Location: HEADER+2
Function Call: WRITE	Prompt: !,$E(NURSHED,1,106),NURSH5,"["_NURSPLN_"]"," ","VAF 10-0043",! Line Location: HEADER+3
Function Call: READ	Formatting: ! Prompt: "Press return to continue or ""^"" to exit: " Variable: ANS Timeout: DTIME Line Location: HEADER+4
Function Call: WRITE	Prompt: @IOF,!,NURSDAT,?(IOM/2-($L(NURSTITL)/2+($L(NURSTITL)#2)\1)),NURSTITL,?123,"Page ",$J(NURSPAG,2),!?(IOM/2-($L(NURSTITL)/2+($L(NURSTITL)#2)\1)),$E(NURSLIN("-"),1,$L(NURSTITL)) Line Location: HEADER+5
Function Call: WRITE	Prompt: !,NURSPNAM,?30,NURSMED Condition for execution: NURSPAG=1 Line Location: HEADER+5
Function Call: WRITE	Prompt: ! Line Location: HEADER+7
Function Call: WRITE	Prompt: !,^TMP($J,"NURSDATA",Y) Line Location: HEADER+7