Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
PCE Patient Care Encounter 1 UPD^VSIT  
VA FileMan 1 CHK^DIE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Scheduling 2 SD53103A  SDECALV  
PCE Patient Care Encounter 1 VSITDEF  

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

    External References

    Name Field # of Occurrence
    CHK^DIE FIXVID+11
    UPD^VSIT FIXVID+27

    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
    Routine Call
    • DIE
    • Line Location:
      • FIXVID+11

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^AUPNVSIT - [#9000010] CHK^DIE

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^AUPNVSIT - [#9000010] FIXVID+7, FIXVID+9, FIXVID+24*, FIXVID+28
    ^AUPNVSIT("VID" FIXVID+25!
    ^DIC(150.9 - [#150.9] GETVID+3, GETVID+5, GETVID+11*, GETVID+12
    ^VSIT(150.2 - [#150.2] GETVID+7, FIXVID+17

    Label References

    Name Line Occurrences
    $$GETVID FIXVID+21
    $$NEXT GETVID+9, TESTNEXT
    NEXTDIG NEXTDIG+2
    TESTNEXT TESTNEXT+3

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    COUNT TEST+2*, TESTNEXT+1*, TESTNEXT+2, TESTNEXT+4!
    LASTONE GETVID+1~, GETVID+5*, GETVID+6, GETVID+7
    LASTSEQ GETVID+1~, GETVID+6*, GETVID+9
    LASTUSED GETVID+1~
    NEXTSEQ GETVID+1~, GETVID+9*, GETVID+11, GETVID+14
    NUM TEST+3*, TESTNEXT*, TESTNEXT+2, TESTNEXT+4!
    SEQNUMB NEXT~, NEXT+5, NEXTDIG, NEXTDIG+1*, NEXTDIG+2*, NEXTDIG+3
    SITE GETVID+1~, GETVID+7*, GETVID+14
    VSIT FIXVID+20~
    VSIT("IEN" FIXVID+26*
    VSIT("VID" FIXVID+21*, FIXVID+22, FIXVID+28
    VSITDIG NEXT+2~, NEXTDIG*, NEXTDIG+1, NEXTDIG+2
    VSITIEN FIXVID~, FIXVID+6, FIXVID+7, FIXVID+9, FIXVID+24, FIXVID+25, FIXVID+26, FIXVID+28
    VSITPLAC NEXT+2~, NEXT+5*, NEXTDIG, NEXTDIG+1, NEXTDIG+2*
    VSITSTR NEXT+2~, NEXT+4*, NEXTDIG
    VSITTEST FIXVID+5~, FIXVID+11, FIXVID+13, FIXVID+16*, FIXVID+17*
    VSITVID FIXVID+5~, FIXVID+9*, FIXVID+11, FIXVID+13, FIXVID+16, FIXVID+17, FIXVID+23, FIXVID+25
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All