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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: ECV5RPC

Package: Event Capture

Routine: ECV5RPC


Information

ECV5RPC ;ALB/ACS - Event Capture Spreadsheet Data Validation ;12/2/22 16:11

Source Information

Source file <ECV5RPC.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
DRG Grouper 1 ($$ICDDX,$$SINFO)^ICDEX  
Event Capture 1 (,CLIN1,CLIN2,CLIN3,CLIN4,CLIN5,CLIN6,CLINERR,DIAG1)^ECV5RPC  
VA FileMan 1 ^%DT  

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
Event Capture 2 ECV4RPC  ECV5RPC  

Entry Points

Name Comments DBIA/ICR reference
VALDIAG ;Validate Diagnosis Code. Make sure it exists on the ICD file
FINDDX(PARAM) ;
; Updates for ICD10
VALCLIN ;Validate Associated Clinic. Make sure the clinic is active for
CLINERR ;Clinic inactive for this encounter date
ERROR ;--Set up array entry to contain the following:
DIAG1 ;;Diagnosis code is required for this DSS Unit
ECDXV ;;Invalid Diagnosis Code
ECSEC1V ;;Secondary Dx 1 is invalid
ECSEC2V ;;Secondary Dx 2 is invalid
ECSEC3V ;;Secondary Dx 3 is invalid
ECSEC4V ;;Secondary Dx 4 is invalid
CLIN1 ;;Associated Clinic Name or IEN is required for this DSS Unit
CLIN2 ;;Assoc Clinic "B" x-ref not found on Hosp Location File(#44)
CLIN3 ;;Assoc Clinic not found on Hosp Location File(#44)
CLIN4 ;;Assoc Clinic must be of type "C" (clinic)
CLIN5 ;;Assoc Clinic inactive for this encounter date
CLIN6 ;;Assoc Clinic IEN must be numeric

External References

Name Field # of Occurrence
^%DT VALDIAG+2
^ECV5RPC FINDDX+13
CLIN1^ECV5RPC VALCLIN+5
CLIN2^ECV5RPC VALCLIN+22
CLIN3^ECV5RPC VALCLIN+15, VALCLIN+31
CLIN4^ECV5RPC VALCLIN+42
CLIN5^ECV5RPC CLINERR+1
CLIN6^ECV5RPC VALCLIN+10
CLINERR^ECV5RPC VALCLIN+54, VALCLIN+55
DIAG1^ECV5RPC VALDIAG+4
$$ICDDX^ICDEX FINDDX+4
$$SINFO^ICDEX VALDIAG+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SC - [#44] VALCLIN+14, VALCLIN+29, VALCLIN+40, VALCLIN+49, VALCLIN+52
^SC("B" VALCLIN+20, VALCLIN+26, VALCLIN+28

Label References

Name Line Occurrences
ERROR VALDIAG+6, FINDDX+15, VALCLIN+7, VALCLIN+12, VALCLIN+17, VALCLIN+24, VALCLIN+33, VALCLIN+44, CLINERR+3
FINDDX VALDIAG+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT VALDIAG+2*
CLINDATA VALCLIN+39~, VALCLIN+40*, VALCLIN+41
DXIEN VALDIAG+1~, FINDDX+3*, FINDDX+5*, FINDDX+6, FINDDX+7, FINDDX+8, FINDDX+9, FINDDX+10, FINDDX+11
DXPARAM VALDIAG+1~, VALDIAG+11*, FINDDX+2, FINDDX+4
>> ECCLNIEN VALCLIN+19*, VALCLIN+28*, VALCLIN+29, VALCLIN+40, VALCLIN+49, VALCLIN+52
>> ECCLNIPC VALCLIN+11, VALCLIN+16
>> ECCLNIV VALCLIN+3, VALCLIN+9, VALCLIN+14, VALCLIN+19, VALCLIN+20, VALCLIN+26
>> ECCLNNPC VALCLIN+6, VALCLIN+23, VALCLIN+32, VALCLIN+43, CLINERR+2
>> ECCLNNV VALCLIN+3, VALCLIN+20, VALCLIN+26, VALCLIN+28
>> ECCOLERR VALDIAG+5*, FINDDX+14*, VALCLIN+6*, VALCLIN+11*, VALCLIN+16*, VALCLIN+23*, VALCLIN+32*, VALCLIN+43*, CLINERR+2*, ERROR+7
ECCS VALDIAG+1~, VALDIAG+10*, FINDDX+4
ECDT VALDIAG+1~, VALDIAG+2*, VALDIAG+10, FINDDX+4
>> ECDXIEN FINDDX+7*
>> ECDXPC VALDIAG+5, FINDDX+14
>> ECDXV VALDIAG+3
>> ECENCV VALDIAG+2, VALCLIN+54, VALCLIN+55
>> ECERRFLG VALCLIN+2*, VALCLIN+9, VALCLIN+14, VALCLIN+19, VALCLIN+20, VALCLIN+26, VALCLIN+37, VALCLIN+49, ERROR+8*
>> ECERRMSG VALDIAG+4*, FINDDX+13*, VALCLIN+5*, VALCLIN+10*, VALCLIN+15*, VALCLIN+22*, VALCLIN+31*, VALCLIN+42*, CLINERR+1*, ERROR+7
>> ECINDEX ERROR+6*, ERROR+7
>> ECRECPC ERROR+7
>> ECRECV ERROR+7
>> ECSECDX1 FINDDX+8*
>> ECSECDX2 FINDDX+9*
>> ECSECDX3 FINDDX+10*
>> ECSECDX4 FINDDX+11*
INACT VALCLIN+51~, VALCLIN+52*, VALCLIN+53, VALCLIN+54, VALCLIN+55
>> MYDXIEN FINDDX+3*, FINDDX+4*, FINDDX+5
PARAM FINDDX~, FINDDX+7, FINDDX+8, FINDDX+9, FINDDX+10, FINDDX+11
REACT VALCLIN+51~, VALCLIN+52*, VALCLIN+54, VALCLIN+55
>> RESULTS( ERROR+7*
U VALCLIN+41, VALCLIN+52
>> X VALDIAG+2*
>> Y VALDIAG+2

Marked Items

Name Field # of Occurrence
$T(@DXPARAM^ECV5RPC FINDDX+13
$T(CLIN1^ECV5RPC VALCLIN+5
$T(CLIN2^ECV5RPC VALCLIN+22
$T(CLIN3^ECV5RPC VALCLIN+15, VALCLIN+31
$T(CLIN4^ECV5RPC VALCLIN+42
$T(CLIN5^ECV5RPC CLINERR+1
$T(CLIN6^ECV5RPC VALCLIN+10
$T(DIAG1^ECV5RPC VALDIAG+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All