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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: DGSDUTL

Package: Registration

Routine: DGSDUTL


Information

DGSDUTL ;ALB/PHH,RMM - DG/SD API UTILITIES ;3/4/2004 10:03

Source Information

Source file <DGSDUTL.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Scheduling 3 $$GETALL^SCAPMCA  $$PCPROV^SCAPMCU3  $$NEWPERSN^SCMCGU  
VA FileMan 2 ^%DT  C^%DTC  

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

Package Total Caller Graph
Registration 8 DGENRPT2  DGENRPT4  DGRP15  DGRPD  DGRUGS  DGSTAT  VAFHLPD1  VAFHLZPD  

Entry Points

Name Comments DBIA/ICR reference
PCTEAM(DFN,DATE,ASSTYPE) ; Get Primary Care Team
; DFN - IEN of patient file (#2)
; DATE - Date of interest (Default=DT)
; ASSTYPE - Assignment Type (Default=1 for PC Team)
  • ICR #5311
    • Status: Withdrawn
    • Usage: Private
    PCPRACT(DFN,DATE,PCROLE) ; Get PC Practitioner
    ; DFN - Pointer to Patient file
    ; DATE - Date of interest
    ; PCROLE - Practitioner Position where '1' = PC provider
    ; '2' = PC attending
    ; '3' = PC associate provider
    ; Returned: Pointer to file #200 ^ External value of name
    ; or, if error or none defined, returns a 0 or null
    DATE ; Get Begin Date and End Date
    EX
    HELP
    TDATA(DFN,VALMCNT,SDATE,SDPRT,SDCOL) ;
    TDQ
    S1(SDT,SDX) ;Set first piece of string
    ; Input: SDT=subtitle, SDX=data value
    S2(SDT,SDX) ;Set second piece of string
    ; Input: SDT=subtitle, SDX=data value
    S3(SDT,SDX) ;Set first piece of string that displays phone numbers
    ; Input: SDT=subtitle, SDX=data value
    S4(SDT,SDX) ;Set second piece of string that displays phone numbers
    PHONE(IEN) ;Get provider's pager and phone numbers.
    STL(SDY) ; Set text line
    ; Input: SDY=string
    PRT ; Write assignment information
    PCLINE(DFN,SDATE) ;PC provider, associate and team in a single line
    ; Input: DFN=patient ifn
    ; SDATE=effective date (optional)
    ; Output: PC provider, associate and team formatted as 80 character
    ; line, or "" if none
    PCL(SDSUB) ; Get name value
    ; Input: SDSUB=node from GETALL^SCAPMCA
    LAST() ; Output - the latest date, beginning day or -100 days
    ; the APPOINTMENT STATUS UPDATE LOG was updated

    External References

    Name Field # of Occurrence
    ^%DT DATE+2, DATE+3
    C^%DTC LAST+3
    $$GETALL^SCAPMCA TDATA+17, PCLINE+9
    $$PCPROV^SCAPMCU3 PCPRACT+29
    $$NEWPERSN^SCMCGU PHONE+6

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"**** Date Range Selection ****"
    • Line Location: DATE+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: DATE+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: DATE+3
    Function Call: WRITE
    • Prompt: !
    • Line Location: DATE+3
    Function Call: WRITE
    • Prompt: "??",!?5,"Ending date must not be before beginning date"
    • Line Location: HELP+0

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^SCPT(404.42 - [#404.42] PCTEAM+11, PCTEAM+12, PCTEAM+13, PCTEAM+14
    ^SCPT(404.43 - [#404.43] PCPRACT+16, PCPRACT+17, PCPRACT+18, PCPRACT+19
    ^SCTM(404.51 - [#404.51] PCTEAM+16, TDATA+23, TDATA+68
    ^SCTM(404.57 - [#404.57] PCPRACT+25
    ^SDD(409.65 - [#409.65] LAST+3
    ^TMP( TDATA+13!, TDQ!
    ^TMP("SDPLIST" TDATA+20, TDATA+21, TDATA+29, TDATA+30, TDATA+37, TDATA+38, TDATA+44, TDATA+45, TDATA+47, TDATA+48
    , TDATA+52, TDATA+53, TDATA+55, TDATA+56, TDATA+59, TDATA+60, PCLINE+12!, PCL+2, PCL+5, PCL+8
    ^TMP("SDTEMP" TDATA+79*, TDATA+80*, TDATA+83*, TDATA+87, TDATA+88, STL+2*, PRT+2, PRT+3

    Label References

    Name Line Occurrences
    $$PCL PCLINE+11
    DATE HELP
    EX DATE+2, DATE+3
    HELP DATE+3
    PHONE TDATA+32, TDATA+39, TDATA+74
    PRT TDATA+43, TDATA+77
    S1 TDATA+22, TDATA+31, TDATA+39, TDATA+50, TDATA+67, TDATA+71, TDATA+74
    S2 TDATA+23, TDATA+32, TDATA+39, TDATA+50, TDATA+68, TDATA+71, TDATA+74
    S3 TDATA+33, TDATA+40, TDATA+75
    S4 TDATA+33, TDATA+40, TDATA+75
    STL TDATA+25, TDATA+32, TDATA+33, TDATA+39, TDATA+40, TDATA+50, TDATA+66, TDATA+68, TDATA+71, TDATA+74
    , TDATA+75
    TDQ TDATA+43, TDATA+77

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    %DT DATE+1*, DATE+2*, DATE+3*!
    %DT("A" DATE+2*, DATE+3*
    %DT(0 DATE+1, HELP*
    ACTDT PCTEAM+5~, PCTEAM+11*, PCTEAM+12, PCTEAM+13, PCPRACT+9~, PCPRACT+16*, PCPRACT+17, PCPRACT+18
    ASSTYPE PCTEAM~, PCTEAM+8*, PCTEAM+11, PCTEAM+12, PCTEAM+13
    BEGDATE DATE+1!, DATE+2*
    DATE PCTEAM~, PCTEAM+8*, PCTEAM+11, PCTEAM+15, PCPRACT~, PCPRACT+12*, PCPRACT+16, PCPRACT+23, PCPRACT+29
    DFN PCTEAM~, PCTEAM+7, PCTEAM+11, PCTEAM+12, PCTEAM+13, PCPRACT~, PCPRACT+11, PCPRACT+16, PCPRACT+17, PCPRACT+18
    , TDATA~, TDATA+9, TDATA+17, TDATA+20, TDATA+21, TDATA+29, TDATA+30, TDATA+37, TDATA+38, TDATA+44
    , TDATA+45, TDATA+47, TDATA+48, TDATA+52, TDATA+53, TDATA+55, TDATA+56, TDATA+59, TDATA+60, TDQ
    , PCLINE~, PCLINE+7, PCLINE+9, PCLINE+12, PCL+2, PCL+5, PCL+8
    DT PCTEAM+8, PCPRACT+12, TDATA+14, PCLINE+7, LAST+3
    ENDDATE DATE+1!, DATE+3*
    >> GBL TDATA+81*, TDATA+85, TDATA+89, TDATA+90
    IEN PHONE~, PHONE+5, PHONE+6, PHONE+7
    INACTDT PCTEAM+5~, PCTEAM+14*, PCTEAM+15, PCPRACT+9~, PCPRACT+19*, PCPRACT+22, PCPRACT+23
    LAST LAST+2~, LAST+3*, LAST+4
    >> LAST1 LAST+3*
    LIST PHONE+3~
    LIST( PHONE+7
    PAGER TDATA+11~, TDATA+33, TDATA+40, TDATA+75, PHONE+4*, PHONE+7*
    PCAP PCPRACT+9~, PCPRACT+27*, PCPRACT+29
    PCROLE PCPRACT~, PCPRACT+12*, PCPRACT+16, PCPRACT+17, PCPRACT+18, PCPRACT+27, PCPRACT+28*
    PHONE TDATA+11~, TDATA+33, TDATA+40, TDATA+75, PHONE+4*, PHONE+7*
    >> POP DATE+1*, DATE+2*, DATE+3*
    RETVAL PCTEAM+5~, PCTEAM+6*, PCTEAM+7, PCTEAM+15*, PCTEAM+16*, PCTEAM+17, PCPRACT+9~, PCPRACT+10*, PCPRACT+11, PCPRACT+24*
    , PCPRACT+25*, PCPRACT+27, PCPRACT+29*, PCPRACT+30
    SCOK PCPRACT+9~, PCPRACT+15*
    SCPTTMA PCTEAM+5~, PCTEAM+13*, PCTEAM+14
    SCTM PCTEAM+5~, PCTEAM+12*, PCTEAM+13, PCTEAM+15
    SCTP PCPRACT+9~, PCPRACT+15*, PCPRACT+17, PCPRACT+18, PCPRACT+22*, PCPRACT+23*, PCPRACT+24, PCPRACT+27*, PCPRACT+29
    SDATE TDATA~, TDATA+10~, TDATA+14*, TDATA+15, TDATA+16*, TDATA+17, PCLINE~, PCLINE+7*, PCLINE+8, PCLINE+9*
    SDATE( TDATA+15*, PCLINE+8*
    >> SDBD DATE+2*, DATE+3
    SDC PCLINE+6~, PCLINE+10*, PCLINE+16*, PCLINE+17*, PCLINE+18
    SDCOL TDATA~, TDATA+14*, S2+2, S4+2, PRT+3
    >> SDED DATE+3*
    SDI TDATA+10~, TDATA+13*, TDATA+15*, TDATA+17*, TDATA+20*, TDATA+21, TDATA+29*, TDATA+30, TDATA+37*, TDATA+38
    , TDATA+52*, TDATA+53, TDATA+83*, TDATA+86*, TDATA+87*, TDATA+88, TDATA+90, TDQ*, PRT+1~*, PRT+2*
    , PRT+3, PCLINE+6~, PCLINE+8*, PCLINE+9*, PCLINE+13*, PCLINE+14*, PCLINE+15, PCLINE+16, PCLINE+17, PCLINE+20*
    , LAST+2~, LAST+3*
    SDII TDATA+10~, TDATA+44*, TDATA+45, TDATA+55*, TDATA+56, TDATA+85*, TDATA+88*, TDATA+89, TDATA+90*, PCLINE+15*
    , PCLINE+17, PCLINE+18
    SDIII TDATA+10~, TDATA+47*, TDATA+48, TDATA+58*, TDATA+59*, TDATA+60
    SDL PCLINE+6~, PCLINE+10*, PCLINE+17*, PCLINE+18
    SDLIST TDATA+10~, TDATA+16*, TDATA+17, PCLINE+6~, PCLINE+7*, PCLINE+9
    SDLN TDATA+10~, TDATA+16*, TDATA+66, TDATA+80, TDATA+90, STL+2*
    SDN PCL+2~*, PCL+3, PCL+4, PCL+5*, PCL+6, PCL+7
    SDPH TDATA+10~, TDATA+23*, TDATA+68*
    SDPO TDATA+11~, TDATA+69*, TDATA+70, TDATA+71, TDATA+72, TDATA+73, TDATA+74
    SDPON TDATA+11~, TDATA+69*, TDATA+70*, TDATA+71, TDATA+72, TDATA+73
    SDPR TDATA+11~, TDATA+72*, TDATA+73, TDATA+74
    SDPRN TDATA+11~, TDATA+73*, TDATA+74
    SDPRT TDATA~, TDATA+43, TDATA+77, S2+2, S4+2
    SDPTA TDATA+10~, TDATA+54*, TDATA+57
    SDPTA( TDATA+24*, TDATA+46
    SDSUB PCL~, PCL+5, PCL+8
    SDT S1~, S1+2, S2~, S2+3, S3~, S3+2, S4~, S4+3
    SDT0 DATE+1*, EX!, HELP
    SDT00 DATE+1, DATE+2, EX!
    SDTEAM TDATA+10~
    SDTEAM( TDATA+54*, TDATA+58*, TDATA+62*, TDATA+64, TDATA+65, TDATA+69, TDATA+70, TDATA+71, TDATA+72, TDATA+73
    SDTL PCLINE+6~, PCLINE+10*, PCLINE+20*, PCLINE+21, PCLINE+22
    SDTM TDATA+11~, TDATA+64*, TDATA+65, TDATA+67, TDATA+69, TDATA+70, TDATA+71, TDATA+72, TDATA+73
    SDTMN TDATA+11~, TDATA+65*, TDATA+68, TDATA+69, TDATA+70, TDATA+71, TDATA+72, TDATA+73
    SDX TDATA+10~, TDATA+21*, TDATA+22, TDATA+23, TDATA+24, TDATA+30*, TDATA+31, TDATA+32, TDATA+38*, TDATA+39
    , TDATA+45*, TDATA+46, TDATA+49, TDATA+53*, TDATA+54, TDATA+58, TDATA+62, TDATA+88*, TDATA+89, S1~
    , S1+2, S2~, S2+3, S3~, S3+2, S4~, S4+3, PCLINE+6~, PCLINE+22*, PCLINE+23
    SDX( PCLINE+13, PCLINE+17*, PCLINE+18*, PCLINE+20
    SDX(1 PCLINE+11*, PCLINE+22
    SDX(2 PCLINE+11*, PCLINE+22
    SDX(3 PCLINE+11*, PCLINE+22
    SDY TDATA+10~, TDATA+22*, TDATA+25, TDATA+31*, TDATA+32, TDATA+33*, TDATA+39*, TDATA+40*, TDATA+50*, TDATA+56*
    , TDATA+57, TDATA+58, TDATA+61, TDATA+62, TDATA+67*, TDATA+68, TDATA+71*, TDATA+74*, TDATA+75*, TDATA+78*
    , TDATA+79, TDATA+80*, S1+2*, S2+3*, S3+2*, S4+3*, STL~, STL+2, PCLINE+6~, PCLINE+10*
    , PCLINE+17, PCLINE+18
    SDZ TDATA+10~, TDATA+48*, TDATA+49, TDATA+50, TDATA+60*, TDATA+61, TDATA+62, PCLINE+6~
    SDZ( PCLINE+13*, PCLINE+14, PCLINE+15
    TPDALP PCPRACT+9~, PCPRACT+18*, PCPRACT+19
    TPLP PCPRACT+9~, PCPRACT+17*, PCPRACT+18, PCPRACT+22, PCPRACT+23
    U PCTEAM+14, PCTEAM+16, PCPRACT+19, PCPRACT+25, TDATA+22, TDATA+23, TDATA+24, TDATA+31, TDATA+32, TDATA+39
    , TDATA+46, TDATA+49, TDATA+50, TDATA+54, TDATA+57, TDATA+58, TDATA+61, TDATA+62, TDATA+68, PHONE+7
    , PCLINE+17, PCLINE+18, PCL+8, LAST+3
    >> VALMAR TDATA+81
    VALMCNT TDATA~, TDATA+85*, TDATA+89*, TDATA+90*
    >> X LAST+3
    >> X1 LAST+3*
    >> X2 LAST+3*
    >> Y DATE+2, DATE+3
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All