Routine: PSDNSCL

Information

PSDNSCL ;BIR/JPW - Nurse Shift Check Log ; 2 Aug 94

Source file <PSDNSCL.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to",!,?12,"print this shift check log.",! Line Location: PSDNSCL+4
Function Call: WRITE	Prompt: !!,"You may queue this report to print at a later time.",!! Line Location: DEV+1
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+2
Function Call: WRITE	Prompt: !!,?10,"** NO ACTIVE ORDERS TO REPORT **",! Line Location: PRINT+2
Function Call: WRITE	Prompt: !!,?2,"=> ",DRUG,! Line Location: PRINT+4
Function Call: WRITE	Prompt: !!,?2,"=> ",DRUG,! Line Location: PRINT+5
Function Call: WRITE	Prompt: !,NUM,?12,$P(NODE,"^",3),?34,$J($P(NODE,"^",2),6),?45,$P(NODE,"^",4),?55,$P($P(NODE,"^")," ") Line Location: PRINT+6
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0
Function Call: WRITE	Prompt: ! Line Location: DONE+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,?15,"Nursing Shift Check Log for ",NAOUN,?70,"Page: ",PG,!,?20,RPDT,! Line Location: HDR+2
Function Call: WRITE	Prompt: !,?2,"=> DRUG",!,?18,"DATE",?44,"RECD" Line Location: HDR+3
Function Call: WRITE	Prompt: !,"DISP #",?18,"RECD",?37,"QTY",?45,"BY",?54,"ORDER STATUS" Line Location: HDR+4
Function Call: WRITE	Prompt: !,LN,! Line Location: HDR+5