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 |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
General Medical Record - Generator | 2 | GMRGED0 GMRGED2 |
Name | Comments | DBIA/ICR reference |
---|---|---|
NOTMIN | ; IF THE MINIMUM NUMBER OF SELECTIONS IS NOT MADE FOR A FRAME
; THEN THAT FRAME AND ALL SELECTED CHILDREN WILL BE DELETED. |
|
NMIN | ; LOOP THROUGH CHILDREN (TO DELETE IF NECESSARY) AND DELETE THE
; TERM ID'D BY GMRGDLT("P") IF NECESSARY. |
|
CHMIN | ; CALL NMIN RECURSIVELY FOR THE CHILDREN ACTIVE IN THE PLAN
|
|
DELMIN | ; DELETE THIS ENTRY FROM THE PLAN
|
|
DMIN | ;
|
|
ADM | ;
|
|
APM | ;
|
|
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 |
|
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). |
FileNo | Call Tags |
---|---|
^GMR(124.3 - [#124.3] | Classic Fileman Calls |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
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* |