Routine: SRHLDW

Information

SRHLDW ;B'HAM ISC/DLR - Surgery Interface Master File Update Menu for set of Codes ; [ 05/06/98 7:14 AM ]

Source file <SRHLDW.m>

Package	Total	Call Graph
VA Fileman	2	Y^DIQ ^DIR
Surgery	1	MSG^SRHLMFN

Package	Total	Caller Graph
Surgery	1	SRHL DOWNLOAD SET OF CODES

Name	Comments	DBIA/ICR reference
KDIR	;kills all DIR variables
SET	;SRTBL - HL7 table FEC - file-level event code (MFE-3) REC - Record-level event code (MFI-1) SRENT - surgery file entry (not used for set of codes)
EXIT
HDR	;header for the Table Menu

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: SRHLDW+6
Function Call: WRITE	Prompt: @IOF Line Location: SRHLDW+7
Function Call: WRITE	Prompt: ?((IOM-$L(HDR))/2),HDR Line Location: HDR+2
Function Call: WRITE	Prompt: !!,"This option allows the users to populate table files on the Automated",!,"Anesthesia Information System." Line Location: HDR+3
Function Call: WRITE	Prompt: !! Line Location: HDR+4
Routine Call	DIR Line Location: HDR+9 SET+2

Name	Line Occurrences (* Changed, ! Killed)
^DD(	SRHLDW+5
^SRO(133.2 - [#133.2]	SRHLDW+4, SRHLDW+5, HDR+6, HDR+8, SET+2, SET+3

Name	Field # of Occurrence
C	SRHLDW+3~, SRHLDW+5*
CNT	SRHLDW+3~, SRHLDW+4, SRHLDW+5, HDR+5, HDR+7, HDR+8, HDR+9
CNT(	SRHLDW+5*, HDR+5, HDR+6, HDR+7, HDR+8, SET+2, SET+3
DIR	KDIR+1!
DIR("?"	HDR+10*
DIR("A"	SET+2*
DIR("B"	SET+2*
DIR(0	HDR+9, SET+2
DIROUT	KDIR+1!
DIRUT	HDR+9, KDIR+1!
DTOUT	KDIR+1!
DUOUT	KDIR+1!
FEC	SET+1~, SET+3*
HDR	HDR+1~, HDR+2*
IOF	SRHLDW+6, SRHLDW+7
IOM	HDR+2
OUT	SRHLDW+3~, SRHLDW+6, HDR+9
REC	SET+1~, SET+3*
RNG	SRHLDW+3~, SRHLDW+6*
SR	SRHLDW+3~, SRHLDW+5*
SRA	SRHLDW+3~
SRA(	SRHLDW+5*
SRENT	SET+1~, SET+3*
SRTBL	SRHLDW+3~, SRHLDW+6, HDR+9, SET+2, SET+3*
SRX	SRHLDW+3~, SRHLDW+4, SRHLDW+5, HDR+1~, HDR+5, HDR+6, HDR+7, HDR+8
SRXX	SRHLDW+3~, SRHLDW+6*
SRY	SRHLDW+3~, SRHLDW+5*
U	SRHLDW+5, HDR+6, HDR+8, SET+2
Y	SRHLDW+3~, SRHLDW+5*, SRHLDW+6, HDR+9, SET+2