GMRCDIS ;SLC/JFR - LM ROUTINE TO DISASSOCIATE MED RESULTS; 11/5/01 11:20
Source file <GMRCDIS.m>
| Package | Total | Call Graph |
|---|---|---|
| Consult Request Tracking | 8 | ($$LOCK,UNLOCK)^GMRCA1 SELECT^GMRCA2 EXAC^GMRCADC $$ORTX^GMRCAU EN^GMRCHL7 ($$SELECT,RESETIT,SET)^GMRCMED (AUDIT,MSG,STATUS)^GMRCP HDR^GMRCSLDT |
| VA FileMan | 3 | ^DIE ^DIK ^DIR |
| List Manager | 2 | (EN,SHOW)^VALM ($$SETSTR,FULL)^VALM1 |
| Authorization Subscription | 1 | $$ISA^USRLM |
| Kernel | 1 | $$CJ^XLFSTR |
| Medicine | 1 | $$SINGLE^MCAPI |
| 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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;invoke list template
|
|
| HDR | ;format list template header
|
|
| PHDR | ||
| INIT | ; set up array into ^TMP("GMRCR",$J,"DT"...
; should already have it |
|
| GETRES(GMRCO) | ; get associated MEDICINE results and format
|
|
| DIS(GMRCO) | ;select consult and start disassoc process
|
|
| EXIT | ;
|
|
| EN1(GMRCRSLT) | ; select result and verify remove action
|
|
| REMOVE(GMRCO,RSLT,GMRCAD,GMRCORNP) | ;disassociate result
; remove rslt, log actv, update sts, send alerts ; Input: ; GMRCO - ien from file 123 ; RSLT - medicine result in var ptr form (e.g. "19;MCAR(691.5,") ; GMRCAD - FM date/time of action (optional) ; GMRCORNP - DUZ of person performing action (optional) |
|
| STSCHG(GMRCIEN) | ;completed before or go back
|
|
| REFRESH(GMRCIEN) | ;re-build list of associated results
|
|
| REMUSR(GMRCIEN,USER) | ; check to see if user is authorized to remove results
|
| Name | Field # of Occurrence |
|---|---|
| ^DIE | REMOVE+15 |
| ^DIK | REMOVE+12 |
| ^DIR | EN1+14 |
| $$LOCK^GMRCA1 | DIS+4 |
| UNLOCK^GMRCA1 | DIS+12 |
| SELECT^GMRCA2 | DIS+2 |
| EXAC^GMRCADC | DIS+9, EN1+2, REMOVE+10 |
| $$ORTX^GMRCAU | REMOVE+35 |
| EN^GMRCHL7 | REMOVE+28 |
| $$SELECT^GMRCMED | EN1+5 |
| RESETIT^GMRCMED | REFRESH+1 |
| SET^GMRCMED | EN1+6 |
| AUDIT^GMRCP | REMOVE+19 |
| MSG^GMRCP | REMOVE+36 |
| STATUS^GMRCP | REMOVE+25 |
| HDR^GMRCSLDT | HDR+3 |
| $$SINGLE^MCAPI | GETRES+5 |
| $$ISA^USRLM | REMUSR+10 |
| EN^VALM | EN+1 |
| SHOW^VALM | PHDR+3 |
| $$SETSTR^VALM1 | HDR+5, GETRES+7, GETRES+8, GETRES+9, GETRES+10 |
| FULL^VALM1 | EN1+8 |
| $$CJ^XLFSTR | PHDR+1 |
| FileNo | Call Tags |
|---|---|
| ^GMR(123 - [#123] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^GMR(123 - [#123] | GETRES+3, GETRES+4, GETRES+5, GETRES+12, REMOVE+9, REMOVE+13, REMOVE+22, REMOVE+27, REMOVE+31, REMOVE+32 , REMOVE+34, STSCHG+1, STSCHG+2, STSCHG+4, STSCHG+5, REMUSR+2, REMUSR+3, REMUSR+5, REMUSR+7 |
| ^GMR(123.5 - [#123.5] | REMUSR+4 |
| ^ORD(101 - [#101] | PHDR+4, PHDR+5, PHDR+6, PHDR+7, PHDR+8, PHDR+9, PHDR+10 |
| ^TMP("GMRCR" | INIT+2, GETRES+11*, GETRES+12*, EXIT+1!, EN1+1, EN1+9, EN1+10, REFRESH+2!, REFRESH+4, REFRESH+5* , REFRESH+6 |
| Name | Line Occurrences |
|---|---|
| $$REMUSR | DIS+5 |
| $$STSCHG | REMOVE+23 |
| EN | DIS+11 |
| GETRES | DIS+10, REFRESH+3 |
| REMOVE | EN1+15 |
| Name | Field # of Occurrence |
|---|---|
| ^(2 | STSCHG+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACT | STSCHG+3~* |
| ACT(0 | STSCHG+5*, STSCHG+6 |
| ACT(2 | STSCHG+5*, STSCHG+6 |
| CHG | STSCHG+3~*, STSCHG+7*, STSCHG+9 |
| CNT | GETRES+1~, GETRES+2*, GETRES+7, GETRES+11, GETRES+12, GETRES+13* |
| DA | REMOVE+8~, REMOVE+12*, REMOVE+14~, REMOVE+15* |
| DA(1 | REMOVE+12* |
| DATA | GETRES+1~, GETRES+6*, GETRES+7*, GETRES+8*, GETRES+9*, GETRES+10*, GETRES+11 |
| DIE | REMOVE+14~, REMOVE+15* |
| DIK | REMOVE+8~, REMOVE+12* |
| DIR | EN1+3~ |
| DIR("A" | EN1+12*, EN1+13* |
| DIR("B" | EN1+11* |
| DIR(0 | EN1+11* |
| DIROUT | EN1+3~ |
| DR | REMOVE+14~, REMOVE+15* |
| DTOUT | EN1+3~ |
| DUOUT | EN1+3~ |
| DUZ | DIS+5, REMOVE+30, REMUSR+9 |
| GMRCA | REMOVE+17~, REMOVE+18* |
| GMRCAD | REMOVE~ |
| GMRCADUZ | REMOVE+33~, REMOVE+36 |
| GMRCADUZ( | REMOVE+34* |
| GMRCCLS | REMUSR+1~, REMUSR+4*, REMUSR+10 |
| GMRCDFN | REMOVE+21~, REMOVE+22*, REMOVE+28, REMOVE+36 |
| GMRCIEN | STSCHG~, STSCHG+1, STSCHG+2, STSCHG+4, STSCHG+5, REFRESH~, REFRESH+3, REMUSR~, REMUSR+2, REMUSR+3 , REMUSR+5, REMUSR+7 |
| GMRCMCR | GETRES+1~, GETRES+5*, GETRES+8, GETRES+9, GETRES+10 |
| GMRCMEDR | EN1+4, EN1+7, REFRESH+1, REFRESH+2! |
| GMRCMSG | DIS+1~, DIS+5*, DIS+7, DIS+9 |
| GMRCO | HDR+4, GETRES~, GETRES+3, GETRES+4, GETRES+5, GETRES+12, DIS~, DIS+2, DIS+3, DIS+4 , DIS+5, DIS+10, DIS+12, EN1+15, REMOVE~, REMOVE+9, REMOVE+12, REMOVE+13, REMOVE+15, REMOVE+22 , REMOVE+23, REMOVE+27, REMOVE+28, REMOVE+31, REMOVE+32, REMOVE+34, REMOVE+35, REMOVE+36 |
| GMRCORNP | REMOVE~, REMOVE+28, REMOVE+30*, REMOVE+31 |
| GMRCORTX | REMOVE+33~, REMOVE+35*, REMOVE+36 |
| GMRCQIT | DIS+1~, REMOVE+8~ |
| GMRCQUT | DIS+1~, DIS+2, REMOVE+8~ |
| GMRCRES | REMOVE+8~, REMOVE+9*, REMOVE+12 |
| GMRCRSLT | EN1~, REMOVE+17~, REMOVE+18* |
| GMRCSS | DIS+1~, REMUSR+1~, REMUSR+3*, REMUSR+4 |
| GMRCSTS | REMOVE+24~, REMOVE+25* |
| GMRCTYP | REMOVE+21~, REMOVE+27*, REMOVE+28 |
| GMRCVTIT | HDR+1~, HDR+2* |
| I | STSCHG+3~*, STSCHG+4*, STSCHG+5 |
| >> ITEM | EN1+4, EN1+5*, EN1+6, EN1+7*, EN1+9, EN1+10 |
| MSG | DIS+6~, DIS+8*, DIS+9 |
| RES | GETRES+1~, GETRES+2*, GETRES+3*, GETRES+4, GETRES+5, GETRES+12, REMUSR+1~, REMUSR+6*, REMUSR+7*, REMUSR+8 |
| RESTXT | EN1+3~, EN1+9*, EN1+12 |
| RESULT | EN1+3~, EN1+10*, EN1+15 |
| RSLT | REMOVE~, REMOVE+9, REMOVE+13, REMOVE+18 |
| U | GETRES+8, GETRES+9, GETRES+10, DIS+7, DIS+9, REMOVE+13, REMOVE+22, REMOVE+27, REMOVE+31, REMOVE+32 , REMOVE+34, STSCHG+6, REMUSR+2, REMUSR+3, REMUSR+4 |
| USER | REMUSR~, REMUSR+9*, REMUSR+10 |
| >> VALMBCK | REFRESH+7* |
| >> VALMBG | INIT+2* |
| >> VALMCNT | PHDR+4, INIT+2*, EN1+5, REFRESH+6* |
| >> VALMHDR(2 | HDR+4*, HDR+5* |
| >> VALMSG | PHDR+1* |
| X | EN1+3~ |
| >> XQORM("#" | PHDR+4* |
| >> XQORM("KEY" | PHDR+5*, PHDR+6*, PHDR+7*, PHDR+8*, PHDR+9*, PHDR+10* |
| >> XQORM("M" | PHDR+2* |
| Y | EN1+3~, EN1+14 |
