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 |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: MDRPCU

Package: Clinical Procedures

Routine: MDRPCU


Information

MDRPCU ; HOIFO/DP - Object RPC Utilities ; [05-23-2003 10:16]

Source Information

Source file <MDRPCU.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 5 $$GET1^DID  UPDATE^DIE  CLEAN^DILF  $$ROOT^DILFD  ($$GET1,GETS)^DIQ  
Registration 2 WIN^DGPMDDCF  ($$DOB,$$SSN)^DPTLK1  
Order Entry Results Reporting 1 (TEAMPTS,TEAMS)^ORQPTQ1  
Scheduling 1 GETPLIST^SDAMA202  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 10

Package Total Caller Graph
Clinical Procedures 10 MD UTILITIES  MDRPCOD  MDRPCOG  MDRPCOL  MDRPCOO  MDRPCOP  MDRPCOR  MDRPCOT  
MDRPCOU  MDRPCOV  

Entry Points

Name Comments DBIA/ICR reference
RPC(RESULTS,OPTION,P1,P2,P3,P4,P5,P6) ; [Procedure] Main RPC call
; RPC: [MD UTILITIES]
UNIQUE ; [Procedure] Is value P2 unique in file P1
ERROR(TARGET,SOURCE) ; [Procedure]
; Input parameters
; 1. TARGET [Literal/Required] No description
; 2. SOURCE [Literal/Required] No description
UNLOCK(RESULTS,DD,IENS) ; [Procedure] Unlock a record
LOCK(RESULTS,DD,IENS) ; [Procedure] Lock a record
WARDPTS ; [Procedure] Return pts for a ward
DUPS(MDD,MDIEN,MDX) ; [Function] Return boolean if dups exist
WARDS ; [Procedure] Return Active Set of Wards
TEAMS ; [Procedure] Return list of teams
CLINICS ; [Procedure]
DELITEM ; [Procedure] Determines if a file entry can be deleted and deletes it
GETRSLT ; [Procedure] Get result report entries
; P1=PATIENT, P2=CPDefinition
; Load valid instruments into MDINST()
TEAMPTS ; [Procedure] Return patients on a team
CLINICPT ; [Procedure] Return patients by clinic/appt dt
BADRPC(RPC,RTN,OPTION) ; [Procedure] When and RPC gets lost
; Input parameters
; 1. RPC [Literal/Required] No description
; 2. RTN [Literal/Required] No description
; 3. OPTION [Literal/Required] No description
GUIPT(X) ; [Procedure]
; Input parameters
; 1. X [Literal/Required] No description
COPY ; [Procedure] Make a copy of an item (Top level data only)

External References

Name Field # of Occurrence
WIN^DGPMDDCF WARDS+2
$$GET1^DID DUPS+2, UNIQUE+1
UPDATE^DIE COPY+7
CLEAN^DILF RPC+25, RPC+29
$$ROOT^DILFD LOCK+1, UNLOCK+1
$$GET1^DIQ COPY+3, COPY+9
GETS^DIQ COPY+2
$$DOB^DPTLK1 GUIPT+6
$$SSN^DPTLK1 GUIPT+7
TEAMPTS^ORQPTQ1 TEAMPTS+1
TEAMS^ORQPTQ1 TEAMS+1
GETPLIST^SDAMA202 CLINICPT+3

Used in RPC

