source: WorldVistAEHR/trunk/r/CONSULT_REQUEST_TRACKING-GMRC-GMRS-GMRT/GMRCDDX.m@ 1261

Last change on this file since 1261 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1GMRCDDX ;SLC/DLT - AC cross-referenc logic for 123.5, field .01 ;11/3/97 11:21
2 ;;3.0;CONSULT/REQUEST TRACKING;**1,6**;DEC 27, 1997
3SETAC ;Logic to set the heirarchy alphabetic cross reference on the menu item
4 ;multiple based on the child-parent relationships in file 123.5
5 ;The ACP cross-reference is used to find cross-reference entries that
6 ;need to have the AC alphabetic cross-reference updated.
7 ;The value in X will be used to create a new AC cross-reference.
8 ; GMRCC=Child Service ien
9 ; GMRCP=Parent Service ien
10 ; GMRCE=Entry in Parent Sub-service multiple
11 ;
12 N GMRCC,GMRCP,GMRCE
13 S GMRCC=DA,GMRCP=0
14 F S GMRCP=$O(^GMR(123.5,"APC",GMRCC,GMRCP)) Q:'GMRCP D
15 . S GMRCE=$O(^GMR(123.5,"APC",GMRCC,GMRCP,0)) Q:'GMRCE
16 . S ^GMR(123.5,GMRCP,10,"AC",$E(X,1,63),GMRCE)=""
17 . Q
18 Q
19KILLAC ;Logic to kill the AC cross-reference entry with the name defined in
20 ;the value of x.
21 N GMRCC,GMRCP,GMRCE
22 S GMRCC=DA,GMRCP=0
23 F S GMRCP=$O(^GMR(123.5,"APC",GMRCC,GMRCP)) Q:'GMRCP D
24 . S GMRCE=$O(^GMR(123.5,"APC",GMRCC,GMRCP,0)) Q:'GMRCE
25 . K ^GMR(123.5,GMRCP,10,"AC",$E(X,1,63),GMRCE)
26 . Q
27 Q
Note: See TracBrowser for help on using the repository browser.