Routine: NURAED3

Information

NURAED3 ;HIRMFO/RM,MD,FT-HELP ROUTINE FOR NURSING DATA ;8/9/96 12:33

Source file <NURAED3.m>

Package	Total	Call Graph
VA Fileman	3	^%DT EN^DDIOL ^DIC
Nursing Service	1	EN2^NURAED6

Package	Total	Caller Graph
Nursing Service	16	NURA6A1 NURA6D1 NURA6D2 NURA6E1 NURA6F1 NURA6H1 NURA6J1 NURA9A1 NURA9D1 NURA9D2 NURA9E1 NURA9F1 NURA9H1 NURA9J1 NURAED0 NURAED01

Name	Comments	DBIA/ICR reference
A
Q5	;
EN6	;XECUTABLE HELP FOR EXPERIENCE FIELD OF 210 FILE
LOCN	; SELECT LOCATION
EN1	; ENTRY TO GIVE XECUTABLE HELP FOR NAT. CERT FIELD OF 210 FILE
EN2	; THIS ENTRY POINT IS UTILIZED BY ALL PRINT ROUTINES WITH SUB-TOTALS
EN3	; ENTRY FROM NURS-I-STAFF1 TEMPLATE ; THE NURSS, SAVEADD, SAVEADD2, SAVEADD3, SAVEZIP, SAVECITY, SAVESTAT ; VARIABLES ARE KILLED OFF IN THE NURS-I-STAFF1 TEMPLATE
EN4	; VARIABLES N1,NFCNT,NMCNT,NTCT,NTOT ARE KILLED BY CALLING ROUTINE
EN5	; POSITION EDIT AS IDENTIFIER FOR STAFF ENTRY
SPON	; SELECT SERVICE POSITION
DICW	; EXECTUTED BY DIC("W") STRING IN PROFESSIONAL EXPERIENCE LOOKUP FROM ; PROFESSIONAL EXPERIENCE [NURAED-STF-EXP] OPTION.
STDT	; SELECT START DATE
GETNODE	; OBTAIN POINTER TO VA(200

Name	Line Occurrences
Function Call: READ	Prompt: "PRIMARY POSITION START DATE: " Formatting: !?3 Timeout: DTIME Variable: X Line Location: STDT+1
Function Call: WRITE	Prompt: !?3,$C(7),"Required!!" Line Location: STDT+2
Function Call: WRITE	Prompt: $C(7),!?3,"Answer with the starting date for the primary position." Line Location: STDT+3
Function Call: READ	Prompt: "PRIMARY DUTY LOCATION: " Formatting: !?3 Timeout: DTIME Variable: X Line Location: LOCN+1
Function Call: WRITE	Prompt: !?3,$C(7),"Required!!" Line Location: LOCN+2
Function Call: READ	Prompt: "PRIMARY SERVICE POSITION: " Formatting: !?3 Timeout: DTIME Variable: X Line Location: SPON+1
Function Call: WRITE	Prompt: !?3,$C(7),"Required!!" Line Location: SPON+2
Function Call: WRITE	Prompt: !?3,$C(7),"No position data stored!!" Line Location: Q5+2
Routine Call	DIC Line Location: LOCN+3 SPON+3

Name	Line Occurrences (* Changed, ! Killed)
^DIC(5 - [#5]	EN3+4
^NURSF(210 - [#210]	EN1+1, EN1+3, A, EN3+5*, GETNODE+1, EN6+1
^NURSF(212.2 - [#212.2]	EN1+3, A
^TMP("NURA"	EN2+2, EN2+5, EN4+1, EN4+3
^VA(200 - [#200]	EN3+3, EN3+4

Name	Field # of Occurrence
^(	EN3+3
^(0	EN1+3, A, EN3+4, EN6+1

Name	Field # of Occurrence
%DT	STDT+4*, Q5+3!
>> D0	EN1+1, EN1+3, A, EN6+1
>> DA	EN1+1, EN1+3, EN3+5
DIC	LOCN+3!, SPON+3!, Q5+3!, EN6+2
DIC(0	LOCN+3, SPON+3
DTIME	STDT+1, LOCN+1, SPON+1
ID	EN3+3, EN3+4, EN3+6!, GETNODE+1*
>> NFCNT	EN4+2, EN4+3
>> NFCNT(1	EN4+2, EN4+3
>> NMCNT	EN4+2, EN4+3
>> NMCNT(1	EN4+2, EN4+3
>> NRPT	EN2+1
>> NTCT	EN2+1, EN2+2, EN2+5, EN4+2, EN4+3*
>> NTOT	EN2+1, EN2+2, EN2+5, EN4+1
>> NUR200	EN5+1
NUROUT	EN5+1, STDT+1, LOCN+1, SPON+1, Q5+1, Q5+2, Q5+3!
NURSASS	Q5+3!
NURSASS(1	EN5+1*
>> NURSDBA	GETNODE+1
NURSI	EN3+5*, EN3+6!
NURSLO	EN6+1*, EN6+2!, DICW+2, DICW+3, DICW+4, DICW+6, DICW+7, DICW+9, DICW+10, DICW+13
NURSLO(1	DICW+3*, DICW+13
NURSLO(2	DICW+4*
NURSLO(3	DICW+7*
NURSLO(4	DICW+10*
NURSLO(5	DICW+12*
NURSPOS	Q5+3!
NURSPOS(1	EN5+1, STDT+5, LOCN+4, SPON+4
>> NURSS	EN3+3*, EN3+4
NURSVAR	EN3+5*, EN3+6!
NX	EN4+1, EN4+2, EN4+3*, EN4+4!
NY	EN4+3*, EN4+4!
NZ	EN4+3*, EN4+4!
>> SAVEADD	EN3+3*
>> SAVEADD2	EN3+3*
>> SAVEADD3	EN3+3*
>> SAVECITY	EN3+4*
>> SAVESTAT	EN3+4*
>> SAVEZIP	EN3+3*
U	EN1+3, A, DICW+2, DICW+3, DICW+4, DICW+6, DICW+7, DICW+9, DICW+10
>> V	EN2+4, EN2+5
>> W	EN2+4, EN2+5
>> X	EN2+2, EN2+4, EN2+5, STDT+1, STDT+2, STDT+3, STDT+4, LOCN+1, LOCN+2, SPON+1 , SPON+2
>> Y	EN2+2, EN2+4, EN2+5*, STDT+4, STDT+5, LOCN+3, LOCN+4, SPON+3, SPON+4, EN6+1 , EN6+2
>> Y(0	SPON+4
>> Z	EN1+3, A, EN2+4, EN2+5*