IB20P244 ;ISP/TDP - Post-Init routine for IB*2.0*244 ;10/14/2003
Source file <IB20P244.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| POST | ; This routine is to remove hyphens from the SUBSCRIBER ID (#1) field
; of the INSURANCE TYPE SUB-FIELD (#2.312) file of the PATIENT (#2) ; file. It also will delete invalid entries from the IB DM EXTRACT ; DATA (#351.71) file. |
|
| EN | ; Start of Post-Init process.
|
|
| SUBSCR | ;Remove all hyphens from subscriber ID's in the INSURANCE TYPE
|
|
| END | ; display message that post-init has completed successfully
|
|
| INSUR | ;This will remove all future dates and all past date entries which
|
|
| INSURQ | ||
| FUTURE | ;This utility searches for and deletes future date entries from file
|
|
| PAST | ;This utility searches for and deletes past date entries from file
|
|
| MESSAGE | ; Send message reporting invalid HICN format
|
|
| MSG1 | ||
| SNDMSG | ;
|
|
| MSGHDR | ;Creates message subject line
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | Classic Fileman Calls |
| ^IBE(351.71 - [#351.71] | Classic Fileman Calls |
