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 ;04/27/2017 15:23

Source Information

Source file <GMRCUTL1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Consult Request Tracking 2 $$VALID^GMRCAU  PRNT^GMRCUTL2  
Kernel 2 (,HOME)^%ZIS  ^%ZTLOAD  
Order Entry Results Reporting 1 ($$LOCK1,UNLK1)^ORX2  
Text Integration Utility 1 BLRPLT^TIUSRVD  
Toolkit 1 $$GET^XPAR  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 16

Package Total Caller Graph
Consult Request Tracking 12 GMRCA1  GMRCAAC  GMRCADC  GMRCAFRD  GMRCEDT4  GMRCGUIA  GMRCGUIC  GMRCHL7B  
GMRCIAC1  GMRCIAC2  GMRCIACT  GMRCYP69  
Order Entry Results Reporting 3 ORCDGMRC  ORQQCN1  ORQQCN2  
VistA Integration Adapter 1 VIABRPC  

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS PRNT+6
HOME^%ZIS PRNT+6, PRNT+12
^%ZTLOAD PRNT+11
^DIR GETDT+12
$$VALID^GMRCAU DCPRNT+6
PRNT^GMRCUTL2 PRNT+1
$$LOCK1^ORX2 LOCKREC+11
UNLK1^ORX2 UNLKREC+7
BLRPLT^TIUSRVD PREREQ+12
$$GET^XPAR NEWUCID+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR( PROVDX+11, PREREQ+9, PREREQ+11, PREREQ+12
^GMR(123 - [#123] PRNT+3, ORIFN+2, DCPRNT+2, LOCKREC+9, LOCKREC+15, UNLKREC+5, UNLKREC+8, NEWUCID+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+4, PRNT+5, 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+2~, PRNT+6*, PRNT+12*
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+2~, PRNT+7*, PRNT+8
>> GMRCCPY PRNT+8
GMRCDA LOCKREC~, LOCKREC+9, LOCKREC+15, UNLKREC~, UNLKREC+5, UNLKREC+8
GMRCDEV PRNT+2~, PRNT+7*, PRNT+10, END!
GMRCDEV1 PRNT+13!, 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!
GMRCIEN NEWUCID~, NEWUCID+8, NEWUCID+10
GMRCMSG LOCKREC+8~, LOCKREC+11*, LOCKREC+13
GMRCO PRNT~, PRNT+1, PRNT+3, PRNT+8
GMRCORD LOCKREC+8~, LOCKREC+9*, LOCKREC+10, LOCKREC+11, UNLKREC+4~, UNLKREC+5*, UNLKREC+6, UNLKREC+7
GMRCOREC END!
GMRCQUED PRNT+2~, PRNT+7*, PRNT+13!
GMRCQUT ACTM+1!, ACTM+5*
GMRCSRV PREREQ~, PREREQ+6, PREREQ+8, PREREQ+9, PREREQ+11, PREREQ+12
GMRCSTA NEWUCID+4~, NEWUCID+9*, NEWUCID+10
GMRCSTRN NEWUCID+4~, NEWUCID+7*, NEWUCID+10*, NEWUCID+11
IEN DCPRNT~, DCPRNT+2, DCPRNT+6
ION PRNT+7
IOP PRNT+2~, PRNT+5*
NODE PROVDX+12~, PROVDX+13*, PROVDX+14*, PROVDX+15, PROVDX+16, PROVDX+17
OI PROVDX~, PROVDX+9, PROVDX+10, PROVDX+11, PROVDX+13, PROVDX+14
>> ORSTS ACTM+4*
ORVP PRNT+2~
POP PRNT+2~, PRNT+6
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+1, PRNT+3*, PRNT+4, PRNT+5
STRING PROVDX+12~, PROVDX+16*, PROVDX+17*, PROVDX+18
>> TIUFLG PRNT+8
U PRNT+3, PROVDX+13, PROVDX+14, PROVDX+16, PROVDX+17, 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+2~, PRNT+9*
ZTDTH PRNT+2~, PRNT+10*
ZTIO PRNT+2~, PRNT+10*
ZTRTN PRNT+2~, PRNT+8*
ZTSK PRNT+2~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Local Variables  | All