Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: VPRDSR

Package: Virtual Patient Record

Routine: VPRDSR


Information

VPRDSR ;SLC/MKB -- Surgical Procedures ;8/2/11 15:29

Source Information

Source file <VPRDSR.m>

Entry Points

Name Comments DBIA/ICR reference
EN(DFN,BEG,END,MAX,ID) ; -- find patient's surgeries
ENQ ; end
ONE(NUM,SURG) ; -- return a surgery in SURG("attribute")=value
; Expects DFN, @VPRY@(NUM) from LIST^SROESTV
EN1(IEN,SURG) ; -- return a surgery in SURG("attribute")=value
CPT(IEN) ; -- return code^description for CPT code, or "^" if error
XML(SURG) ; -- Return surgery as XML
LOOP() ; -- build sub-items string from NAMES and X
ADD(X) ; -- Add a line @VPR@(n)=X

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRF - [#130] GET1^DIQ
^SRO(136 - [#136] GET1^DIQ,  GETS^DIQ
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call