GMRCUTL1 ;SLC/DCM,JFR,MA - General Utilities ;04/27/2017 15:23
Source file <GMRCUTL1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ACTM | ;;Set correct variables to complete, discontinue, etc. a consult
|
|
| PRNT(SRVCIFN,GMRCO) | ;print form 513 to a printer when new consult is entered
|
|
| END | ||
| PROVDX(OI) | ;return PROV DX prompting info from 123.5
; Input: ; OI = ref to file 123.5("#;99CON") or file 123.3 (#;99PRC) |
|
| ORIFN(GMRC123) | ;return ORIFN associated with give record in ^GMR(123,
; GMRC123 = ien of consult record in file 123 |
|
| GETDT(PROMPT,DEFAULT) | ;prompt and return FM date
|
|
| DCPRNT(IEN,USER) | ;reprint SF-513 on DC?
|
|
| 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 |
|
| LOCKREC(GMRCDA) | ;attempt to lock a consult record using order or record
; Input: ; GMRCDA = ien of consult record from file 123 |
|
| UNLKREC(GMRCDA) | ;unlock a consult record
; Input: ; GMRCDA = ien of consult record from file 123 |
|
| NEWUCID(GMRCIEN) | ;return a string that uniquely identifies this record accross VistAs
; INPUT: ; GMRCIEN ien of consult/request record from file 123 |
