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
Print Page as PDF
Routine: VASITE

Package: Registration

Routine: VASITE


Information

VASITE ;ALB/AAS - TIME SENSITIVE VA STATION NUMBER UTILITY ; 4/22/92

Source Information

Source file <VASITE.m>

Entry Points

Name Comments DBIA/ICR reference
SITE(DATE,DIV) ;
; -Output= Institution file pointer^Institution name^station number with suffix
  • ICR #759
    • Status: Retired
    • Usage: Private
  • ICR #769
    • Status: Retired
    • Usage: Private
  • ICR #10112
    • Status: Active
    • Usage: Supported
    ALL(DATE) ; -returns all possible station numbers
    ; -input date, if date is undefined, then date will be today
    ; - output VASITE= 1 or -1 if stations exist
    ; VASITE(station number)=station number
  • ICR #10112
    • Status: Active
    • Usage: Supported
    IVDATE(DATE) ; -- inverse date reference start
    CHK ; -input transform for IS PRIMARY STATION? field
    ; -only 1 primary station number allowed per effective date
    CHKQ
    YN ; -input transform for is primary facility
    PRIM(DATE) ; -returns medical center division of primary medical center division
    ; - input date, if date is null then date will be today
  • ICR #10112
    • Status: Active
    • Usage: Supported
    NAME(DATE) ; -returns the new name of medical centers that have integrated
  • ICR #10112
    • Status: Active
    • Usage: Supported

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"Effective Date must be entered first"
    • Line Location: CHK+3
    Function Call: WRITE
    • Prompt: !,"Medical Center Division must be entered first.",!
    • Line Location: CHK+4
    Function Call: WRITE
    • Prompt: !,"Another entry Is Primary Division for this date.",!
    • Line Location: CHK+5
    Function Call: WRITE
    • Prompt: !,"Effective date must be entered first!"
    • Line Location: YN+1
    Function Call: WRITE
    • Prompt: !,"Medical Center Division must be entered first!"
    • Line Location: YN+2
    Function Call: WRITE
    • Prompt: !,"Primary Station can only be 3 numerics!"
    • Line Location: YN+4
    Function Call: WRITE
    • Prompt: !,"Only one division can be primary division for an effective date!"
    • Line Location: YN+5
    Function Call: WRITE
    • Prompt: " (",$S(X:"YES",1:"NO"),")"
    • Line Location: YN+6
    Function Call: WRITE
    • Prompt: !?4,"NOT A VALID CHOICE!",*7
    • Line Location: YN+7
    Info |  Source |  Entry Points |  Interaction Calls