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 |  Local Variables  | All
Print Page as PDF
Routine: ECXUTL6

Package: DSS Extracts

Routine: ECXUTL6


Information

ECXUTL6 ;ALB/JRC - Utilities for DSS Extracts ;4/8/19 11:11

Source Information

Source file <ECXUTL6.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 2 ^DIC  $$GET1^DIQ  
DRG Grouper 1 $$CODEC^ICDEX  
DSS Extracts 1 $$ECXYM^ECXUTL  
Kernel 1 $$FMADD^XLFDT  
Lexicon Utility 1 $$CHKCODE^LEXLR  
Registration 1 IN5^VADPT  

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

Package Total Caller Graph
DSS Extracts 6 ECXADM  ECXALAR2  ECXLARPT  ECXMOV  ECXNUT1  ECXSURG  
Lab Service 1 LRCAPDAR  

Entry Points

Name Comments DBIA/ICR reference
NUTKEY(P,D) ;Generate n&fs feeder key
NUTLOC(P,D,FPD,FDD,FPF,DLT,DFL) ;Define nutrition fields
GETDIV ;Get divisions and food production facility
SUR(CRST,STCD,CLINIC) ;Surgery stop codes and clinic (outpatients only)
SURPODX(PRODX,PODX1,PODX2,PODX3,PODX4,PODX5) ;Get postop diagnosis codes
LOINC(ARRAY) ;Get DSS lab test information out of DSS LOINC CODE (#727.29) file
EXT
INPUTT ;
ISASIH(MVMT,TYPE) ;170 Section added to determine if patient is ASIH other facility at movement date/time
NEEDADR(TYPE,MVMT,EXTRACT) ;170 Section added to determine if an admission or discharge record for the ASIH other facility episode of care is needed
NEXTMO(DATE) ;173 Given a date, determine the following month and return in year_month format (ex. 201811 for 11/2018)

External References

Name Field # of Occurrence
^DIC INPUTT+2
$$GET1^DIQ NUTKEY+14, NUTLOC+28, NUTLOC+29, NUTLOC+41, NUTLOC+52, NUTLOC+61, NUTLOC+70, NUTLOC+81, NUTLOC+90, NUTLOC+91
, NUTLOC+109, NUTLOC+111, NUTLOC+115, NUTLOC+116, NUTLOC+119, NUTLOC+122, NUTLOC+126, GETDIV+5, GETDIV+10, GETDIV+11
GETDIV+15, GETDIV+16, GETDIV+17, SUR+3, SUR+5, SUR+6, EXT+9, EXT+10, EXT+22, EXT+23
$$ECXYM^ECXUTL NEEDADR+12, NEXTMO+8
$$CODEC^ICDEX SURPODX+7, SURPODX+10
$$CHKCODE^LEXLR EXT+12
IN5^VADPT NUTLOC+24, ISASIH+6, NEEDADR+6
$$FMADD^XLFDT ISASIH+4, NEXTMO+5, NEXTMO+6, NEXTMO+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FH(119.6 - [#119.6] GET1^DIQ
^FH(119.72 - [#119.72] GET1^DIQ
^SRO(137.45 - [#137.45] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
^DIC(40.7 - [#40.7] Classic Fileman Calls,  GET1^DIQ
^DIC(42 - [#42] GET1^DIQ
^SC - [#44] GET1^DIQ
^LAB(60 - [#60] GET1^DIQ
^LAB(61 - [#61] GET1^DIQ
^LAM - [#64] GET1^DIQ
728.451 GET1^DIQ
^ECX(728.46 - [#728.46] GET1^DIQ
^LAB(95.3 - [#95.3] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" EXT+8, EXT+11
^DGPM - [#405] ISASIH+4, ISASIH+5, NEEDADR+5
^ECX(727.29 - [#727.29] LOINC+32, EXTEXT+1, EXT+2, EXT+3
^ECX(728.44 - [#728.44] SUR+5, SUR+6
^ECX(728.45 - [#728.45] NUTKEY+10, NUTKEY+12
^ECX(728.46 - [#728.46] NUTLOC+118, GETDIV+9, GETDIV+14
^FH(119.6 - [#119.6] NUTLOC+26, NUTLOC+124
^FHPT - [#115] NUTLOC+22
^LAB(60 - [#60] EXT+22
^LAM - [#64] EXT+19, EXT+20
^LAM("AI" EXT+16, EXT+17
^SRO(136 - [#136] SURPODX+9, SURPODX+10
^TMP($J NUTLOC+40, NUTLOC+51, NUTLOC+69, LOINC+28!, EXT*, EXT+2*, EXT+4*, EXT+15*, EXT+23*
^UTILITY("VAIP" NUTLOC+21!, NUTLOC+25
^XTMP("ECXMOV" NEEDADR+9*, NEEDADR+12*

Label References

Name Line Occurrences
$$NEXTMO NEEDADR+2
EXT LOINC+32, LOINC+34
GETDIV NUTLOC+31, NUTLOC+43, NUTLOC+54, NUTLOC+62, NUTLOC+72, NUTLOC+83, NUTLOC+93

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARRAY LOINC~, LOINC+27
ARRAY( LOINC+34
ARRAY("ALL" LOINC+31
ASIH ISASIH+1~, ISASIH+2*, ISASIH+7*, ISASIH+8
CLINIC SUR~, SUR+3*, SUR+5, SUR+6
CODE NUTKEY+8~, NUTKEY+9*, NUTKEY+11*, NUTKEY+12, SURPODX+2~, SURPODX+3*, SURPODX+9*, SURPODX+10
CRST SUR~, SUR+6*
CRSVP NUTLOC+10~, NUTLOC+11*, NUTLOC+29*, NUTLOC+116, GETDIV+4
D NUTKEY~, NUTKEY+6, NUTKEY+11, NUTLOC~, NUTLOC+14, NUTLOC+39, NUTLOC+50, NUTLOC+60, NUTLOC+68, NUTLOC+79
, NUTLOC+89, NUTLOC+106, NUTLOC+108, NUTLOC+110, NUTLOC+125
>> DATAOP SURPODX+5, SURPODX+7
DATE NUTLOC+40, NUTLOC+51, NUTLOC+69, NEXTMO~, NEXTMO+3, NEXTMO+4
DFL NUTLOC~, NUTLOC+11*, NUTLOC+115*, NUTLOC+122*, NUTLOC+124*, NUTLOC+126*
DFN NUTLOC+22*, ISASIH+1~, ISASIH+5*, NEEDADR+1~, NEEDADR+5*
DIC INPUTT+1~*, INPUTT+3!
DIC("S" INPUTT+1*
DIC(0 INPUTT+1*
DIET NUTKEY+8~, NUTKEY+9*, NUTKEY+12*, NUTKEY+13
DLT NUTLOC~, NUTLOC+11*, NUTLOC+107*, NUTLOC+109*, NUTLOC+111*, NUTLOC+114, NUTLOC+120, NUTLOC+125
DTSTR NEXTMO+1~, NEXTMO+4*, NEXTMO+5*, NEXTMO+6*, NEXTMO+7*, NEXTMO+8
EC0 SUR+3, LOINC+29~, EXT+3*, EXT+4
>> ECD0 SURPODX+9, SURPODX+10
>> ECED NEEDADR+2, NEEDADR+11, NEEDADR+12
>> ECNO SUR+3, SUR+5
>> ECSD NEEDADR+10
>> ECXA SUR+2
EXTRACT NEEDADR~, NEEDADR+7, NEEDADR+8, NEEDADR+14
FDD NUTLOC~, GETDIV+3*, GETDIV+9*, GETDIV+10*, GETDIV+11*
>> FHDFN NUTLOC+14, NUTLOC+22, NUTLOC+40, NUTLOC+51, NUTLOC+69
FPD NUTLOC~, GETDIV+3*, GETDIV+15*, GETDIV+16*
FPF NUTLOC~, NUTLOC+91*, NUTLOC+118*, NUTLOC+119*, GETDIV+3*, GETDIV+14*, GETDIV+15, GETDIV+17*
I SURPODX+2~, SURPODX+9*, SURPODX+10*
IEN NUTLOC+116*, NUTLOC+117*, NUTLOC+118, GETDIV+2~, GETDIV+5*, GETDIV+6, GETDIV+13*, GETDIV+14
IENS NUTKEY+8~, NUTKEY+9*, NUTKEY+13*, NUTKEY+14
LIEN LOINC+29~, EXT+1*, EXT+2, EXT+3
LLNC LOINC+29~
LLNCP LOINC+29~
LOINCCK LOINC+29~, LOINC+30*, LOINC+32*, LOINC+34*, EXTEXT+1, EXT+2, EXT+4, EXT+9, EXT+10
EXT+12, EXT+15, EXT+23
LOINCPTR LOINC+29~, EXT+5*, EXT+10*, EXT+12*, EXT+14, EXT+15, EXT+16, EXT+17
LRASSV LOINC+29~
LTEST LOINC+29~, EXT+21*, EXT+22, EXT+23
MASWARD NUTLOC+10~, NUTLOC+11*, NUTLOC+25*, NUTLOC+26, NUTLOC+122
MVMT ISASIH~, ISASIH+3, ISASIH+4, ISASIH+5, NEEDADR~, NEEDADR+4, NEEDADR+5, NEEDADR+9, NEEDADR+12, NEEDADR+14
NEXT NEXTMO+1~, NEXTMO+2*, NEXTMO+3, NEXTMO+8*, NEXTMO+9
NEXTMO NEEDADR+1~, NEEDADR+2*, NEEDADR+9, NEEDADR+12
>> NODE NUTLOC+61, NUTLOC+80, NUTLOC+90, NUTLOC+107, NUTLOC+109, NUTLOC+111
>> NUMBER NUTLOC+40, NUTLOC+51, NUTLOC+69
OPLOC NUTLOC+10~, NUTLOC+12*, NUTLOC+40*, NUTLOC+41, NUTLOC+51*, NUTLOC+52, NUTLOC+61*, NUTLOC+69*, NUTLOC+70, NUTLOC+80*
, NUTLOC+81, NUTLOC+90*, NUTLOC+124
P NUTKEY~, NUTKEY+6, NUTKEY+10, NUTKEY+11, NUTLOC~, NUTLOC+14, NUTLOC+19, NUTLOC+39, NUTLOC+50, NUTLOC+60
, NUTLOC+68, NUTLOC+79, NUTLOC+89, NUTLOC+106, NUTLOC+108, NUTLOC+110, NUTLOC+121, NUTLOC+123
PODX SURPODX+2~, SURPODX+10*
PODX1 SURPODX~, SURPODX+3*
PODX2 SURPODX~, SURPODX+3*
PODX3 SURPODX~, SURPODX+3*
PODX4 SURPODX~, SURPODX+3*
PODX5 SURPODX~, SURPODX+3*
PRO NUTKEY+8~, NUTKEY+9*, NUTKEY+10*, NUTKEY+12, NUTKEY+13
PRODX SURPODX~, SURPODX+3*, SURPODX+7*
REC NEEDADR+1~, NEEDADR+3*, NEEDADR+7*, NEEDADR+9*, NEEDADR+10*, NEEDADR+11*, NEEDADR+12*, NEEDADR+13*, NEEDADR+14
>> SDATE NUTLOC+23
SIEN GETDIV+2~, GETDIV+8*, GETDIV+9
SPEC LOINC+29~, EXT+17*, EXT+19, EXT+20, EXT+23
SPECD LOINC+29~, EXT+20*, EXT+21
STCD SUR~, SUR+5*
SVP GETDIV+2~, GETDIV+4*, GETDIV+5, GETDIV+8
TA LOINC+29~, EXT+18*, EXT+19*, EXT+20
TRSVP NUTLOC+10~, NUTLOC+11*, NUTLOC+28*, NUTLOC+41*, NUTLOC+52*, NUTLOC+61*, NUTLOC+70*, NUTLOC+81*, NUTLOC+90*, NUTLOC+91
, NUTLOC+126, GETDIV+4
TYPE ISASIH~, ISASIH+3, ISASIH+4, NEEDADR~, NEEDADR+7, NEEDADR+8, NEEDADR+13, NEEDADR+14
U NUTLOC+22, NUTLOC+40, NUTLOC+51, NUTLOC+61, NUTLOC+69, NUTLOC+80, NUTLOC+90, NUTLOC+107, NUTLOC+109, NUTLOC+111
, SUR+3, SUR+5, SUR+6, SURPODX+7, SURPODX+10, EXT+2, INPUTT+3, ISASIH+4, ISASIH+5, NEEDADR+5
, NEEDADR+7, NEEDADR+10, NEEDADR+11, NEEDADR+12, NEEDADR+13
VAHOW NUTLOC+20~, NUTLOC+23*
VAIP ISASIH+1~, NEEDADR+1~
VAIP("D" NUTLOC+23*, ISASIH+4*
VAIP("E" ISASIH+3*, NEEDADR+4*
VAIP(15 NEEDADR+7, NEEDADR+13
VAIP(16 NEEDADR+9, NEEDADR+10, NEEDADR+11, NEEDADR+12, NEEDADR+14
VAIP(4 ISASIH+7
WARD NUTLOC+10~, NUTLOC+11*, NUTLOC+26*, NUTLOC+27*, NUTLOC+28, NUTLOC+29, NUTLOC+115, NUTLOC+126
WKLD LOINC+29~, EXT+16*, EXT+17, EXT+19, EXT+20, EXT+22, EXT+23
WKLD0 LOINC+29~
X EXT+8*, EXT+11*, INPUTT+2!, INPUTT+3*!
>> Y INPUTT+2
>> Y(0 INPUTT+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All