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

Package: Clinical Procedures

Routine: MDRPCOR


Information

MDRPCOR ; HOIFO/DP - Object RPCs (TMDRecordId) ; [01-10-2003 09:14]

Source Information

Source file <MDRPCOR.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
VA FileMan 7 (,DD)^%DT  (FIND,LIST)^DIC  ($$GET1,FILE)^DID  (FILE,HELP,UPDATE,VAL)^DIE  CLEAN^DILF  ($$EXTERNAL,$$ROOT,$$VFILE)^DILFD  $$GET1^DIQ  
Clinical Procedures 2 COL^MDDEVCL  ($$DUPS,BADRPC,ERROR,LOCK,UNLOCK)^MDRPCU  
Kernel 1 $$UP^XLFSTR  
Registration 1 ($$DOB,$$SSN)^DPTLK1  
Text Integration Utility 1 LNGCP^TIUCP  
Toolkit 1 $$GET^XPAR  

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

Package Total Caller Graph
Clinical Procedures 1 MD TMDRECORDID  

Entry Points

Name Comments DBIA/ICR reference
CHANGES ; [Procedure] Returns number of changes to save
CHKVER ; [Procedure]
CLEARFDA ; [Procedure] Discards changes in the FDA
DELREC ; [Procedure] Delete a fileman record
DT ; [Procedure] Convert date/time via %DT
EXISTS ; [Procedure] Verify that a record exists
FILENAME ; [Procedure] Return a filename
GETCODES ; [Procedure] Returns set of codes
GETDATA ; [Procedure] Returns data for a field
GETHELP ; [Procedure] Returns fileman help
GETIDS ; [Procedure] Returns list of required ID's
GETLABEL ; [Procedure] Get field label/title
GETLST ; [Procedure] Get list of records
LOCK ; [Procedure] Lock a record
LOOKUP ; [Procedure] Lookup on a DD
NEWIEN ; [Procedure] Return next available IEN
NEWREC ; [Procedure] Create a new record
PTLKUP ; [Procedure] Patient lookup handled separately for security
PTRLKUP ; [Procedure] Lookup a pointer field
RENAME ; [Procedure] Rename a record
RPC(RESULTS,OPTION,DD,IENS,FLD,DATA) ; [Procedure] RPC call tag
SAVEFDA ; [Procedure] Save changes to the VistA database
SETFDA ; [Procedure] Validate data and store in FDA
UNLOCK ; [Procedure] Unlock a record
VALIDATE ; [Procedure] Validate data for a field

External References

Name Field # of Occurrence
^%DT DT+3
DD^%DT DT+5
FIND^DIC LOOKUP+2, PTLKUP+1, PTRLKUP+10
LIST^DIC GETLST+3
$$GET1^DID FILENAME+1, GETCODES+1, GETCODES+4, GETCODES+9, GETDATA+1, GETDATA+5, GETIDS+5, GETLABEL+1, GETLABEL+2, GETLST+8
PTRLKUP+1, VALIDATE+6
FILE^DID GETIDS+1
FILE^DIE DELREC+3, RENAME+6, SAVEFDA+16
HELP^DIE GETHELP+1, GETHELP+2
UPDATE^DIE NEWREC+8, SAVEFDA+11
VAL^DIE DELREC+1, NEWREC+2, NEWREC+6, RENAME+4, SETFDA+1, VALIDATE+16
CLEAN^DILF RPC+5
$$EXTERNAL^DILFD GETDATA+9
$$ROOT^DILFD EXISTS+1, NEWIEN+1
$$VFILE^DILFD FILENAME+1
$$GET1^DIQ GETDATA+3, GETDATA+6, GETDATA+10, PTLKUP+7, PTLKUP+8
$$DOB^DPTLK1 PTLKUP+9
$$SSN^DPTLK1 PTLKUP+10
COL^MDDEVCL SAVEFDA+23
$$DUPS^MDRPCU RENAME+2, VALIDATE+3
BADRPC^MDRPCU RPC+4
ERROR^MDRPCU DELREC+2, DELREC+4, GETCODES+2, NEWREC+3, NEWREC+7, RENAME+5, SAVEFDA+13, SAVEFDA+18, SETFDA+2, VALIDATE+17
LOCK^MDRPCU LOCK+1
UNLOCK^MDRPCU UNLOCK+1
LNGCP^TIUCP PTRLKUP+4
$$UP^XLFSTR PTRLKUP+3
$$GET^XPAR SAVEFDA+23

Used in RPC

