Routine: GMRGED7

Information

GMRGED7 ;HIRMFO/RM-PATIENT DATA EDIT (cont.) ;1/9/96

Source file <GMRGED7.m>

Package	Total	Call Graph
General Medical Record - Generator	2	ADS^GMRGED6 EN1^GMRGUTL
VA Fileman	1	^DIK

Package	Total	Caller Graph
General Medical Record - Generator	2	GMRGED0 GMRGED2

Name	Comments	DBIA/ICR reference
CHMIN	; CALL NMIN RECURSIVELY FOR THE CHILDREN ACTIVE IN THE PLAN
DELMIN	; DELETE THIS ENTRY FROM THE PLAN
OTHPAR(IEN,CHIL,PAR)	; Given the IEN of 124.3 entry (IEN) and Aggregate ; Term file pointers for the Child (CHIL) and Parent (PARN), this ; function will return True (1) if CHIL has another parent'=PARN ; that it is active for in IEN, else the function returns False (0).
BEGADD	; IF THE RECORD WHICH IS ABOUT TO BE EDITED HAS ANY ADDED FLAGS ; WHICH INDICATED NO THEN THESE FLAGS WILL BE FLIPPED TO INDICATE YES
DMIN	;
APM	;
ADM	;
NMIN	; LOOP THROUGH CHILDREN (TO DELETE IF NECESSARY) AND DELETE THE ; TERM ID'D BY GMRGDLT("P") IF NECESSARY.
NOTMIN	; IF THE MINIMUM NUMBER OF SELECTIONS IS NOT MADE FOR A FRAME ; THEN THAT FRAME AND ALL SELECTED CHILDREN WILL BE DELETED.

Name	Line Occurrences (* Changed, ! Killed)
^DD(124.31	ADM+1, ADM+2, APM+1, APM+2
^GMR(124.3 - [#124.3]	NMIN+9, CHMIN+2, DELMIN+1, DELMIN+2, DMIN+1, DMIN+2, DMIN+4, DMIN+5, ADM+1, ADM+2 , APM+1, APM+2, BEGADD+2, OTHPAR+5
^GMRD(124.2 - [#124.2]	NMIN+9, BEGADD+2, OTHPAR+5

Name	Field # of Occurrence
CHIL	OTHPAR~, OTHPAR+5
>> DA	DELMIN+3, DELMIN+4, DMIN+1, DMIN+2, DMIN+4, DMIN+5, ADM+1, ADM+2, ADM+3, APM+1 , APM+2, APM+3, BEGADD+2
>> DA(1	DELMIN+3, DELMIN+4, DMIN+3, DMIN+4, DMIN+5, ADM+1, ADM+2, ADM+3, APM+1, APM+2 , APM+3, BEGADD+2
>> DA(2	DMIN+3, DMIN+4, DMIN+5, ADM+1!, ADM+3, APM+1!, APM+3*
>> DIK	DELMIN+3, DMIN+6
FXN	OTHPAR+4~, OTHPAR+5, OTHPAR+6
>> GMRG1	DELMIN+2, DMIN+1, ADM+1, ADM+2, ADM+3, APM+1*, APM+2, APM+3
>> GMRG1(0	DMIN+1, DMIN+2, DMIN+3
>> GMRG1(1	DELMIN+2, DMIN+3*
>> GMRG2	ADM+1, ADM+2, APM+1, APM+2
GMRGDLT	CHMIN+1~
GMRGDLT("C"	NMIN+9*, CHMIN+1
GMRGDLT("G"	NOTMIN+2, NMIN+10, CHMIN+1
GMRGDLT("P"	NOTMIN+2, NMIN+9, NMIN+10, CHMIN+1, CHMIN+2
GMRGDLT("T"	NOTMIN+2, NMIN+10, CHMIN+2, DELMIN+1, DELMIN+2, DELMIN+3, DELMIN+4, DMIN+1, DMIN+2, DMIN+3
GMRGDLT(0	DELMIN+1*, DELMIN+2, DELMIN+3, DELMIN+4
>> GMRGPDA	NMIN+9, NMIN+10, CHMIN+2, DELMIN+1, DELMIN+2, DELMIN+3, DELMIN+4, DMIN+1, DMIN+2, DMIN+3 , BEGADD+2
>> GMRGRT	NMIN+10
>> GMRGTDL	CHMIN+1, DELMIN+1, DELMIN+2*, DELMIN+3
>> GMRGTDL(0	CHMIN+1*
>> GMRGTERM	NOTMIN+2, BEGADD+2*
>> GMRGTERM(0	BEGADD+2*
>> GMRGY	DELMIN+4*
IEN	OTHPAR~, OTHPAR+5
PAR	OTHPAR~, OTHPAR+5
X	DELMIN+4, ADM+1, ADM+2, APM+1, APM+2, OTHPAR+4~, OTHPAR+5