DGRUUTL ;ALB/GRR - RAI/MDS UTILITY ROUTINE ; 10/11/07 8:42am
Source file <DGRUUTL.m>
Package | Total | Call Graph |
---|---|---|
Health Level Seven | 2 | $$UPPER^HLFNC GENERATE^HLMA |
Registration | 2 | EN^DGRUGMFU IN5^VADPT |
VA FileMan | 2 | ^DIC $$GET1^DIQ |
Integrated Billing | 1 | $$HICN^IBCNSU1 |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
HLNAME(DGNAME) | ;Piece apart name into LAST NAME_"^"_FIRST NAME_"^"_MIDDLE NAME_"^"_SUFFIX
|
|
NAMQ | ||
SUF(X) | ;COMPARES PASSED DATA TO LIST OF SUFFIX'S AND RETURNS A FOUND SUFFIX OR NULL
|
|
CHKWARD(X) | ;RETURNS 1 IF RAI/MDS WARD AND 0 IF NOT
|
|
MEDICARE(DFN) | ;Will retrieve the patient's Medicare Number and return it or return null
|
|
MEDICAID(DFN) | ;Will retrieve the patient's Medicaid Number and return it or a null
|
|
GETAMOV(DFN) | ;GET LAST ADMISSION MOVEMENT FOR A PATIENT
|
|
RELATE(X) | ;CONVERT FREE TEXT RELATIONSHIP TO RELATIONSHIP FILE ENTRY NUMBER AND NAME
|
|
ENC(DGRSEG,DGRMNMT,DGRFLN,DGRFLNM,DGROLDN,DGRNDATA,DGRSIED,DGCIEN) | ;CREATE AND SEND MASTER FILE UPDATE HL7 MESSAGE
|
|
SENDMFU() | ;Function to determine if master file updates should be sent
|
|
DOCID(X) | ;Insure provider ID not greater than 6 digits
|
|
EXITDOC | ||
ATTDOC(X) | ;get attending physician - p-762
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
^DG(408.11 - [#408.11] | Classic Fileman Calls |
^DIC(42 - [#42] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DG(43 - [#43] | SENDMFU+1 |
^DGPM("ATID1" | GETAMOV+3, GETAMOV+4 |
^TMP($J | ENC+13, ENC+14 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
A | MEDICAID+5~*, MEDICAID+6*, MEDICAID+7 |
ATTNAME | ATTDOC+1~*, ATTDOC+3*, ATTDOC+4 |
ATTPTR | ATTDOC+1~*, ATTDOC+2*, ATTDOC+4 |
DFN | MEDICARE~, MEDICARE+3, MEDICARE+4, MEDICAID~, MEDICAID+5, GETAMOV~, GETAMOV+3, GETAMOV+4 |
DGCIEN | ENC~, ENC+12 |
DGDOC | DOCID+2~, DOCID+3*, DOCID+5*, DOCID+6 |
>> DGFN | HLNAME+2*, HLNAME+9*, HLNAME+11*, HLNAME+12*, HLNAME+13*, HLNAME+14*, NAMQ |
>> DGLN | HLNAME+2*, HLNAME+9*, HLNAME+11*, HLNAME+12*, HLNAME+13*, HLNAME+14*, NAMQ |
>> DGMN | HLNAME+2*, HLNAME+9*, HLNAME+11*, HLNAME+13*, NAMQ |
>> DGN | HLNAME+5*, HLNAME+6 |
DGNAME | HLNAME~, HLNAME+3, HLNAME+4, HLNAME+5 |
DGNIEN | DOCID+2~, DOCID+5* |
DGRFLN | ENC~, ENC+11, ENC+12 |
DGRFLNM | ENC~, ENC+11, ENC+12 |
DGRMNMT | ENC~, ENC+11, ENC+12 |
DGRNDATA | ENC~, ENC+11, ENC+12 |
DGROLDN | ENC~, ENC+12 |
DGRSEG | ENC~, ENC+11, ENC+12 |
DGRSIED | ENC~, ENC+11 |
>> DGRUET | ENC+15 |
DGSUB | MEDICARE+2~, MEDICARE+4*, MEDICARE+5, MEDICARE+6 |
>> DGSUF | HLNAME+2*, HLNAME+7*, HLNAME+8, NAMQ |
DIC | RELATE+1~, RELATE+4* |
DIC(0 | RELATE+4* |
>> HL("ECH" | DOCID+3, DOCID+5, ATTDOC+4 |
>> HL("FS" | DOCID+3, DOCID+6 |
>> HLA("HLS" | ENC+14* |
I | GETAMOV+2~*, GETAMOV+3*, GETAMOV+4 |
IEN | DOCID+2~, DOCID+3*, DOCID+4, DOCID+5 |
J | GETAMOV+2~*, GETAMOV+4*, GETAMOV+5 |
>> P | HLNAME+3*, HLNAME+6*, HLNAME+7, HLNAME+8*, HLNAME+9, HLNAME+10 |
>> P1 | HLNAME+2*, HLNAME+5*, HLNAME+9, HLNAME+11, HLNAME+12, HLNAME+13, HLNAME+14 |
>> P2 | HLNAME+2*, HLNAME+5*, HLNAME+9, HLNAME+11, HLNAME+12, HLNAME+13, HLNAME+14 |
>> P3 | HLNAME+2*, HLNAME+9, HLNAME+11, HLNAME+12, HLNAME+13 |
>> P4 | HLNAME+2*, HLNAME+9 |
VAIP | ATTDOC+1~! |
VAIP(18 | ATTDOC+1 |
X | SUF~, SUF+1, SUF+2, CHKWARD~, CHKWARD+3, RELATE~, RELATE+2*, RELATE+3*, DOCID~, DOCID+1 , DOCID+3, DOCID+6*, EXITDOC, ATTDOC~ |
Y | RELATE+1~, RELATE+5*, RELATE+6 |
>> Z | HLNAME+3*, HLNAME+6* |