Routine: NURA6I1

Information

NURA6I1 ;HIRMFO/RM,JH,MD,FT-INDIVIDUAL NPSB REPORT ;8/8/96 13:34

Source file <NURA6I1.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: NURA6I1+7
Function Call: WRITE	Prompt: !?5," NO RECORD FOUND FOR THIS EMPLOYEE " Line Location: PRINT+1
Function Call: WRITE	Prompt: ! Line Location: W2+1
Function Call: WRITE	Prompt: $E($P(^VA(200,N2,0),U),1,20) Condition for execution: +N2 Line Location: W2+1
Function Call: WRITE	Prompt: ?25,$E(NURSSN,1,3),"-",$E(NURSSN,4,5),"-",$E(NURSSN,6,9),?39,NL1,?51,$S($G(NPSPOS(1))="R"!($G(NPSPOS(1))="L"):$$CAT^NURSUT2(NPSPOS(1)),1:"") Condition for execution: +NURSSN Line Location: W2+1
Function Call: WRITE	Prompt: ?ZZ,Y Line Location: W2+2
Function Call: WRITE	Prompt: !,"NURSING SERVICE NPSB PROFILE" Line Location: HEADER+2
Function Call: WRITE	Prompt: ?91,Y,?109,"PAGE: ",NURPAGE Line Location: HEADER+2
Function Call: WRITE	Prompt: !!,?93,"TENTATIVE",!,?51,"SERVICE",?61,"DATE WORK COPY",?77,"DATE RETURNED",?93,"DATE FOR",?109,"ACTUAL DATE",!,?2,"NAME",?25,"SSN",?39,"LOCATION",?51,"CATEGORY",?61,"IS SENT OUT",?77,"FOR TYPING",?93,"FOR BOARD ACT.",?109,"OF BOARD ACT." Line Location: HEADER+3
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",132),! Line Location: HEADER+4