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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ECXUTL2

Package: DSS Extracts

Routine: ECXUTL2


Information

ECXUTL2 ;ALB/JAP - Utilities for DSS Extracts (cont.) ;6/29/18 14:07

Source Information

Source file <ECXUTL2.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
DSS Extracts 5 $$PRVCLASS^ECXUTL  $$INP^ECXUTL2  $$PAT^ECXUTL3  $$INOUTP^ECXUTL4  ($$CVEDT,$$TYPE)^ECXUTL5  
VA FileMan 5 NOW^%DTC  FIELD^DID  ($$GET1,GETS)^DIQ  EN^DIQ1  ^DIR  
Registration 3 ($$FINDCUR,$$FINDPRI,$$GET,$$PRIORITY,$$STATUS)^DGENA  ($$CATEGORY,$$ENRSBGRP)^DGENA4  IN5^VADPT  
Kernel 2 MES^XPDUTL  $$NPI^XUSNPI  
Enrollment Application System 1 $$UESTAT^EASUER  
Scheduling 1 ($$OUTPTAP,$$OUTPTPR,$$OUTPTTM)^SDUTL3  

Caller Graph

Caller Graph Total: 34

Package Total Caller Graph
DSS Extracts 34 ECXADM  ECXBCM  ECXDENT  ECXEC  ECXLABN  ECXLABR  ECXLBB  ECXLBB1  
ECXMOV  ECXMTL  ECXNURS  ECXNUT  ECXOPRX  ECXPAI  ECXPIVD  ECXPIVDN  
ECXPRO  ECXQSR  ECXQSR1  ECXRAD  ECXSCX  ECXSCX2  ECXSCXN  ECXSETUP  
ECXSURG  ECXSURG1  ECXTRT  ECXTRT2  ECXUD  ECXUEC  ECXUPRO1  ECXUSUR1  
ECXUTL2  ECXUTLA  

Entry Points

