DGPTUTL1 ;ALB/MJK - PTF Utility ;2/1/05 2:20pm
Source file <DGPTUTL1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
FLAG | ; -- select PTF rec to update xmit flags
|
|
FLAGQ | ||
UP | ; -- select mvt and update xmit flag
|
|
UPQ | ||
CHK | ;
|
|
INCOME | ;-- load ptf income information
; Use discharge date if available; else use current date/time |
|
INQ | ;
|
|
INC | ;-- load income information Input:X date,Output:Y-income
|
|
INCQ | ||
CHQUES | ;-- This function will determine if the patient has any of the following
; indicated : AO, IR and EC. If so the array DGEXQ will contain ; DGEXQ(1)="" - AO ; DGEXQ(2)="" - IR ; DGEXQ(3)="" - EC ; Otherwise they will be undefined. |
|
SETTRAN | ;-- set transmission if error DGOUT=1, will return XMZ
|
|
SETQ | ;
|
|
KVAR | ; -- clean up for l/e
|
|
ELIG | ; shows eligibility and disabilities
|
|
DATE | ;EDIT CPT DATE/TIME TO BE AFTER ADMISSION DATE BUT BEFORE DISCHARGE
|
|
SETABX | ;SET AB CROSSREFERENCE IN FILE 45
|
|
KILLABX | ;KILL AB CROSSREFERENCE IN FILE 45
|
|
DISP | ||
HELP | ||
CPT | ;DISPLAY CPT CODES AND MODIFIERS
|
|
MOD | ||
DTIDS | ; date check against admission and discharge dates, called from input transform on field 45/14 DG*5.3*1057
|
|
DT401 | ; date check against admission and discharge dates, called from input transform on field 45.01/.01 DG*5.3*1057
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DGPT - [#45] | Classic Fileman Calls |