©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MEDICAID(DFN) | ;Will retrieve the patient's Medicaid Number and return it or a null
|
|
| MEDICARE(DFN) | ;Will retrieve the patient's Medicare Number and return it or return null
|
|
| RELATE(X) | ;CONVERT FREE TEXT RELATIONSHIP TO RELATIONSHIP FILE ENTRY NUMBER AND NAME
|
|
| CHKWARD(X) | ;RETURNS 1 IF RAI/MDS WARD AND 0 IF NOT
|
|
| DOCID(X) | ;Insure provider ID not greater than 6 digits
|
|
| ATTDOC(X) | ;get attending physician - p-762
|
|
| SENDMFU() | ;Function to determine if master file updates should be sent
|
|
| NAMQ | ||
| GETAMOV(DFN) | ;GET LAST ADMISSION MOVEMENT FOR A PATIENT
|
|
| HLNAME(DGNAME) | ;Piece apart name into LAST NAME_"^"_FIRST NAME_"^"_MIDDLE NAME_"^"_SUFFIX
|
|
| SUF(X) | ;COMPARES PASSED DATA TO LIST OF SUFFIX'S AND RETURNS A FOUND SUFFIX OR NULL
|
|
| ENC(DGRSEG,DGRMNMT,DGRFLN,DGRFLNM,DGROLDN,DGRNDATA,DGRSIED,DGCIEN) | ;CREATE AND SEND MASTER FILE UPDATE HL7 MESSAGE
|
|
| EXITDOC |
| 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 |
| Name | Line Occurrences |
|---|---|
| $$HLNAME | ATTDOC+3 |
| $$SUF | HLNAME+7 |
| EXITDOC | DOCID+4 |
| NAMQ | HLNAME+9, HLNAME+10 |
| >> | 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+4, MEDICARE+5, 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+3~, MEDICARE+5*, MEDICARE+6, MEDICARE+7 |
| >> 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* |