Routine: NURSDFFS

Information

NURSDFFS ;HIRMFO/RM-FILE FIELD STRUCTURES FOR NURSING FILES ;AUGUST 1986

Source file <NURSDFFS.m>

Package	Total	Call Graph
Nursing Service	3	^NURSKILL EN7^NURSUT0 CLOSE^NURSUT1
Kernel	2	^%ZIS $$REPEAT^XLFSTR
VA Fileman	2	DT^DICRW FIELD^DID

Name	Comments	DBIA/ICR reference
QUIT
HEADER	; PRINT HEADING FOR EACH FILE
EN1	; ENTRY TO BEGIN PRINTING
PRNTFLDS	; PRINTS LINES FOR FIELDS
PRINTLN	; PRINT A LINE
CKSUB	; CHECKS FOR THE EXISTENCE OF SUB-FIELDS AND PRINTS THEM OUT (RECURSIVE)
POPSTACK	; ADD ONE MORE ITEM TO STACK

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: NURSDFFS+4
Function Call: WRITE	Prompt: !,NURSPACE_NURSFLD_$E(" ",1,7-$L(NURSFLD))_NURSFLNM("LABEL") Line Location: PRINTLN+2
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+3
Function Call: WRITE	Prompt: !!,$E(DT,4,5)_"/"_$E(DT,6,7)_"/"_$E(DT,2,3),?22,"FILE FIELD STRUCTURE FOR FILE #"_NURSFIL1,?70,"PAGE: ",NURSPAGE,!,$$REPEAT^XLFSTR("-",80),! Line Location: HEADER+4
Routine Call	%ZIS Line Location: EN1+1

Name	Line Occurrences (* Changed, ! Killed)
^DD(	PRNTFLDS+2, CKSUB+2
^DIC - [#1]	EN1+2
^DIC(213.9 - [#213.9]	NURSDFFS+2

Name	Field # of Occurrence
DT	HEADER+4
IO	EN1+1
IOF	HEADER+3
ION	EN1+1
IOP	EN1+1*!
>> NURQUEUE	NURSDFFS+3*
>> NURSFIL1	HEADER+1, HEADER+2, HEADER+4
>> NURSFILE	EN1+2, PRNTFLDS+2, CKSUB+2, CKSUB+3*, PRINTLN+1, POPSTACK+1, HEADER+1
>> NURSFILE(	CKSUB+2, CKSUB+3, CKSUB+4!, POPSTACK+1*
>> NURSFILE(1	HEADER+1, HEADER+2
>> NURSFLD	PRNTFLDS+2, CKSUB+2, CKSUB+3*, PRINTLN+1, PRINTLN+2, POPSTACK+1
>> NURSFLD(	CKSUB+2, CKSUB+3, CKSUB+4!, POPSTACK+1*
>> NURSFLNM("LABEL"	PRINTLN+2
>> NURSLINE	EN1+2, PRNTFLDS+1, PRINTLN+1, HEADER+5*
>> NURSPACE	EN1+2, CKSUB+1, CKSUB+3*, PRINTLN+2
>> NURSPAGE	EN1+2, HEADER+4, HEADER+5
>> POP	NURSDFFS+4
>> STACK	EN1+2, PRNTFLDS+1, CKSUB+1, CKSUB+2, CKSUB+3*, CKSUB+4, POPSTACK+1
>> ZTRTN	NURSDFFS+4*
>> ZTSK	NURSDFFS+4