Routine: DPTDZFIX

Information

DPTDZFIX ; IHS/ANMC/LJF - RESET MERGE TO RUN AGAIN; [ 10/03/2001 8:13 AM ]

Source file <DPTDZFIX.m>

Package	Total	Caller Graph
Registration	1	DPTDZKEY

Name	Comments	DBIA/ICR reference
LRFIND	;EP; -- finds all LRDFN entries in Lab without matching entries in DPT
PAUSE	;EP -- ask user to press return - no form feed ; called by option DPTD IHS MERGE VIEW
SCHED	;EP; -- find all merged patients with Scheduling data ; and set "S" nodes in DPT for those found
READ(TYPE,PROMPT,DEFAULT,HELP,SCREEN,DIRA)	; calls reader, returns response
RESET(IEN)	; -- make changes to entry in files 15 and 2
MSG(DATA,PRE,POST,BEEP)	; -- writes line to device
ASK	;EP; resets entry that merged but produced errors to ready state
LOOP	;EP; -- called to reset all past merges to ready status

Name	Line Occurrences
Function Call: WRITE	Prompt: !,DPTDZN Line Location: LOOP+7
Function Call: WRITE	Prompt: ! Line Location: MSG+2
Function Call: WRITE	Prompt: DATA Line Location: MSG+3
Function Call: WRITE	Prompt: ! Line Location: MSG+4
Function Call: WRITE	Prompt: $C(7) Line Location: MSG+5
Routine Call	DIR Line Location: PAUSE+3 READ+8

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	RESET+14, RESET+20, RESET+21, RESET+22, RESET+23*, LRFIND+9, LRFIND+10, SCHED+7, SCHED+9
^DPT("B"	RESET+21!, RESET+22*
^LR - [#63]	RESET+14, LRFIND+5, LRFIND+6, LRFIND+7, LRFIND+8
^SC - [#44]	SCHED+3, SCHED+4, SCHED+5, SCHED+6, SCHED+9*
^VA(15 - [#15]	ASK+12, RESET+1, RESET+4, RESET+8, RESET+9, RESET+10, LOOP+3, LOOP+4, LOOP+5
^XTMP("DPTDZFIX"	ASK+1, ASK+4, RESET+13, LRFIND+2!, LRFIND+3, LRFIND+10

Name	Field # of Occurrence
BEEP	MSG~, MSG+5
CLINIC	SCHED+2~, SCHED+3*, SCHED+4, SCHED+5, SCHED+6, SCHED+9
DA	ASK+6~, ASK+8, ASK+17, RESET+17*
DATA	MSG~, MSG+3
>> DATE	SCHED+4*, SCHED+5, SCHED+6, SCHED+9
DEFAULT	READ~, READ+5
DFN	LRFIND+4~, LRFIND+8*, LRFIND+9, LRFIND+10
DIC	ASK+6~, ASK+8, ASK+17
>> DIK	RESET+17*
DIQ	ASK+6~
DIQ(0	ASK+8, ASK+17
DIR	PAUSE+2~, READ+1~
DIR("?"	READ+6*
DIR("A"	PAUSE+3, READ+4, READ+7*
DIR("B"	READ+5*
DIR("S"	READ+3*
DIR(0	PAUSE+3, READ+2
DIRA	READ~
DIRA(	READ+7
DIRA(1	READ+7
DPTDN	ASK+6~, ASK+7~*, ASK+8, ASK+12, ASK+15, ASK+17
DPTDZN	LOOP+1~, LOOP+2, LOOP+3, LOOP+4, LOOP+5, LOOP+6, LOOP+7
DR	ASK+6~
DT	LRFIND+3
>> FROM	RESET+4*, RESET+5, RESET+13, RESET+14, RESET+20, RESET+21, RESET+22, RESET+23
HELP	READ~, READ+6
I	MSG+1~, MSG+2, MSG+4, MSG+5*
IEN	RESET~, RESET+1, RESET+4, RESET+8, RESET+9, RESET+10, RESET+17
IOST	PAUSE+2
LR	LRFIND+4~, LRFIND+5*, LRFIND+6, LRFIND+7, LRFIND+8, LRFIND+10
>> N	SCHED+5*, SCHED+6, SCHED+9
>> PAT	SCHED+6*, SCHED+7, SCHED+9
POST	MSG~, MSG+4
PRE	MSG~, MSG+2
PROMPT	READ~, READ+4
SCREEN	READ~, READ+3
TYPE	READ~, READ+2
U	ASK+12, RESET+1, RESET+4, RESET+8, RESET+9, RESET+10, RESET+14, RESET+20, RESET+21, RESET+22 , RESET+23, LOOP+4, LOOP+5, LRFIND+7, LRFIND+8, SCHED+2*, SCHED+7, SCHED+9
>> X	RESET+4, RESET+9, RESET+10, RESET+13, RESET+14, RESET+20, RESET+22
Y	READ+1~, READ+7*, READ+9