Routine: APCHCOMM

Information

APCHCOMM ; IHS/TUCSON/LAB - ROUTINE AFTER USER COMMITS ; [ 06/24/97 2:42 PM ]

Source file <APCHCOMM.m>

Package	Total	Call Graph
VA Fileman	3	%XY^%RCR FILE^DICN ^DIK

Package	Total	Caller Graph
Patient Care Component	1	APCHPREI

Name	Comments	DBIA/ICR reference
CHGNAR	; change security key name in description
END	; end of routine
RCR2	;set vars to copy node 1 word-processing field to ^DIC(19.1, global
START	; start of routine ; following line - quit if data exists
RCR1	;set vars to copy node 1 word-processing field to temporary global
LOOKUP	;
ADDKEY	; add APCHZ CONFIDENTIAL security key
DELETE	;delete security key

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Sorry, this key is currently being edited. Try later." Line Location: START+5
Function Call: WRITE	Prompt: !!,"......deleting SECURITY KEY: APCHS CONFIDENTIAL",!! Line Location: DELETE+2
Function Call: WRITE	Prompt: !!,"......renaming SECURITY KEY to APCHZ CONFIDENTIAL",!! Line Location: ADDKEY+4

Name	Line Occurrences (* Changed, ! Killed)
^APCHTMP(	END+1!, CHGNAR+1*
^DIC(19.1 - [#19.1]	START+2, START+5, START+13, LOOKUP+2

Name	Field # of Occurrence
>> %X	RCR1+1, RCR2+1
>> %Y	RCR1+2, RCR2+2
APCHDA	START+5, START+13, END+1, END+2!, LOOKUP+2*, LOOKUP+3, RCR1+1, RCR1+2, RCR2+1, RCR2+2 , DELETE+1, ADDKEY+3, CHGNAR+1
APCHGBL	END+2!, LOOKUP+4*, RCR1+1, RCR2+2, DELETE+1, ADDKEY+2
APCHQ	START+4, END+2!, LOOKUP+1, LOOKUP+5
D	DELETE+4!, ADDKEY+6!
D0	DELETE+4!, ADDKEY+1!, ADDKEY+6!
D1	DELETE+4!, ADDKEY+6!
DA	DELETE+1, DELETE+4!, ADDKEY+3, ADDKEY+6!
DD	ADDKEY+1!
DI	DELETE+4!, ADDKEY+6!
DIADD	DELETE+4!, ADDKEY+6!
DIC	DELETE+4!, ADDKEY+2*, ADDKEY+6!
DIC(0	ADDKEY+2*
DICR	DELETE+4!, ADDKEY+6!
DIE	DELETE+4!, ADDKEY+6!
DIK	DELETE+1*, DELETE+3!
DINUM	DELETE+4!, ADDKEY+3*, ADDKEY+6!
DLAYGO	DELETE+4!, ADDKEY+6!
DQ	DELETE+4!, ADDKEY+6!
DR	DELETE+4!, ADDKEY+6!
>> X	ADDKEY+2*