RPC Name Call Tags
MD UTILITIES RPC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UPPERCASE" DUPS+3
^DIC(42 - [#42] WARDPTS+1, WARDS+2, WARDS+4
^DPT - [#2] GUIPT+4, GUIPT+5
^DPT("CN" WARDPTS+2, WARDPTS+4
^MDD(702 - [#702] DELITEM+2
^MDD(703.1 - [#703.1] GETRSLT+5, GETRSLT+7, GETRSLT+9, GETRSLT+10, GETRSLT+11, GETRSLT+12
^MDS(702 DELITEM+5
^MDS(702.01 - [#702.01] DELITEM+4, GETRSLT+3
^MDS(703.1 DELITEM+6
^SC - [#44] CLINICS+1, CLINICS+2, CLINICS+3, CLINICS+5
^TMP("DIERR" ERROR+6
^TMP("MDCOPY" COPY+1!, COPY+2, COPY+4, COPY+5, COPY+6!
^TMP("MDRPCU" RPC+26
^TMP($J CLINICPT+5

Label References

Name Line Occurrences
$$GUIPT CLINICPT+7, TEAMPTS+4, WARDPTS+6
@( RPC+28
BADRPC RPC+27
ERROR COPY+8

Naked Globals

Name Field # of Occurrence
^( CLINICPT+7, CLINICS+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D0 WARDS+1~, WARDS+2*, WARDS+4
DD LOCK~, LOCK+1, UNLOCK~, UNLOCK+1
DT CLINICS+4
IENS LOCK~, LOCK+1, UNLOCK~, UNLOCK+1
MD CLINICPT+1~, CLINICPT+5*, CLINICPT+7
MDD DUPS~, DUPS+2
MDDT CLINICPT+2*, CLINICPT+3, RPC+23~
MDEND CLINICPT+2*, CLINICPT+3, RPC+23~
MDFDA RPC+23~, RPC+24~
MDFDA( COPY+3*, COPY+5*
MDGBL DUPS+1~, DUPS+2*, DUPS+4, DUPS+5, RPC+23~, UNIQUE+1*, UNIQUE+2, UNIQUE+3
MDIEN DUPS~, DUPS+4, DUPS+5, RPC+23~, RPC+24~
MDIEN(1 COPY+8, COPY+9
>> MDINST( GETRSLT+3*, GETRSLT+9
MDPT RPC+23~
MDRET CLINICPT+1~, CLINICPT+3, CLINICPT+4, RPC+24~, TEAMPTS+1, TEAMS+1
MDRET( TEAMPTS+4, TEAMS+2
MDRET(1 TEAMPTS+2
MDSCRN RPC+24~
MDX DUPS~, DUPS+3*
OPTION BADRPC~, BADRPC+6, RPC~, RPC+27, RPC+28
P1 CLINICPT+3, COPY+2, COPY+3, COPY+4, COPY+5, COPY+9, DELITEM+1, DELITEM+3, GETRSLT+5, RPC~
, TEAMPTS+1, UNIQUE+1, WARDPTS+1*, WARDPTS+2, WARDPTS+3, WARDPTS+4
P2 CLINICPT+2, COPY+2, COPY+3, COPY+4, COPY+5, DELITEM+2, DELITEM+4, DELITEM+5, DELITEM+6, GETRSLT+3
, RPC~
P3 RPC~
P4 RPC~
P5 RPC~
P6 RPC~
RESULTS BADRPC+6, LOCK~, LOCK+2, LOCK+3, UNLOCK~, UNLOCK+2, CLINICPT+4, CLINICPT+7, CLINICPT+8, CLINICPT+9
, CLINICS+5, CLINICS+6, COPY+8, COPY+9, DELITEM+2, DELITEM+4, DELITEM+5, DELITEM+6, DELITEM+7, DELITEM+8
, GETRSLT+13, GETRSLT+14, RPC~, RPC+26*, RPC+28, TEAMPTS+3, TEAMPTS+4, TEAMPTS+5, TEAMS+2, TEAMS+3
, UNIQUE+2, UNIQUE+3, WARDPTS+3, WARDPTS+5, WARDPTS+6, WARDPTS+7, WARDS+3, WARDS+4, WARDS+5
RPC BADRPC~, BADRPC+6
RTN BADRPC~, BADRPC+6
SOURCE ERROR~, ERROR+6, ERROR+7
SOURCE("DIERR" ERROR+6*, ERROR+11, ERROR+13, ERROR+14, ERROR+16, ERROR+17
TARGET ERROR~, ERROR+7, ERROR+8, ERROR+9, ERROR+10, ERROR+12, ERROR+13, ERROR+15, ERROR+17
U BADRPC+6, CLINICS+1, CLINICS+4, CLINICS+5, GETRSLT+7, GETRSLT+9, GETRSLT+11, GETRSLT+12, GUIPT+4, GUIPT+5
, GUIPT+6, GUIPT+7, WARDPTS+1, WARDS+4
X DUPS+3*, CLINICS+1*, CLINICS+2, CLINICS+3, CLINICS+5, COPY+4*, COPY+5, ERROR+5~, ERROR+11*, ERROR+12
, ERROR+13, ERROR+14, ERROR+16, ERROR+17, GETRSLT+3*, GETRSLT+5*, GETRSLT+7, GETRSLT+9, GETRSLT+10, GETRSLT+11
, GETRSLT+12, GUIPT~, GUIPT+4, GUIPT+5, GUIPT+6, GUIPT+7, TEAMPTS+4*, TEAMS+2*, TEAMS+3, WARDPTS+4*
, WARDPTS+6, WARDS+1~, WARDS+2
Y DUPS+3, DUPS+4*, DUPS+5*, CLINICPT+7*, CLINICS+3*, CLINICS+4, ERROR+5~, ERROR+12*, ERROR+13, ERROR+15
, GETRSLT+10*, GETRSLT+11, GETRSLT+12, GUIPT+4*, GUIPT+5*, GUIPT+6*, GUIPT+7*, GUIPT+8, WARDPTS+5*, WARDPTS+6
, WARDS+1~, WARDS+3*, WARDS+4
Z ERROR+16*, ERROR+17, GETRSLT+11*, GETRSLT+12*, GETRSLT+13, RPC+23~

Marked Items

Name Field # of Occurrence
$T( RPC+27
$T(@OPTION RPC+27
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All