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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: VPRSDAC

Package: Virtual Patient Record

Routine: VPRSDAC


Information

VPRSDAC ;SLC/MKB -- SDA Consult/CP utilities ;10/25/18 15:29

Source Information

Source file <VPRSDAC.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Consult Request Tracking 3 ($$IFC,ACT,GET)^GMRCAPI  DOCLIST^GMRCGUIB  OER^GMRCSLM1  
Virtual Patient Record 3 MDPS1^VPRDJ03  $$NULL^VPRSDA  $$COMP^VPRSDAT  
VA FileMan 2 ^%DT  $$GET1^DIQ  
DRG Grouper 1 ($$ICDD,$$SNAM,$$SYS)^ICDEX  
Text Integration Utility 1 EXTRACT^TIULQ  

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: 2

Package Total Caller Graph
VA FileMan 2 ^DDE  ITEM  

Entry Points

Name Comments DBIA/ICR reference
QRY ; -- Consult/Request Tracking query
; Expects DSTRT, DSTOP, DMAX from DDEGET and returns DLIST(#)=ien
GMRC1(IEN) ; -- Referral ID Action
CONSNAME(IEN) ; -- return display name using fields
; Request Type (#13), To Service (#1) & Procedure/Request Type (#4)
PROVDX(IEN) ; -- return full Consult ProvDx string, or null/DDEOUT
PDXQ ;exit
PDTXT ; -- return ProvDx free text
DOCS ; - get related documents, returns DLIST(#)=8925 ien
DISS() ; -- return 1 or 0, if result removed
GETACT(IEN) ; -- return DLIST(DA)='DA,IEN' of activity log entries
CPQRY ; -- Clinical Procedures query [not in use]
; Expects DSTRT, DSTOP, DMAX from DDEGET and returns DLIST(#)=ien
CP1(IEN) ; -- get MD nodes for procedure [ID Action]
; VPRCP = ^TMP("MDHSP",$J,I)
; VPRCN = ^GMR(123,consult,0)
; VPRTIU(field#,"I") = TIU data field

External References

Name Field # of Occurrence
^%DT CP1+11
$$GET1^DIQ CONSNAME+5, CP1+5
$$IFC^GMRCAPI GMRC1+3
ACT^GMRCAPI GMRC1+2, GETACT+2
GET^GMRCAPI GMRC1+2
DOCLIST^GMRCGUIB CP1+14
OER^GMRCSLM1 QRY+3
$$ICDD^ICDEX PROVDX+9
$$SNAM^ICDEX PROVDX+12
$$SYS^ICDEX PROVDX+12
EXTRACT^TIULQ CP1+16
MDPS1^VPRDJ03 CPQRY+3
$$NULL^VPRSDA DOCS+3
$$COMP^VPRSDAT DOCS+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORD(101 - [#101] GET1^DIQ
^MDD(702 - [#702] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("GMRCR" QRY+4, QRY+5, QRY+7!
^TMP("MDHSP" CPQRY+4, CPQRY+6*, CP1+4, CP1+7

Label References

Name Line Occurrences
$$DISS DOCS+3
CPQRY CP1+6
PDTXT PROVDX+4, PROVDX+6, PROVDX+8
PDXQ PROVDX+4, PROVDX+6, PROVDX+8

Naked Globals

Name Field # of Occurrence
^( CPQRY+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT CP1+10~, CP1+11*
ACT GETACT+1~
ACT( GETACT+6*
CNT GETACT+1~, GETACT+3*, GETACT+7*
>> DDEOUT PDTXT+2*, CP1+8*
>> DFN QRY+3, CPQRY+3, CP1+5*
DLIST DOCS+3, CP1+6~
DLIST( QRY+6*, DOCS+2*, GETACT+7*, CPQRY+7*
DLIST(1 DOCS+3*
>> DMAX QRY+4, CPQRY+3, CPQRY+4
>> DSTOP QRY+3, CPQRY+3
>> DSTRT QRY+3, CPQRY+3
GMRCDA QRY+2~
GMRCGRP QRY+2~
GMRCSEX QRY+2~
I DISS+1~, DISS+2*, DISS+3, GETACT+1~, GETACT+3*, GETACT+4, GETACT+7, CPQRY+2~, CPQRY+4*, CPQRY+6
, CP1+7*
ID CPQRY+2~
IEN GMRC1~, GMRC1+1*, GMRC1+2, GMRC1+3, CONSNAME~, PROVDX~, GETACT~, GETACT+1*, GETACT+2, GETACT+7
, CP1~, CP1+5, CP1+7
TITLE QRY+2~
TIU GETACT+1~, GETACT+4*, GETACT+6
U CONSNAME+3, CONSNAME+4, CONSNAME+5, CONSNAME+6, CONSNAME+7, CONSNAME+8, PROVDX+4, PROVDX+6, PROVDX+9, PROVDX+12
, PDTXT+1, DISS+3, GETACT+4, CPQRY+4, CPQRY+5, CPQRY+6, CPQRY+7, CP1+11, CP1+13, CP1+15
VPRCACT GMRC1+1!, GMRC1+2, GETACT+2
VPRCACT( DISS+2, DISS+3, GETACT+3, GETACT+4
VPRCACT(0 GETACT+2
>> VPRCN CP1+14*
VPRCONS GMRC1+1!, GMRC1+2
VPRCONS( PROVDX+2
VPRCONS(0 CONSNAME+2, CONSNAME+6*
VPRCONS(30 PROVDX+2
VPRCONS(50 DOCS+2
>> VPRCP CP1+7*, CP1+8, CP1+11*, CP1+13, CP1+15
VPRD CP1+10~, CP1+13!, CP1+14, CP1+15!
VPRD( CP1+17
VPRD(0 CP1+14
VPRD(50 CP1+14
VPRDX PROVDX+1~, PROVDX+9
VPRDX(1 PROVDX+10
VPRI DOCS+1~, DOCS+2*
VPRICD PROVDX+1~, PROVDX+2*, PROVDX+4, PROVDX+6, PROVDX+9, PROVDX+12
VPRIFC GMRC1+1!, GMRC1+3*
VPRN QRY+2~, QRY+3*, QRY+4*, QRY+5, QRY+6, CPQRY+2~*, CPQRY+4, CPQRY+7*
VPRNM PROVDX+1~, PROVDX+2*, PROVDX+8, PROVDX+10*, PROVDX+12, PDTXT+1
>> VPRTIU CP1+17*
VPRX QRY+2~, QRY+5*, QRY+6, CONSNAME+2~*, CONSNAME+3, CONSNAME+4, CONSNAME+5*, CONSNAME+7, CONSNAME+8, DOCS+1~
, DOCS+2*, CPQRY+2~, CPQRY+4*, CPQRY+5, CPQRY+6, CPQRY+7
X GETACT+1~, GETACT+4*, GETACT+6, CP1+10~, CP1+11*, CP1+13*, CP1+14, CP1+15*, CP1+16, CP1+17
X0 GETACT+1~, GETACT+4*
Y CONSNAME+2~, CONSNAME+4*, CONSNAME+5*, CONSNAME+6, CONSNAME+7*, CONSNAME+8*, CONSNAME+9*, CONSNAME+12, PROVDX+1~*, PROVDX+12*
, PDXQ+1, PDTXT+1*, DISS+1~*, DISS+2, DISS+3*, DISS+4, CP1+10~, CP1+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All