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

Package: Virtual Patient Record

Routine: VPRSDAVF


Information

VPRSDAVF ;SLC/MKB -- SDA Vfile utilities ;7/29/22 14:11

Source Information

Source file <VPRSDAVF.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 2 $$EXTERNAL^DILFD  $$GET1^DIQ  
Virtual Patient Record 2 SORT^VPRDJ09  $$ZERO^VPRENC  
PCE Patient Care Encounter 1 (VCPT,VHF,VPOV,VXAM)^PXPXRM  

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

Package Total Caller Graph
VA FileMan 2 ^DDE  ITEM  
Virtual Patient Record 1 VPRSDAQ  

Entry Points

Name Comments DBIA/ICR reference
EXAMS ; -- V Exams (Physical Exams)
HFACTORS ; -- V Health Factors (Health Concerns)
CPT ; -- V CPT (Procedures)
POV ; -- V POV (Diagnosis)
IMMS ; -- V Immunizations
PXRM ; -- Search PXRM index
ICR ; -- V Imm Contraindications/Refusals [query]
HFCVR ; -- V Health Factors, for COVID Vaccination Refusal [query]
CVR ;loop for ITEM
XAM1 ; -- get info for single XAM record [ID Action]
; Expects/updates DIEN = #9000010.13 ien
; Returns VPRVST = #9000010 ien
; VPRVST0 = Visit zero node
; VPRXM array
HF1 ; -- get info for single HF record [ID Action]
; Expects/updates DIEN = #9000010.23 ien
; Returns VPRVST = #9000010 ien
; VPRVST0 = Visit zero node
; VPRHF array
POV1 ; -- get info for single POV record [ID Action]
; Expects/updates DIEN = #9000010.07 ien
; Returns VPRVST = #9000010 ien
; VPRVST0 = Visit zero node
; VPREDP = #230 ien or 0
; VPRPOV array
POVNARR() ; -- build Original Text for POV
CPT1 ; -- get info for single V CPT record [ID Action]
; Expects/updates DIEN = #9000010.18 ien
; Returns VPRVST = #9000010 ien
; VPRVST0 = Visit zero node
; VPRCPT array
VCPT(DA) ; -- ok to include V-CPT record in SDA?
DUP(VST,CPT,SUB) ; -- find V CPT match in VSUB file (IMM or SK)

External References

Name Field # of Occurrence
$$EXTERNAL^DILFD POVNARR+4
$$GET1^DIQ POVNARR+3, VCPT+5
VCPT^PXPXRM CPT1+5
VHF^PXPXRM HF1+5
VPOV^PXPXRM POV1+6
VXAM^PXPXRM XAM1+5
SORT^VPRDJ09 PXRM+3
$$ZERO^VPRENC XAM1+5, HF1+5, POV1+6, CPT1+5, VCPT+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNVPOV - [#9000010.07] EXTERNAL^DILFD
^AUPNVCPT - [#9000010.18] GET1^DIQ
^AUTNPOV - [#9999999.27] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] XAM1+6, HF1+6, POV1+7, CPT1+6
^AUTTHF("B" HFCVR+2, HFCVR+4
^DIC(9.4 - [#9.4] VCPT+6
^EDP(230 - [#230] POV1+8
^PXRMINDX(9000010.23 CVR+1, CVR+2
^TMP("VPRPX" PXRM+4, PXRM+5, PXRM+8!

Label References

Name Line Occurrences
$$DUP VCPT+9
$$VCPT PXRM+6
CVR HFCVR+2, HFCVR+4
PXRM EXAMS+1, HFACTORS+1, CPT+1, POV+1, IMMS+1

Naked Globals

Name Field # of Occurrence
^( HFCVR+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CODE VCPT+1~, VCPT+3*, VCPT+9
CPT DUP~, DUP+2, DUP+6
DA ICR+1~, ICR+6*, ICR+9*, HFCVR+1~, CVR+2*, VCPT~, VCPT+1*, VCPT+3, VCPT+5
DATE ICR+1~, ICR+5*, ICR+6, HFCVR+1~, CVR+1*, CVR+2
>> DFN ICR+3, CVR+1, CVR+2
>> DIEN XAM1+5, XAM1+7*, HF1+5, HF1+7*, POV1+6, POV1+9*, CPT1+5, CPT1+7*
>> DLIST( PXRM+7*, ICR+9*, CVR+2*
>> DMAX PXRM+4, PXRM+5, ICR+8, CVR+1, CVR+2
>> DSTOP PXRM+2, ICR+5, CVR+1
>> DSTRT PXRM+2, ICR+5, CVR+1
FNUM EXAMS+1~*, HFACTORS+1~*, CPT+1~*, POV+1~*, IMMS+1~*, PXRM+6
GBL DUP+1~, DUP+3*, DUP+5, DUP+6
ID PXRM+1~, PXRM+5*, PXRM+6, PXRM+7
IDT ICR+1~, ICR+6*, ICR+8*, ICR+9
IEN DUP+1~, DUP+4*, DUP+5, DUP+6
INDX ICR+1~, ICR+3*, ICR+4*, ICR+5, ICR+6
ITEM HFCVR+1~, HFCVR+2*, HFCVR+4*, CVR+1, CVR+2
ITM DUP+1~, DUP+5*, DUP+6
MOD POVNARR+1~, POVNARR+2*, POVNARR+4
NAME HFCVR+1~, HFCVR+3*, HFCVR+4*
NARR POVNARR+1~, POVNARR+2*, POVNARR+3
PKG VCPT+1~, VCPT+5*, VCPT+6
ROOT ICR+1~, ICR+3*, ICR+4
SUB DUP~, DUP+2, DUP+3
SYS DUP+1~, DUP+5*, DUP+6
TMP ICR+1~
TMP( ICR+6*, ICR+8, ICR+9
U VCPT+3, VCPT+6, VCPT+8
VFL DUP+1~, DUP+3*, DUP+4, DUP+5
VPRCPT CPT1+5!, CPT1+7*
VPRCPT("VISIT" CPT1+6
>> VPREDP POV1+8*
VPRHF HF1+5!, HF1+7*
VPRHF("VISIT" HF1+6
VPRIDT PXRM+1~, PXRM+4*, PXRM+5
VPRN PXRM+1~, PXRM+2*, PXRM+4, PXRM+5, PXRM+7*, ICR+1~*, ICR+8, ICR+9*, HFCVR+1~*, CVR+1
, CVR+2*
VPRPOV POV1+6!, POV1+9*
VPRPOV("MODIFIER" POVNARR+2
VPRPOV("PROVI DER NARRATIVE" , POVNARR+2
VPRPOV("VISIT" POV1+7
VPRSTART PXRM+1~, PXRM+2*
VPRSTOP PXRM+1~, PXRM+2*
>> VPRVST XAM1+6*, HF1+6*, POV1+7*, POV1+8, CPT1+6*
>> VPRVST0 XAM1+6*, HF1+6*, POV1+7*, CPT1+6*
VPRXM XAM1+5!, XAM1+7*
VPRXM("VISIT" XAM1+6
VST VCPT+1~, VCPT+8*, VCPT+9, DUP~, DUP+2, DUP+4
X HFCVR+1~
X0 VCPT+1~, VCPT+3*, VCPT+8
Y POVNARR+1~*, POVNARR+3*, POVNARR+4*, POVNARR+5, DUP+1~, DUP+3*, DUP+4, DUP+6*, DUP+7
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