©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
GMRCUTL1 ;SLC/DCM,JFR,MA - General Utilities ;12-Feb-2015 15:20;DU
Source file <GMRCUTL1.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 2 | (,HOME)^%ZIS ^%ZTLOAD |
| Consult Request Tracking | 1 | $$VALID^GMRCAU |
| Order Entry Results Reporting | 1 | ($$LOCK1,UNLK1)^ORX2 |
| Text Integration Utility | 1 | BLRPLT^TIUSRVD |
| VA Fileman | 1 | ^DIR |
| VueCentric Framework | 1 | GETPAR^CIAVMRPC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| END | ||
| ORIFN(GMRC123) | ;return ORIFN associated with give record in ^GMR(123,
; GMRC123 = ien of consult record in file 123 |
|
| PREREQ(GMRCARR,GMRCSRV,GMRCDFN,UNRESOLV) | ; return service pre-requisite
; pre-requisite stored in 125 nodes in file 123.5 or 123.3 ; GMRCARR = array to return containing pre-requisite ; GMRCSRV = ref to file 123.5 (ien;99CON) or 123.3 (ien;99PRC) ; GMRCDFN = patient identifier if to return resolved ; UNRESOLV = 1 or 0 ; if UNRESOLV=1 GMRCARR will be returned unresolved |
|
| UNLKREC(GMRCDA) | ;unlock a consult record
; Input: ; GMRCDA = ien of consult record from file 123 |
|
| DCPRNT(IEN,USER) | ;reprint SF-513 on DC?
|
|
| ACTM | ;;Set correct variables to complete, discontinue, etc. a consult
|
|
| PROVDX(OI) | ;return PROV DX prompting info from 123.5
; Input: ; OI = ref to file 123.5("#;99CON") or file 123.3 (#;99PRC) |
|
| GETDT(PROMPT,DEFAULT) | ;prompt and return FM date
|
|
| LOCKREC(GMRCDA) | ;attempt to lock a consult record using order or record
; Input: ; GMRCDA = ien of consult record from file 123 |
|
| PRNT(SRVCIFN,GMRCO) | ;print form 513 to a printer when new consult is entered
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^GMR( | PROVDX+11, PREREQ+9, PREREQ+11, PREREQ+12 |
| ^GMR(123 - [#123] | PRNT+2, ORIFN+2, DCPRNT+2, LOCKREC+9, LOCKREC+15, UNLKREC+5, UNLKREC+8 |
| ^GMR(123.1 - [#123.1] | ACTM+2, ACTM+3, ACTM+4 |
| ^GMR(123.3 - [#123.3] | PROVDX+13 |
| ^GMR(123.5 - [#123.5] | PRNT+3, PRNT+4, PROVDX+14, DCPRNT+3 |
| ^TMP("TIUBOIL" | PREREQ+13, PREREQ+14! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %ZIS | PRNT+1~, PRNT+5*, PRNT+11* |
| DATA | PROVDX+12~, PROVDX+16, PROVDX+17 |
| DEFAULT | GETDT~, GETDT+11 |
| DIR | GETDT+7~ |
| DIR("?" | GETDT+9* |
| DIR("A" | GETDT+10* |
| DIR("B" | GETDT+11* |
| DIR(0 | GETDT+8* |
| DIROUT | GETDT+7~ |
| DIRUT | GETDT+7~ |
| DTOUT | GETDT+7~, GETDT+13 |
| DUOUT | GETDT+7~, GETDT+13 |
| GMRC123 | ORIFN~, ORIFN+2 |
| >> GMRCA | ACTM+2*, ACTM+3, ACTM+4, ACTM+5 |
| >> GMRCACTM | ACTM+2, ACTM+3* |
| GMRCARR | PREREQ~, PREREQ+11, PREREQ+13 |
| GMRCAUDT | PRNT+1~, PRNT+6*, PRNT+7 |
| >> GMRCCPY | PRNT+7 |
| GMRCDA | LOCKREC~, LOCKREC+9, LOCKREC+15, UNLKREC~, UNLKREC+5, UNLKREC+8 |
| GMRCDEV | PRNT+1~, PRNT+6*, PRNT+9, END! |
| GMRCDEV1 | PRNT+12!, END! |
| GMRCDFN | PREREQ~, PREREQ+10, PREREQ+12 |
| GMRCFIL | PROVDX+8~, PROVDX+10*, PROVDX+11, PROVDX+13, PROVDX+14, PREREQ+7~, PREREQ+8*, PREREQ+9, PREREQ+11, PREREQ+12 |
| GMRCFMT | END! |
| GMRCMSG | LOCKREC+8~, LOCKREC+11*, LOCKREC+13 |
| GMRCO | PRNT~, PRNT+2, PRNT+7 |
| GMRCORD | LOCKREC+8~, LOCKREC+9*, LOCKREC+10, LOCKREC+11, UNLKREC+4~, UNLKREC+5*, UNLKREC+6, UNLKREC+7 |
| GMRCOREC | END! |
| GMRCQUED | PRNT+1~, PRNT+6*, PRNT+12! |
| GMRCQUT | ACTM+1!, ACTM+5* |
| GMRCSRV | PREREQ~, PREREQ+6, PREREQ+8, PREREQ+9, PREREQ+11, PREREQ+12 |
| IEN | DCPRNT~, DCPRNT+2, DCPRNT+6 |
| ION | PRNT+6 |
| IOP | PRNT+1~, PRNT+4* |
| NODE | PROVDX+12~, PROVDX+13*, PROVDX+14*, PROVDX+18, PROVDX+19, PROVDX+20 |
| OI | PROVDX~, PROVDX+9, PROVDX+10, PROVDX+11, PROVDX+13, PROVDX+14 |
| >> ORSTS | ACTM+4* |
| ORVP | PRNT+1~ |
| POP | PRNT+1~, PRNT+5 |
| PROMPT | GETDT~, GETDT+10 |
| REPR | DCPRNT+1~, DCPRNT+3*, DCPRNT+4, DCPRNT+5, DCPRNT+6 |
| SERV | DCPRNT+1~, DCPRNT+2*, DCPRNT+3, DCPRNT+6 |
| SRVCIFN | PRNT~, PRNT+2*, PRNT+3, PRNT+4 |
| STRING | PROVDX+12~, PROVDX+19*, PROVDX+20*, PROVDX+21 |
| >> TIUFLG | PRNT+7 |
| U | PRNT+2, PROVDX+13, PROVDX+14, PROVDX+19, PROVDX+20, ORIFN+2, DCPRNT+2, DCPRNT+3, LOCKREC+9, UNLKREC+5 |
| UNRESOLV | PREREQ~, PREREQ+10 |
| USER | DCPRNT~, DCPRNT+6 |
| X | GETDT+7~ |
| Y | GETDT+7~, GETDT+13*, GETDT+14 |
| ZTDESC | PRNT+1~, PRNT+8* |
| ZTDTH | PRNT+1~, PRNT+9* |
| ZTIO | PRNT+1~, PRNT+9* |
| ZTRTN | PRNT+1~, PRNT+7* |
| ZTSK | PRNT+1~ |