Routine: NURSXECP

Information

NURSXECP ;HIRMFO/MD-NURSING DATA EXCEPTION REPORT ;AUG 93

Source file <NURSXECP.m>

Package	Total	Call Graph
Nursing Service	3	^NURSKILL EN7^NURSUT0 CLOSE^NURSUT1
VA Fileman	2	^%DT D^DIQ

Name	Comments	DBIA/ICR reference
QUIT	;
CHKCLS
START	;
HEADER
Q
EN1	; CHECK NURSING EDUCATION DATA

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"THERE WERE NO EXCEPTION RECORDS FOUND!" Line Location: START+10
Function Call: WRITE	Prompt: !,$S(CLASS=" BLANK":"",1:CLASS),?34,$S(DATE=" BLANK":"",1:$E(DATE,4,5)_"/"_$E(DATE,6,7)_"/"_$E(DATE,2,3)),?48,NAME,!,"DISCREPANCY: ",^TMP("NURPRSE",$J,NAME,CLASS,DATE),!! Line Location: START+13
Function Call: READ	Timeout: DTIME Variable: X Line Location: HEADER+0
Function Call: WRITE	Prompt: @IOF,Y,?25,"NURSING EDUCATION DATA EXCEPTION REPORT",?72,"PAGE: ",NURPAGE Line Location: HEADER+1
Function Call: WRITE	Prompt: !!,"CLASS",?35,"DATE",?48,"EMPLOYEE NAME" Line Location: HEADER+2
Function Call: WRITE	Prompt: !,X Line Location: HEADER+3

Name	Line Occurrences (* Changed, ! Killed)
^NURSF(210 - [#210]	START+1, START+2, START+3, START+4, START+6, START+7
^NURSF(212.4 - [#212.4]	START+4
^TMP("NURPRSE"	START+10, START+11, START+13, Q!, CHKCLS, CHKCLS+1, CHKCLS+2, CHKCLS+3, CHKCLS+4*
^TMP($J	START+1!, CHKCLS+4, CHKCLS+5*
^VA(200 - [#200]	START+2

Name	Field # of Occurrence
^(0	START+7

Name	Field # of Occurrence
>> CLASS	START+4, START+7, START+11*, START+13, CHKCLS, CHKCLS+1, CHKCLS+2, CHKCLS+3, CHKCLS+4, CHKCLS+5
>> D1	START+3*, START+4
>> D2	START+6*, START+7
>> DA	START+1*, START+2, START+3, START+4, START+6, START+7
>> DATA	START+4, START+7
>> DATE	START+4, START+7, START+11*, START+13, CHKCLS, CHKCLS+1, CHKCLS+2, CHKCLS+3, CHKCLS+4, CHKCLS+5
DTIME	HEADER
IOF	HEADER+1
IOSL	START+12
IOST	HEADER
>> NAME	START+2, START+11, START+13, CHKCLS, CHKCLS+1, CHKCLS+2, CHKCLS+3, CHKCLS+4, CHKCLS+5
>> NUROUT	EN1+1*
>> NURPAGE	START+1, HEADER+1
>> NURQUEUE	EN1+1*, HEADER
>> NURQUIT	EN1+1, START+1, START+12, HEADER*
>> NURSW1	START+1, START+12, HEADER, HEADER+1
>> POP	EN1+2
U	START+2, START+4, START+7
>> X	HEADER, HEADER+1, HEADER+3*
>> Y	HEADER+1
>> ZTRTN	EN1+2*
>> ZTSK	EN1+2