DGRUUTL ;ALB/GRR - RAI/MDS UTILITY ROUTINE ; 10/11/07 8:42am
Source file <DGRUUTL.m>
| 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 |
