Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Local Variables |  All
Print Page as PDF
Routine: GMRCUTL1

Package: Consult Request Tracking

Routine: GMRCUTL1


Information

GMRCUTL1 ;SLC/DCM,JFR,MA - General Utilities ;12-Feb-2015 15:20;DU

Source Information

Source file <GMRCUTL1.m>

Call Graph

Call Graph Total: 7

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  

Caller Graph

Caller Graph Total: 14

Package Total Caller Graph
Consult Request Tracking 11 GMRCA1  GMRCAAC  GMRCADC  GMRCAFRD  GMRCEDT4  GMRCGUIA  GMRCGUIC  GMRCHL7B  
GMRCIAC1  GMRCIAC2  GMRCIACT  
Order Entry Results Reporting 3 ORCDGMRC  ORQQCN1  ORQQCN2  

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS PRNT+5
HOME^%ZIS PRNT+5, PRNT+11
^%ZTLOAD PRNT+10
GETPAR^CIAVMRPC PROVDX+16
^DIR GETDT+12
$$VALID^GMRCAU DCPRNT+6
$$LOCK1^ORX2 LOCKREC+11
UNLK1^ORX2 UNLKREC+7
BLRPLT^TIUSRVD PREREQ+12

Global Variables Directly Accessed

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!

Local Variables

Legend:

>> 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~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Local Variables |  All