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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: SDSCAPI

Package: Scheduling

Routine: SDSCAPI


Information

SDSCAPI ;ALB/JDS/JAM/RBS - Automated Service Connection Designation Review ; 4/16/07 10:39am

Source Information

Source file <SDSCAPI.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Scheduling 3 ($$GETOE,GETDX)^SDOE  GETPDX^SDOERPC  ($$NBFP,$$NBTP,$$NCTCL)^SDSCUTL  
VA Fileman 3 UPDATE^DIE  ^DIK  $$GET1^DIQ  
PCE Patient Care Encounter 1 $$PRIMVPRV^PXUTL1  
Registration 1 RDIS^DGRPDB  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Scheduling 5 SDCOM  SDSCCHK  SDSCEDT  SDSCOMP  SDSCUTL  

Entry Points

Name Comments DBIA/ICR reference
ELIG ;Compile list of service connected eligibility codes
SC(SDFN,SDXS,SDENC,SDVST) ; Determine if SC based on DXS codes
; Input:
; SDFN = Patient ien, file #2 [Required, if SDENC or SDVST undefined]
; SDXS = Diagnosis code array [Optional, if SDENC defined]
; SDENC = Encounter ien, file #409.68 [Optional]
; SDVST = Visit ien, field #9000010 [Optional]
  • ICR #4990
    • Status: Active
    • Usage: Supported
    MATCH(SDIEN31,SDXIEN,SDATE,SDENC) ;ICD9 matching code
    ; - api should be changed to lexicon in next version
    ; Input:
    ; SDIEN31 = File #31 [Required]
    ; SDXIEN = Diagnosis code ien, file #80 [Required]
    ; SDATE = Encounter date, [Optional] [Required for lexicon]
    ; SDENC = Encounter ien, file #409.68 [Required]
    OPT3 ; enter with DXS defined
    OPT2 ; enter with no DXS defined; get ICD9 for visit/encounter
    STORE ; Save the information for this encounter.
    ST(SDENC,SDXS) ;Reviews the diagnosis codes for an encounter and then
  • ICR #4990
    • Status: Active
    • Usage: Supported

    External References

    Name Field # of Occurrence
    RDIS^DGRPDB OPT3+3
    UPDATE^DIE STORE+12
    ^DIK ST+51
    $$GET1^DIQ ST+18
    $$PRIMVPRV^PXUTL1 ST+19
    $$GETOE^SDOE SC+18, ST+15
    GETDX^SDOE OPT2+4
    GETPDX^SDOERPC MATCH+22
    $$NBFP^SDSCUTL ST+39
    $$NBTP^SDSCUTL ST+39
    $$NCTCL^SDSCUTL ST+33

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^SDSC(409.48 - [#409.48] Classic Fileman Calls
    ^AUPNVSIT - [#9000010] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^AUPNVSIT - [#9000010] SC+19, SC+21
    ^DIC(31 - [#31] OPT3+10, MATCH+17, MATCH+18, MATCH+19, MATCH+20
    ^DIC(8 - [#8] ELIG+2
    ^SCE("AVSIT" SC+17
    ^SDSC(409.48 - [#409.48] ST+45, ST+48, ST+51

    Label References

    Name Line Occurrences
    $$MATCH OPT3+13
    ELIG ST+37
    OPT2 SC+26, ST+42
    OPT3 SC+24, ST+41
    STORE ST+45, ST+48

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    DA ST+50~, ST+51*
    DIK ST+50~, ST+51*
    DT SC+19, STORE+4
    ERR STORE+13*, ST+12~, ST+20*, ST+45, ST+48
    FL OPT3+1~, OPT3+6*
    I OPT3+1~, OPT3+10*, OPT3+12*, OPT3+13, OPT3+15*, ELIG+1~, ELIG+2*
    ICDMCH OPT3+1~
    ICDMCH( OPT3+13*, OPT3+15
    J ELIG+1~, ELIG+2*
    SCDXS OPT2+1~
    SCDXS( OPT2+5
    SCVAL ST+12~, ST+19*, ST+46, ST+48*, ST+51*
    SD31 OPT3+1~, OPT3+10*
    SDARR OPT3+1~, OPT3+3, OPT3+4
    SDARR( OPT3+7, OPT3+8
    SDATE MATCH~
    SDCLIN ST+12~, ST+20*, ST+25, ST+33
    SDCST ST+13~, ST+21*, ST+27
    SDEL ST+12~, ST+19*, ST+35, ST+37
    SDENC SC~, SC+16*, SC+17*, SC+18, SC+19, SC+21, SC+25, OPT2+3, OPT2+4, OPT3+13
    , STORE+2, STORE+3, ST~, ST+14, ST+15, ST+39, ST+45, ST+48, ST+51, MATCH~
    , MATCH+22
    SDERR STORE+1~, STORE+13
    SDFILEOK SC+15~, SC+16*, SC+22, SC+24, SC+25, SC+27, OPT3+4*, OPT3+15*, STORE+7, ST+12~
    , ST+20*, ST+43, ST+45, ST+46, ST+48
    SDFN SC~, SC+21*, SC+22, OPT3+3, ST+12~, ST+21*
    SDIEN STORE+1~
    SDIEN(1 STORE+2*
    SDIEN31 MATCH~, MATCH+17, MATCH+18, MATCH+19, MATCH+20
    SDKILL SC+15~, SC+26, OPT2+7*, ST+13~, ST+42
    SDLIST ST+12~
    SDLIST( ST+37, ELIG+2*
    SDMCH OPT3+1~, OPT3+13*, MATCH+16~, MATCH+20*, MATCH+23
    SDOE0 SC+15~, SC+18*, SC+19, SC+21, STORE+5, STORE+8, STORE+9, ST+12~, ST+15*, ST+17
    , ST+18, ST+19, ST+20, ST+21, ST+31
    SDOEDAT SC+15~, SC+19*, OPT3+13, ST+12~, ST+20*
    SDOEDT ST+13~, ST+20*
    SDOSC STORE+11, ST+13~, ST+18*, ST+29, ST+48
    SDPAT ST+13~, ST+21*, ST+23
    SDPDX MATCH+16~, MATCH+22, MATCH+23
    SDPRV STORE+6, ST+12~, ST+19*
    SDRD OPT3+1~, OPT3+6*, OPT3+7*, OPT3+8
    SDRDIEN OPT3+1~, OPT3+8*, OPT3+10, OPT3+13
    SDSC STORE+1~
    SDSC( STORE+3*, STORE+4*, STORE+5*, STORE+6*, STORE+7*, STORE+8*, STORE+9*, STORE+10*, STORE+11*
    SDSTP ST+12~
    SDV0 ST+13~, ST+18*, ST+19
    SDVST SC~, SC+17, SC+19, SC+21
    SDXIEN MATCH~, MATCH+18, MATCH+19, MATCH+23
    SDXIEN1 MATCH+16~, MATCH+19*, MATCH+20, MATCH+21
    SDXLVL MATCH+16~, MATCH+20*, MATCH+21
    SDXS SC~, SC+26!, OPT2+2!, OPT2+5*, ST~, ST+42!
    SDXS( OPT2+5*, OPT3+12
    SDXS(0 SC+24, OPT2+6, ST+41
    U SC+21, OPT3+8, STORE+7, STORE+8, STORE+9, ST+17, ST+18, ST+19, ST+20, ST+21
    , ST+31, ST+45, ST+46, ST+48, MATCH+20
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All