RPC Name Call Tags
MD TMDRECORDID RPC

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] FIND^DIC,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("DIHELP" GETHELP+2, GETHELP+3, GETHELP+6
^TMP("DILIST" GETLST+4, GETLST+5, GETLST+7, GETLST+8, LOOKUP+3, LOOKUP+4, PTLKUP+2, PTLKUP+4, PTLKUP+5, PTLKUP+6
PTRLKUP+11, PTRLKUP+12
^TMP("MDFDA" CHANGES+2, CHANGES+4, CHANGES+6, CLEARFDA+1, CLEARFDA+6!, GETDATA+2, GETDATA+7, RENAME+8!, SAVEFDA+2, SAVEFDA+7
SAVEFDA+8!, SAVEFDA+14*, SAVEFDA+19*, SETFDA+1, VALIDATE+7, VALIDATE+16
^TMP("MDSAVE" SAVEFDA+1!, SAVEFDA+7*, SAVEFDA+9, SAVEFDA+11, SAVEFDA+14, SAVEFDA+16, SAVEFDA+19, SAVEFDA+20!, VALIDATE+14
^TMP($J DELREC+2, DELREC+4, GETCODES+2, GETDATA+2*, GETDATA+3, GETHELP+6*, LOOKUP+5, NEWREC+3, NEWREC+7, PTLKUP+11
RENAME+5, RPC+2, SAVEFDA+13, SAVEFDA+18, SETFDA+2, VALIDATE+17

Label References

Name Line Occurrences
@( RPC+3
RPC DELREC+5, LOOKUP+1

Naked Globals

Name Field # of Occurrence
^( GETDATA+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT DT+2*
DATA CHKVER+1, DT+1*, DT+2, GETDATA+8, GETDATA+10, GETLABEL+1, GETLABEL+2, GETLST+3, LOOKUP+1, LOOKUP+2
LOOKUP+5, NEWREC+1, NEWREC+2, PTLKUP+1, PTLKUP+3, PTLKUP+11, PTRLKUP+3*, PTRLKUP+4, PTRLKUP+6, PTRLKUP+7
PTRLKUP+10, RENAME+1, RENAME+2, RENAME+4, RPC~, SETFDA+1, VALIDATE+1, VALIDATE+3, VALIDATE+5*, VALIDATE+16
DATA( VALIDATE+11, VALIDATE+13
DATA("" VALIDATE+9, VALIDATE+10
DATA(1 VALIDATE+10
DD CHANGES+3, CLEARFDA+5, DELREC+1, DELREC+5, EXISTS+1, FILENAME+1, GETCODES+1, GETCODES+4, GETCODES+9, GETDATA+1
GETDATA+2, GETDATA+3, GETDATA+5, GETDATA+6, GETDATA+7, GETDATA+9, GETDATA+10, GETHELP+1, GETHELP+2, GETIDS+1
GETIDS+5, GETLABEL+1, GETLABEL+2, GETLST+3, GETLST+5, GETLST+8, LOCK+1, LOOKUP+1, LOOKUP+2, LOOKUP+4
NEWIEN+1, NEWREC+2, NEWREC+6, PTRLKUP+1, RENAME+2, RENAME+4, RENAME+8, RPC~, SAVEFDA+6, SAVEFDA+21
SAVEFDA+23, SETFDA+1, UNLOCK+1, VALIDATE+3, VALIDATE+6, VALIDATE+7, VALIDATE+14, VALIDATE+16
FLD CHANGES+6*, GETCODES+1, GETCODES+4, GETCODES+9, GETDATA+1, GETDATA+2, GETDATA+3, GETDATA+5, GETDATA+6, GETDATA+7
GETDATA+9, GETDATA+10, GETHELP+1, GETHELP+2, GETLABEL+1, GETLABEL+2, GETLST+1*, GETLST+2*, GETLST+3, PTRLKUP+1
, RPC~, SETFDA+1, VALIDATE+1, VALIDATE+3, VALIDATE+6, VALIDATE+7, VALIDATE+14, VALIDATE+16
IENS CHANGES+5, CLEARFDA+4, DELREC+1, DELREC+5, EXISTS+1, EXISTS+2, GETDATA+2, GETDATA+3, GETDATA+6, GETDATA+7
GETDATA+10, GETHELP+1, GETHELP+2, GETLST+1*, GETLST+3, LOCK+1, LOOKUP+2, NEWIEN+1, NEWREC+2, NEWREC+6
RENAME+2, RENAME+4, RENAME+8, RPC~, SAVEFDA+5, SAVEFDA+10, SAVEFDA+15, SETFDA+1, UNLOCK+1, VALIDATE+3
VALIDATE+7, VALIDATE+14, VALIDATE+16
MDCHNG CHANGES+1*, CHANGES+7*, CHANGES+8, RPC+1~
MDDD CHANGES+1*, CHANGES+2*, CHANGES+3, CHANGES+4, CHANGES+6, CLEARFDA+3*, CLEARFDA+5, CLEARFDA+6, RPC+1~, SAVEFDA+4*
SAVEFDA+6, SAVEFDA+7, SAVEFDA+8
MDDEL RPC+1~
MDERR DELREC+2, DELREC+4, GETCODES+2, NEWREC+3, NEWREC+7, RENAME+5, RPC+1~, SAVEFDA+12, SAVEFDA+13, SAVEFDA+17
SAVEFDA+18, SETFDA+2, VALIDATE+17
MDFDA CLEARFDA+1*, CLEARFDA+2*, CLEARFDA+3, RPC+1~, SAVEFDA+2*, SAVEFDA+3*, SAVEFDA+4
MDGBL RPC+1~, VALIDATE+7*, VALIDATE+8, VALIDATE+9, VALIDATE+10, VALIDATE+12, VALIDATE+13, VALIDATE+14
MDIEN RPC+1~
MDIEN(1 NEWREC+9, SAVEFDA+12
MDIENS CHANGES+1*, CHANGES+4*, CHANGES+5, CHANGES+6, CLEARFDA+3*, CLEARFDA+4, CLEARFDA+6, PTLKUP+6*, PTLKUP+7, PTLKUP+8
PTLKUP+9, PTLKUP+10, RPC+1~, SAVEFDA+4*, SAVEFDA+5, SAVEFDA+7, SAVEFDA+8
MDLBL GETLABEL+1*, GETLABEL+2*, GETLABEL+3, RPC+1~
MDNEW NEWREC+8, RPC+1~
MDPTR GETCODES+9*, GETCODES+10, GETCODES+12, RPC+1~
MDRENAME RPC+1~
MDRET DELREC+1, DELREC+2, NEWREC+1, NEWREC+2, NEWREC+3, NEWREC+5, NEWREC+6, NEWREC+7, PTRLKUP+4, RENAME+4
RENAME+5, RPC+1~, SETFDA+1, SETFDA+2, VALIDATE+16, VALIDATE+17
MDRET( PTRLKUP+7, PTRLKUP+8
MDRET("ENTRIES" GETIDS+6
MDRET("NAME" GETIDS+6
MDRET("REQUIR ED IDENTIFIERS" , GETIDS+2
MDRET(0 PTRLKUP+5, RENAME+7, VALIDATE+18
MDRET(44 PTRLKUP+6
MDSET GETCODES+4*, GETCODES+5, GETCODES+6, RPC+1~
>> MDTMP NEWREC+4*, NEWREC+5*, NEWREC+6
MDTYPE GETCODES+1*, GETCODES+3, GETCODES+8, RPC+1~
MDUTL RPC+1~
>> MDX PTLKUP+4*, PTLKUP+5, PTLKUP+6, PTLKUP+7, PTLKUP+8, PTLKUP+9, PTLKUP+10
OPTION RPC~, RPC+3, RPC+4
PTRDD PTRLKUP+1*, PTRLKUP+2, PTRLKUP+10, PTRLKUP+12, RPC+1~
PTRSCRN PTRLKUP+10, RPC+1~
RESULTS CHANGES+8, CHKVER+1, CLEARFDA+7, DELREC+6, DT+4, DT+5*, EXISTS+2, FILENAME+1, FILENAME+2, GETCODES+6
GETCODES+7, GETCODES+11, GETCODES+12, GETCODES+13, GETDATA+4, GETDATA+6, GETDATA+8, GETDATA+9, GETDATA+10, GETHELP+4
GETHELP+5, GETHELP+7, GETIDS+4, GETIDS+5, GETIDS+6, GETLABEL+3, GETLST+5, GETLST+6, GETLST+8, LOCK+1
LOOKUP+1, LOOKUP+4, LOOKUP+5, LOOKUP+6, NEWIEN+1, NEWREC+9, PTLKUP+3, PTLKUP+5, PTLKUP+7*, PTLKUP+8*
PTLKUP+9*, PTLKUP+10*, PTLKUP+11, PTLKUP+12, PTRLKUP+5, PTRLKUP+6, PTRLKUP+8, PTRLKUP+9, PTRLKUP+12, PTRLKUP+13
RENAME+1, RENAME+3, RENAME+7, RPC~, RPC+2*, RPC+4, SAVEFDA+9, SAVEFDA+12, SAVEFDA+17, SAVEFDA+22
SETFDA+3, UNLOCK+1, VALIDATE+2, VALIDATE+4, VALIDATE+9, VALIDATE+10, VALIDATE+18
RESULTS(0 VALIDATE+15*
U DT+2, DT+4, DT+5, GETCODES+10, GETCODES+12, GETIDS+5, GETIDS+6, GETLST+7, GETLST+8, LOOKUP+4
NEWREC+2, NEWREC+6, PTLKUP+2, PTLKUP+5, PTLKUP+7, PTLKUP+8, PTLKUP+9, PTLKUP+10, PTRLKUP+6, PTRLKUP+7
>> X DELREC+5, DT+2*, DT+4, EXISTS+1*, EXISTS+2, GETCODES+5*, GETCODES+6, GETCODES+10*, GETCODES+12, GETDATA+3*
GETIDS+2*, GETIDS+3*, GETIDS+5, GETLST+4*, GETLST+5, GETLST+7*, GETLST+8, LOOKUP+3*, LOOKUP+4, PTRLKUP+7*
PTRLKUP+8, PTRLKUP+11*, PTRLKUP+12, VALIDATE+11*, VALIDATE+13
>> Y DT+4, DT+5, GETCODES+11*, GETCODES+12, GETDATA+7*, GETDATA+8, GETDATA+9, GETIDS+4*, GETIDS+5, VALIDATE+12*
VALIDATE+13

Marked Items

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