ECXUTL2 ;ALB/JAP - Utilities for DSS Extracts (cont.) ;6/29/18 14:07
Source file <ECXUTL2.m>
| 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 |
|
| PATDEM(DFN,DT1,PAR,FLG) | ; determine patient information
; DFN = ; DT = ; PAR = ; FLG = |
|
| KPATDEM | ;
|
|
| ENROLLM(DFN,RNDT) | ;determines enrollment status, category, priority
|
|
| 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 |
|
| 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? ; ^primary provider taxonomy ; where patient status = I for inpatient ; = O for outpatient |
|
| VISN19(ECXDFN,ECXPAYOR,ECXSAI) | ;visn 19 sharing agreement data
; input ECXDFN = patient file ien ; output ECXPAYOR, ECXSAI (passed by reference) |
|
| GETASIH() | ;170 Section added to determine start and end of ASIH other facility movement
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GETS^DIQ |
| ^DIC(36 - [#36] | GET1^DIQ |
| ^DGPM - [#405] | FIELD^DID |
| ^ECX(727.1 - [#727.1] | Classic Fileman Calls |
