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: VSITVID

Package: PCE Patient Care Encounter

Routine: VSITVID


Information

VSITVID ;ISL/dee - Computes the Visit Id ;4/17/97

Source Information

Source file <VSITVID.m>

Entry Points

Name Comments DBIA/ICR reference
GETVID() ;Sets the VSIT("VID") node with the next unique Visit Id
  • ICR #7046
    • Status: Withdrawn
    • Usage: Private
    NEXT(SEQNUMB) ;Pass in the last sequence number and returns the next unique number in the sequence
    NEXTDIG
    TEST ;This prints every 100,000 number in base 27 then base 10
    TESTNEXT
    FIXVID(VSITIEN) ;If the Visit ID is not valued then get a new id and store it

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"WARNING, This routine never quits!"
    • Line Location: TEST+1
    Function Call: WRITE
    • Prompt: !,NUM," ",COUNT
    • Line Location: TESTNEXT+2

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^AUPNVSIT - [#9000010] CHK^DIE
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call