Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: ECPRVUTL

Package: Event Capture

Routine: ECPRVUTL


Information

ECPRVUTL ;ALB/JAP - Provider Selection with Person Class ;7 Aug 97

Source Information

Source file <ECPRVUTL.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?5,"Provider #2 will be deleted..."
  • Line Location: PV2+8
Function Call: WRITE
  • Prompt: $C(7),!!,?15,"But that's Provider #1... Try again.",!
  • Line Location: PV2+10
Function Call: WRITE
  • Prompt: !,?5,"Provider #3 will be deleted..."
  • Line Location: PV3+8
Function Call: WRITE
  • Prompt: $C(7),!!,?15,"But that's Provider #1... Try again.",!
  • Line Location: PV3+10
Function Call: WRITE
  • Prompt: $C(7),!!,?15,"But that's Provider #2... Try again.",!
  • Line Location: PV3+11
Function Call: WRITE
  • Prompt: !?5,"Specialty: ",$P(ECUTN,"^",3)
  • Line Location: CLASS+15
Function Call: WRITE
  • Prompt: !?5,"Subspecialty: ",$P(ECUTN,"^",4)
  • Line Location: CLASS+16
Function Call: WRITE
  • Prompt: !!?10,"Please check your provider selection and try again.",!
  • Line Location: CMSG+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call