Routine: NURSBPO

Information

NURSBPO ;HIRMFO/MD,FT-NURS POSITION CONTROL FILE BUDGETED FTEE EDIT ;5/14/01 13:47

Source file <NURSBPO.m>

Package	Total	Call Graph
VA Fileman	3	^DIC (FILE,YN)^DICN ^DIE
Nursing Service	2	EN6^NURSAUTL ^NURSKILL

Package	Total	Caller Graph
Nursing Service	1	NURSALED

Name	Comments	DBIA/ICR reference
QUIT
DUPCHK(DA,X)	; Check if ABBREVIATION value is already used in FILE 211.3. ; Called from FILE 211.3, ABBREVIATION field (#.01) - ^DD(211.3,.01,0) ; Returns 1 - the value of X is already being used by another entry ; 0 - the value of X is NOT being used by another entry ; Requires DA - IEN of the FILE 211.3 entry ; X = .01 field value
SPOS	;
NPRI(NPOS)	; Calculate priority sequence based on the service position.
NEWASK	; Add an entry to the NURS POSITION CONTROL file (#211.8)

Name	Line Occurrences (* Changed, ! Killed)
^NURSF(211.3 - [#211.3]	NPRI+2, DUPCHK+8
^NURSF(211.4 - [#211.4]	NEWASK+4
^NURSF(211.8 - [#211.8]	SPOS+2, SPOS+3, SPOS+4, SPOS+7, NEWASK+6*

Name	Field # of Occurrence
>> %	SPOS+6, NEWASK+3
DA	SPOS+4*, SPOS+5, SPOS+10, DUPCHK~, DUPCHK+9
DA(1	SPOS+2, SPOS+4, SPOS+7
DD	SPOS+7!, NEWASK+5!
DIC	SPOS+1!, SPOS+7!, NEWASK+4*, NEWASK+5!
DIC("A"	SPOS+1*
DIC("DR"	SPOS+7, NEWASK+5
DIC("S"	NEWASK+4*
DIC(0	SPOS+1, SPOS+7, NEWASK+4*
>> DIE	SPOS+10*
>> DR	SPOS+10*
>> NL1	NURSBPO+2*, SPOS+6, NEWASK+2, NEWASK+4
>> NLOC	NURSBPO+2*, SPOS+2, SPOS+3, SPOS+4
NPOS	NPRI~, NPRI+2
NPRISEQ	NPRI+1~, NPRI+2*, NPRI+3
>> NPWARD	SPOS+6, NEWASK+2, NEWASK+3
>> NURCAT	NEWASK+2*, NEWASK+3
NURFLAG	DUPCHK+6~, DUPCHK+7, DUPCHK+9, DUPCHK+11
NURLOOP	DUPCHK+6~, DUPCHK+7, DUPCHK+8, DUPCHK+9
>> NUROUT	NURSBPO+2, SPOS+1, SPOS+3, SPOS+6, SPOS+9, NEWASK+3
>> NURSCAT	SPOS+2*, SPOS+3, SPOS+4, NEWASK+2
>> NURSPOS	SPOS+2*, SPOS+4, SPOS+7
>> NURSWARD	NURSBPO+2
>> NURSWARD(0	NURSBPO+2
U	SPOS+2, NPRI+2
X	SPOS+7, NEWASK+1~, NEWASK+4, DUPCHK~, DUPCHK+8
Y	SPOS+1, SPOS+2, NEWASK+1~, NEWASK+6
Y(0	SPOS+2, SPOS+6