GMRCGUIB ;SLC/DCM,JFR,MA - GUI actions for consults ;19-Nov-2014 09:52;DU
Source file <GMRCGUIB.m>
| Package | Total | Caller Graph | 
|---|---|---|
| Consult Request Tracking | 3 | GMRCAD31 GMRCGUIA GMRCGUIS | 
| Order Entry Results Reporting | 2 | ORQQCN1 ORQQCN2 | 
| Scheduling | 1 | SDQQCN2 | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| SETDA() | ;set DA of where audit actions are to be filed | |
| SETCOM(COMMENT,WHO) | ;Set comment array into tracking actions | |
| SCH(GMRCO,GMRCORNP,GMRCAD,GMRCADUZ,GMRCMT) | ;schedule a consult API ; Input variables: | |
| CMT(GMRCO,GMRCOM,GMRCADUZ,GMRCWHN,GMRCWHO) | ;add comment to consult ; GMRCO = IEN from file 123 ; GMRCOM = array of comments in format GMRCOM(1)="xxxx", GMRCOM(2)="xxx" ; GMRCADUZ = array of alert recipients as GMRCADUZ(DUZ)="" (optional) ; GMRCWHO = IEN from file 200 who's responsible activity (optional) ; GMRCWHN = date time of activity in FM format | |
| DOCLIST(GMRCAR,GMRCDA,GMRCMED) | ;return list of linked results ; Input: ; GMRCAR - array to return list, passed by reference ; GMRCDA - ien from file 123 ; GMRCMED- 1 = include med results; 0 = only TIU docs | |
| SFILE(GMRCO,GMRCA,GMRCSF,GMRCORNP,GMRCDUZ,GMRCOM,GMRCALF,GMRCATO,GMRCAD) | ;Process various file update functions from the GUI for a consult ; ADMIN COMPLETE or SIGNIFICANT FINDINGS | |
| REASON(GMRCFN,GMRCRQ,GMRCDT) | ;Load the reason for the request into ^GMR(123,GMRCO,20 | 
| Name | Field # of Occurrence | 
|---|---|
| ^DIE | SETCOM+4, SFILE+50 | 
| $$ORTX^GMRCAU | CMT+19, SFILE+39, SFILE+47, SCH+32 | 
| $$VALID^GMRCAU | CMT+21 | 
| EXIT^GMRCGUIA | SCH+22, SCH+24, SCH+35 | 
| EN^GMRCHL7 | SFILE+62, SCH+29 | 
| TRIGR^GMRCIEVT | SETCOM+10 | 
| AUDIT^GMRCP | SFILE+51, SCH+25 | 
| MSG^GMRCP | CMT+28, SFILE+59, SCH+34 | 
| STATUS^GMRCP | CMT+14, SCH+24 | 
| MEDLKUP^MCARUTL3 | DOCLIST+20 | 
| $$NOW^XLFDT | SETCOM+2, SFILE+24, SCH+17 | 
| FileNo | Call Tags | 
|---|---|
| ^GMR(123 - [#123] | Classic Fileman Calls | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^GMR(123 - [#123] | SETDA+1*, SETDA+2, SETDA+3*, REASON+3*, REASON+4*, REASON+5*, SETCOM+5*, SETCOM+6*, SETCOM+7*, SETCOM+10 , CMT+15, CMT+17, CMT+20, CMT+21, SFILE+21, SFILE+24, SFILE+29, SFILE+40, SFILE+48, SFILE+57 , SFILE+61, SFILE+62, SCH+20, SCH+33, DOCLIST+12, DOCLIST+13, DOCLIST+15 | 
| Name | Line Occurrences | 
|---|---|
| $$SETDA | CMT+8, SFILE+54, SCH+27 | 
| SETCOM | CMT+10, SFILE+55, SCH+28 | 
| Name | Field # of Occurrence | 
|---|---|
| ^(0 | SETDA+2, SETCOM+7*, SFILE+24, SFILE+40, SFILE+48, SCH+33 | 
| ^(40 | SETCOM+10 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| ARR | DOCLIST+19~, DOCLIST+20, DOCLIST+21, DOCLIST+22 | 
| CNT | DOCLIST+14~*, DOCLIST+17, DOCLIST+21, DOCLIST+23, DOCLIST+24* | 
| COMMENT | SETCOM~ | 
| COMMENT( | SETCOM+6 | 
| DA | SETDA+2*, SETDA+3, SETDA+4, SETCOM+5, SETCOM+6, SETCOM+7, SETCOM+10, CMT+7~, CMT+8*, SFILE+50* , SFILE+53~, SFILE+54*, SFILE+63!, SCH+27* | 
| DA(1 | SETCOM+3* | 
| DFN | SCH+16~, SCH+20*, SCH+29, SCH+34 | 
| DIE | SETCOM+1~, SETCOM+3*, SFILE+50*!, SFILE+63! | 
| DR | SETCOM+1~, SETCOM+3*, SFILE+22*, SFILE+38*, SFILE+46*, SFILE+50!, SFILE+63! | 
| DUZ | CMT+21, CMT+22, CMT+24, SFILE+25, SCH+19 | 
| GMRCA | CMT+7~, CMT+9*, SFILE~, SFILE+29, SFILE+35, SFILE+46, SFILE+59, SFILE+61, SCH+23* | 
| GMRCAD | SETCOM+5, CMT+7~, CMT+9*, SFILE~, SFILE+26*, SFILE+62, SFILE+63!, SCH~, SCH+18*, SCH+29 | 
| GMRCADUZ | CMT~, CMT+28, SFILE+23~*, SFILE+59, SFILE+63!, SCH~, SCH+34 | 
| GMRCADUZ( | CMT+25*, CMT+27*, SFILE+40*, SFILE+44*, SFILE+48*, SCH+33* | 
| GMRCALF | SFILE~, SFILE+42 | 
| GMRCAR | DOCLIST~ | 
| GMRCAR(0 | DOCLIST+13* | 
| GMRCAR(50 | DOCLIST+17*, DOCLIST+21!, DOCLIST+23* | 
| GMRCATO | SFILE~, SFILE+44 | 
| GMRCDA | DOCLIST~, DOCLIST+12, DOCLIST+13, DOCLIST+15 | 
| GMRCDFN | CMT+7~, CMT+15*, CMT+28, SFILE+24*, SFILE+59, SFILE+63! | 
| GMRCDR | CMT+12~, CMT+13* | 
| GMRCDT | REASON~, REASON+3, SFILE+63! | 
| GMRCDUZ | SFILE~, SFILE+25*, SFILE+55, SFILE+63!, SCH+19*, SCH+28 | 
| GMRCERMS | SFILE+20~, SFILE+21*, SFILE+22*, SFILE+29*, SFILE+64, SCH+16~, SCH+17*, SCH+20, SCH+21*, SCH+24 , SCH+36 | 
| GMRCERR | SFILE+20~, SFILE+21*, SFILE+22*, SFILE+29, SFILE+30*, SFILE+33, SFILE+34*, SFILE+64, SCH+16~, SCH+17* , SCH+20, SCH+21*, SCH+24, SCH+36 | 
| GMRCFN | REASON~, REASON+3, REASON+4, REASON+5 | 
| GMRCMED | DOCLIST~, DOCLIST+16 | 
| GMRCMT | SCH~, SCH+28 | 
| GMRCMT(0 | SCH+25, SCH+26 | 
| GMRCND | SETCOM+6*, SETCOM+7, SETCOM+12! | 
| GMRCND1 | SETCOM+6*, SETCOM+12! | 
| GMRCNOW | SETCOM+1~, SETCOM+2*, SETCOM+7, SFILE+24*, SFILE+26, SFILE+63!, SCH+16~, SCH+17*, SCH+18 | 
| GMRCO | SETDA+1, SETDA+2, SETDA+3, SETCOM+3, SETCOM+5, SETCOM+6, SETCOM+7, SETCOM+10, CMT~, CMT+15 , CMT+17, CMT+19, CMT+20, CMT+21, CMT+28, SFILE~, SFILE+21, SFILE+24, SFILE+29, SFILE+39 , SFILE+40, SFILE+47, SFILE+48, SFILE+50, SFILE+57, SFILE+59, SFILE+61, SFILE+62, SCH~, SCH+20 , SCH+29, SCH+32, SCH+33, SCH+34 | 
| GMRCOM | CMT~, CMT+10, SFILE~, SFILE+31, SFILE+52, SFILE+55, SFILE+62 | 
| GMRCOM( | SFILE+33, SFILE+34 | 
| GMRCOM(0 | SFILE+51, SFILE+52 | 
| GMRCOM1 | SFILE+32~*, SFILE+33*, SFILE+34 | 
| GMRCORNP | CMT+9*, SFILE~, SFILE+62, SFILE+63!, SCH~, SCH+29 | 
| GMRCORTX | CMT+7~, CMT+16*, CMT+18*, CMT+19*, CMT+28, SFILE+22*, SFILE+39*, SFILE+47*, SFILE+59, SFILE+63! | 
| >> GMRCQUT | SCH+24 | 
| >> GMRCRB | SFILE+62 | 
| GMRCRP | CMT+7~, CMT+20*, CMT+22, CMT+24, CMT+25, CMT+27 | 
| GMRCRQ | REASON~ | 
| GMRCRQ( | REASON+4 | 
| GMRCRSLT | SFILE+63! | 
| GMRCSF | SFILE~, SFILE+36*, SFILE+39, SFILE+47 | 
| GMRCSTS | CMT+12~, CMT+13*, SFILE+24*, SFILE+37*, SFILE+63!, SCH+16~, SCH+23* | 
| GMRCTM | CMT+7~, CMT+23*, CMT+26, CMT+27*, CMT+28 | 
| >> GMRCTYPE | SFILE+62 | 
| GMRCUPD | CMT+7~, CMT+21*, CMT+24, CMT+26 | 
| >> GMRCVSIT | SFILE+62 | 
| GMRCWHN | CMT~, CMT+9 | 
| GMRCWHO | CMT~, CMT+9, CMT+10 | 
| I | SFILE+43~, SFILE+44* | 
| L | REASON+4*, REASON+6! | 
| LN | REASON+4*, REASON+5*, REASON+6! | 
| RES | DOCLIST+14~*, DOCLIST+15*, DOCLIST+16, DOCLIST+17, DOCLIST+18, DOCLIST+20 | 
| STR | DOCLIST+19~, DOCLIST+22*, DOCLIST+23 | 
| TXT | SCH+31~, SCH+32*, SCH+34 | 
| U | CMT+17, CMT+20, CMT+21, SFILE+40, SFILE+48, SFILE+61, SCH+33, DOCLIST+13, DOCLIST+22, DOCLIST+23 | 
| WHO | SETCOM~ | 
| >> X | SFILE+44* |