ECPRVUTL ;ALB/JAP - Provider Selection with Person Class ;7 Aug 97
Source file <ECPRVUTL.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PROV(ECDT,ECPROVS) | ;get providers - new providers function
|
|
GET(ECDA,ECDT,ECU,ECU2,ECU3,ECOUT) | ;get providers with person class
|
|
PV | ;1st provider - required
|
|
PV2 | ;2nd provider - optional
|
|
PV3 | ;3rd provider - optional
|
|
CLASS(ECUX,ECDTX) | ;get person class - display
; input ; ECUX=ien in file #200 (required) ; ECDTX=date/time of procedure (required) ; output ; ECUTN= -1 if no person class ; or ; -2 if no active person class ; or ; ien in file #8932.1^occupation^specialty^subspecialty^effective date^expiration date^va code |
|
CMSG | ;inactive person class msgs
|
|
DICLK(ECUX) | ||
COMP(ECUX,ECDTX) | ;check & complete the provider return variables
|
Name | Line Occurrences |
---|---|
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 |
---|---|
^VA(200 - [#200] | Classic Fileman Calls |