Name Comments DBIA/ICR reference
ECXDEF(ECXHEAD,ECXPACK,ECXGRP,ECXFILE,ECXRTN,ECXPIECE,ECXVER) ;variables specific to extract from file #727.1
; input
; ECXHEAD = extract header code
; all other formal list parameters passed by reference
; output
; ECXPACK = type field (#7)
; ECXGRP = group field (#9)
; ECXFILE = file number field (#1)
; ECXRTN = routine field (#4)
; ECXPIECE= running piece field (#11)
; ECXVER = dss version
KPATDEM ;
PATDEM(DFN,DT1,PAR,FLG) ; determine patient information
; DFN =
; DT =
; PAR =
; FLG =
GETASIH() ;170 Section added to determine start and end of ASIH other facility movement
INP(ECXDFN,ECXDATE) ; check for inpatient status
; input
; ECXDFN = file #2 ien (required)
; ECXDATE = date of interest (required)
; output
; ECXINP = patient status^movment # (file #405 ien)
; current treat. spec. (file #42.4 ien)^admission date/time^
; current ward (file #42 ien)^discharge date/time^
; ward provider^attending phys.^ward (file #44 ien);facility
; (file #40.8 ien);dss dept^dom^primary ward phys person class
; ^attending phys person class^ward at discharge^ASIH other facility at date/time?
; where patient status = I for inpatient
; = O for outpatient
PRIMARY(ECXDFN,ECXDATE,ECXPREFX) ;determine patient's pc team and pc provider
; input
; ECXDFN = file #2 ien (required)
; ECXDATE = date of interest (required)
; ECXPREFX = prefix for provider data (optional)
; defaults to "2" if not specified otherwise
; output
; ECXPRIME = pc team ien^prefix_pc provider ien^pc provider person
ENROLLM(DFN,RNDT) ;determines enrollment status, category, priority
VISN19(ECXDFN,ECXPAYOR,ECXSAI) ;visn 19 sharing agreement data
; input ECXDFN = patient file ien
; output ECXPAYOR, ECXSAI (passed by reference)

External References

Name Field # of Occurrence
NOW^%DTC ENROLLM+29
$$FINDCUR^DGENA ENROLLM+28
$$FINDPRI^DGENA ENROLLM+31
$$GET^DGENA ENROLLM+32
$$PRIORITY^DGENA ENROLLM+23
$$STATUS^DGENA ENROLLM+23
$$CATEGORY^DGENA4 ENROLLM+24, ENROLLM+35
$$ENRSBGRP^DGENA4 ENROLLM+24, ENROLLM+36
FIELD^DID INP+16
$$GET1^DIQ VISN19+17
GETS^DIQ VISN19+5, VISN19+13
EN^DIQ1 ECXDEF+27
^DIR ECXDEF+24, ECXDEF+38
$$UESTAT^EASUER ENROLLM+17
$$PRVCLASS^ECXUTL PRIMARY+16, PRIMARY+24, INP+38, INP+39
$$INP^ECXUTL2 PATDEM+39
$$PAT^ECXUTL3 PATDEM+8
$$INOUTP^ECXUTL4 INP+28
$$CVEDT^ECXUTL5 ENROLLM+21
$$TYPE^ECXUTL5 ENROLLM+19
$$OUTPTAP^SDUTL3 PRIMARY+23
$$OUTPTPR^SDUTL3 PRIMARY+15
$$OUTPTTM^SDUTL3 PRIMARY+13
IN5^VADPT INP+21
MES^XPDUTL ECXDEF+15, ECXDEF+16, ECXDEF+17, ECXDEF+18, ECXDEF+19, ECXDEF+20, ECXDEF+21, ECXDEF+31, ECXDEF+32, ECXDEF+33
, ECXDEF+34, ECXDEF+35
$$NPI^XUSNPI PRIMARY+17, PRIMARY+25

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ECXDEF+23
Function Call: WRITE
  • Prompt: !
  • Line Location: ECXDEF+24
Function Call: WRITE
  • Prompt: !
  • Line Location: ECXDEF+37
Function Call: WRITE
  • Prompt: !
  • Line Location: ECXDEF+38
Function Call: WRITE
  • Prompt: !,$G(CNT)+1
  • Line Location: VISN19+10
Function Call: WRITE
  • Prompt: !,"The value of ECXPAYOR is: ",ECXPAYOR
  • Line Location: VISN19+11
Routine Call
  • DIR
  • Line Location:
    • ECXDEF+24
    • ECXDEF+38

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GETS^DIQ
^DIC(36 - [#36] GET1^DIQ
^DGPM - [#405] FIELD^DID
^ECX(727.1 - [#727.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" PRIMARY+22
^DGPM - [#405] GETASIH+8, GETASIH+16
^DGPM("APCA" GETASIH+6, GETASIH+7, GETASIH+14, GETASIH+15
^DIC(42 - [#42] INP+32, INP+33
^DIC(45.7 - [#45.7] INP+26
^ECX(727.1 - [#727.1] ECXDEF+13
^ECX(727.4 - [#727.4] INP+34
^ECX(727.831 - [#727.831] INP+43

Label References

Name Line Occurrences
$$ENROLLM PATDEM+44
$$GETASIH INP+25
$$PRIMARY PATDEM+35
KPATDEM PATDEM+6
VISN19 PATDEM+33

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ALIAS VISN19+3~, VISN19+8*, VISN19+9
ASIHED GETASIH+1~, GETASIH+13*, GETASIH+18*, GETASIH+19*, GETASIH+20
ASIHINFO INP+14~, INP+25*, INP+29, INP+35
ASIHSD GETASIH+1~, GETASIH+5*, GETASIH+10*, GETASIH+20
CAT ENROLLM+12~, ENROLLM+24*, ENROLLM+26, ENROLLM+40
CLCADM GETASIH+1~, GETASIH+3*, GETASIH+6, GETASIH+7, GETASIH+14, GETASIH+15
>> CNT VISN19+10
DA ECXDEF+11~, ECXDEF+26*, VISN19+3~, VISN19+16*, VISN19+17, GETASIH+7*, GETASIH+8, GETASIH+10, GETASIH+15*, GETASIH+16
, GETASIH+18, GETASIH+19
DATE GETASIH+1~, GETASIH+5*, GETASIH+6*, GETASIH+7, GETASIH+12*, GETASIH+14*, GETASIH+15
DFN PATDEM~, PATDEM+8, PATDEM+33, PATDEM+35, PATDEM+39, PATDEM+44, ENROLLM~, ENROLLM+14, ENROLLM+17, ENROLLM+19
, ENROLLM+21, ENROLLM+23, ENROLLM+24, ENROLLM+28, ENROLLM+35, ENROLLM+36, INP+13~, INP+19*, GETASIH+6, GETASIH+7
, GETASIH+14, GETASIH+15
DIC ECXDEF+11~, ECXDEF+26*, VISN19+3~
DIQ ECXDEF+11~, ECXDEF+26*, VISN19+3~
DIR ECXDEF+24!, ECXDEF+38!
DIR(0 ECXDEF+24*, ECXDEF+38*
DONE GETASIH+1~, GETASIH+6*, GETASIH+9*, GETASIH+14*, GETASIH+18*, GETASIH+19*
DR ECXDEF+11~, ECXDEF+26*, VISN19+3~
DSSDEPT INP+13~, INP+20*, INP+34*, INP+35
DT ENROLLM+21
DT1 PATDEM~, PATDEM+7, PATDEM+39
DT2 PATDEM+5~, PATDEM+7*, PATDEM+8, PATDEM+35
ECA INP+13~, INP+19*, INP+28*, INP+44
ECADM INP+13~, INP+20*, INP+29*, INP+38, INP+39, INP+44
ECAO KPATDEM+1!
ECASNPI PATDEM+37*, KPATDEM+1!, PRIMARY+26*, PRIMARY+29
ECASPR PATDEM+36*, KPATDEM+1!, PRIMARY+10~, PRIMARY+21*, PRIMARY+23*, PRIMARY+24, PRIMARY+25, PRIMARY+27*, PRIMARY+29
ECCLAS PATDEM+35*, KPATDEM+1!, PRIMARY+10~, PRIMARY+16*, PRIMARY+29
ECCLAS2 PATDEM+36*, KPATDEM+1!, PRIMARY+10~, PRIMARY+24*, PRIMARY+29
>> ECD ENROLLM+21
ECDC INP+13~, INP+20*, INP+35*, INP+44
>> ECED GETASIH+19
ECENV KPATDEM+1!
>> ECHEAD ECXDEF+18, ECXDEF+32
ECMN INP+13~, INP+20*, INP+22*, INP+23, INP+25*, INP+44, GETASIH+5
ECPRIME PRIMARY+10~
ECPTNPI PATDEM+36*, KPATDEM+1!, PRIMARY+18*, PRIMARY+29
ECPTPR PATDEM+35*, KPATDEM+1!, PRIMARY+10~, PRIMARY+15*, PRIMARY+16, PRIMARY+17, PRIMARY+19*, PRIMARY+29
ECPTTM PATDEM+35*, KPATDEM+1!, PRIMARY+10~, PRIMARY+13*, PRIMARY+29
ECRE KPATDEM+2!
ECSC PATDEM+19*, KPATDEM+2!
ECTS INP+13~, INP+20*, INP+26*, INP+28, INP+43, INP+44
ECWARD INP+13~, INP+20*, INP+30*, INP+31, INP+32, INP+33, INP+34, INP+44
ECXA PATDEM+39*, KPATDEM+2!
ECXADMDT PATDEM+40*, KPATDEM+1!
>> ECXAOL PATDEM+27*
ECXARR ECXDEF+11~
ECXARR( ECXDEF+28, ECXDEF+30, ECXDEF+40, ECXDEF+41, ECXDEF+42, ECXDEF+43
ECXARY VISN19+3~
ECXARY( VISN19+7, VISN19+8, VISN19+15, VISN19+16, VISN19+18
ECXASIH PATDEM+43*, INP+14~, INP+20*, INP+24*, INP+25, INP+29, INP+35, INP+44
ECXAST PATDEM+25*, KPATDEM+2!
ECXATP INP+14~, INP+20*, INP+37*, INP+39, INP+41*, INP+44
ECXATPPC INP+15~, INP+20*, INP+39*, INP+44
>> ECXAUDIT ECXDEF+30
ECXCAT KPATDEM+2!, ENROLLM+13*, ENROLLM+26*, ENROLLM+35*, ENROLLM+40*
>> ECXCLST PATDEM+29*
>> ECXCNTRY PATDEM+17*
ECXCNTY PATDEM+16*, KPATDEM+2!
ECXDA VISN19+3~, VISN19+15*, VISN19+16, VISN19+18
ECXDATE ENROLLM+21, PRIMARY~, PRIMARY+13, PRIMARY+15, PRIMARY+16, PRIMARY+17, PRIMARY+23, PRIMARY+24, PRIMARY+25, INP~
, INP+21
ECXDD INP+14~, INP+17!
ECXDD("SPECIFIER" INP+17
ECXDFN PRIMARY~, PRIMARY+13, PRIMARY+15, PRIMARY+23, INP~, INP+19, VISN19~, VISN19+5, VISN19+13
ECXDOB PATDEM+11*, KPATDEM+2!
ECXDOM PATDEM+40*, KPATDEM+3!, INP+14~, INP+43*, INP+44
>> ECXDWARD PATDEM+42*, INP+20*, INP+42*, INP+44
ECXELIG PATDEM+20*, KPATDEM+3!
>> ECXEMP PATDEM+23*
ECXENRL PATDEM+21*, KPATDEM+2!
>> ECXERI PATDEM+22*
ECXERR VISN19+3~, VISN19+6, VISN19+14, VISN19+18
ECXEST PATDEM+26*, KPATDEM+2!
>> ECXETH PATDEM+14*
>> ECXEUSTA ENROLLM+13*
ECXFILE ECXDEF~, ECXDEF+12*, ECXDEF+41*
ECXGRP ECXDEF~, ECXDEF+12*, ECXDEF+40*
ECXHEAD ECXDEF~, ECXDEF+13
ECXIEN ECXDEF+11~, ECXDEF+12*, ECXDEF+13*, ECXDEF+14, ECXDEF+26, ECXDEF+28, ECXDEF+30, ECXDEF+40, ECXDEF+41, ECXDEF+42
, ECXDEF+43
ECXINP PATDEM+39*, PATDEM+40, PATDEM+41, PATDEM+42, PATDEM+43, KPATDEM+3!, INP+13~, INP+44*, INP+45
>> ECXMAR PATDEM+13*
ECXMEAN PATDEM+20*, KPATDEM+3!
ECXMN PATDEM+39*, KPATDEM+3!
ECXMPI PATDEM+9*, KPATDEM+3!
ECXMST PATDEM+27*, KPATDEM+3!
ECXNM KPATDEM+3!
>> ECXOEF PATDEM+28*
>> ECXOEFDT PATDEM+28*
ECXPACK ECXDEF~, ECXDEF+12*, ECXDEF+28*
ECXPAYOR PATDEM+33*, KPATDEM+4!, VISN19~, VISN19+4*, VISN19+7, VISN19+9*, VISN19+11, VISN19+13
ECXPHI PATDEM+27*, KPATDEM+3!
ECXPIECE ECXDEF~, ECXDEF+12*, ECXDEF+43*
ECXPLOC PATDEM+26*, KPATDEM+3!
ECXPNM PATDEM+11*, KPATDEM+4!
ECXPOS PATDEM+19*, KPATDEM+4!
ECXPREFX PRIMARY~, PRIMARY+11*, PRIMARY+19, PRIMARY+27
>> ECXPRIME PRIMARY+29*, PRIMARY+30
ECXPRIOR KPATDEM+4!, ENROLLM+13*, ENROLLM+26*, ENROLLM+34*, ENROLLM+40*
ECXPRO INP+13~
ECXPROF INP+14~, INP+17*, INP+41
ECXPST PATDEM+26*, KPATDEM+4!
>> ECXPTYPE ENROLLM+19*
ECXPWP INP+14~, INP+20*, INP+36*, INP+38, INP+41*, INP+44
ECXPWPPC INP+14~, INP+20*, INP+38*, INP+44
ECXRACE PATDEM+12*, KPATDEM+4!
>> ECXRC1 PATDEM+14*
ECXREL PATDEM+12*, KPATDEM+4!
ECXRST PATDEM+25*, KPATDEM+4!
ECXRTN ECXDEF~, ECXDEF+12*, ECXDEF+42*
ECXSAI PATDEM+33*, KPATDEM+4!, VISN19~, VISN19+4*, VISN19+18*
ECXSBGRP KPATDEM+6!, ENROLLM+13*, ENROLLM+26*, ENROLLM+36*, ENROLLM+37*, ENROLLM+40*
ECXSEX PATDEM+12*, KPATDEM+5!
ECXSSN PATDEM+11*, KPATDEM+5!
ECXSTAT KPATDEM+5!, ENROLLM+13*, ENROLLM+26*, ENROLLM+34*, ENROLLM+35, ENROLLM+40*
ECXSTATE PATDEM+16*, KPATDEM+5!
ECXSVC PATDEM+19*, KPATDEM+5!
ECXSVCI PATDEM+30*, KPATDEM+6!
ECXSVCL PATDEM+31*, KPATDEM+6!
ECXTS PATDEM+40*, KPATDEM+5!
>> ECXUESTA ENROLLM+17*
ECXUSRTN PRIMARY+17~*, PRIMARY+18*, PRIMARY+25~*, PRIMARY+26*
ECXVER ECXDEF~, ECXDEF+12*, ECXDEF+45*
>> ECXVET PATDEM+20*
ECXVIET PATDEM+25*, KPATDEM+5!
ECXWW INP+14~, INP+20*, INP+35*, INP+44
ECXZIP PATDEM+16*, KPATDEM+5!
ENR ENROLLM+12~, ENROLLM+32*
ENR("EFFDATE" ENROLLM+33
ENR("STATUS" ENROLLM+33, ENROLLM+34
ENRIEN ENROLLM+12~, ENROLLM+28*, ENROLLM+31*, ENROLLM+32
FAC INP+14~, INP+20*, INP+33*, INP+35
FL ENROLLM+12~, ENROLLM+30*, ENROLLM+31, ENROLLM+34*, ENROLLM+38
FLG PATDEM~, PATDEM+7*, PATDEM+34, PATDEM+38, PATDEM+44
INSUR VISN19+3~, VISN19+17*
IOST ECXDEF+22, ECXDEF+36
JJ ECXDEF+23*, ECXDEF+37*, VISN19+3~, VISN19+7*, VISN19+8, VISN19+15*
MVMTDT GETASIH+1~, GETASIH+2*, GETASIH+5, GETASIH+12
OK PATDEM+5~
PAR PATDEM~, PATDEM+7*, PATDEM+8, PATDEM+10, PATDEM+15, PATDEM+18, PATDEM+23, PATDEM+24, PATDEM+32
PAT PATDEM+5~, PATDEM+8
PAT("AO STAT" , PATDEM+25
PAT("AOL" PATDEM+27
PAT("CL STAT" , PATDEM+29
PAT("COMBSVCI" PATDEM+30
PAT("COMBSVCL" PATDEM+31
PAT("COUNTRY" PATDEM+17
PAT("COUNTY" PATDEM+16
PAT("DOB" PATDEM+11
PAT("EC STAT" , PATDEM+26
PAT("ECXOEF" PATDEM+28
PAT("ECXOEFDT" PATDEM+28
PAT("ELIG" PATDEM+20
PAT("EMPLOY" PATDEM+23
PAT("ENROLL L OC" , PATDEM+21
PAT("ERI" PATDEM+22
PAT("ETHNIC" PATDEM+14
PAT("IR STAT" , PATDEM+25
PAT("MARITAL" PATDEM+13
PAT("MEANS" PATDEM+20
PAT("MPI" PATDEM+9
PAT("MST STAT " , PATDEM+27
PAT("NAME" PATDEM+11
PAT("PHI" PATDEM+27
PAT("POS" PATDEM+19
PAT("POW LOC" , PATDEM+26
PAT("POW STAT " , PATDEM+26
PAT("RACE" PATDEM+12
PAT("RACE1" PATDEM+14
PAT("RELIGION" PATDEM+12
PAT("SC STAT" , PATDEM+19
PAT("SC%" PATDEM+19
PAT("SEX" PATDEM+12
PAT("SSN" PATDEM+11
PAT("STATE" PATDEM+16
PAT("VET" PATDEM+20
PAT("VIETNAM" PATDEM+25
PAT("ZIP" PATDEM+16
PRIOR ENROLLM+12~, ENROLLM+23*, ENROLLM+26, ENROLLM+34, ENROLLM+40
REC GETASIH+1~, GETASIH+8*, GETASIH+9, GETASIH+10, GETASIH+16*, GETASIH+17, GETASIH+18, GETASIH+19
RNDT ENROLLM~, ENROLLM+29*, ENROLLM+30*, ENROLLM+33
SBGRP ENROLLM+12~, ENROLLM+24*, ENROLLM+26, ENROLLM+37, ENROLLM+40
>> SS ECXDEF+23*, ECXDEF+37*
STAT ENROLLM+12~, ENROLLM+23*, ENROLLM+24, ENROLLM+26, ENROLLM+40
U PATDEM+35, PATDEM+36, PATDEM+37, PATDEM+39, PATDEM+40, PATDEM+41, PATDEM+42, PATDEM+43, PRIMARY+18, PRIMARY+26
, PRIMARY+29, INP+25, INP+26, INP+29, INP+32, INP+33, INP+34, INP+35, INP+43, INP+44
, GETASIH+9, GETASIH+10, GETASIH+17, GETASIH+18, GETASIH+19
VA KPATDEM+5!
VAERR KPATDEM+5!
VAIP INP+14~
VAIP("D" INP+21*
VAIP(1 INP+22
VAIP(13 INP+29, GETASIH+3
VAIP(17 INP+35, INP+42
VAIP(18 INP+37
VAIP(3 GETASIH+2
VAIP(4 INP+24
VAIP(5 INP+30
VAIP(7 INP+36
VAIP(8 INP+26
WRD PATDEM+41*, INP+14~, INP+20*, INP+32*, INP+35
X PATDEM+5~, PATDEM+35*, PATDEM+36, PATDEM+37, PATDEM+44*, ENROLLM+12~, ENROLLM+29, PRIMARY+22*
X1 ENROLLM+12~
X2 ENROLLM+12~
X3 ENROLLM+12~, ENROLLM+21*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All