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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: SDAMBAE3

Package: Scheduling

Routine: SDAMBAE3


Information

SDAMBAE3 ;ALB/BOK/MJK - ADD/EDIT CON'T ;7/8/91 12:18 ;

Source Information

Source file <SDAMBAE3.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
DRG Grouper 1 ($$CPT,$$CPTD)^ICPTCOD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Scheduling 1 CLINIC STOP CODE  

Entry Points

Name Comments DBIA/ICR reference
DUP ; -- inp transform to check for duplicate CPTs in ^DD(409.51,21:25,0)
; variable '%' is passed and defined as the piece beinging edited
SCREEN ; -- screen logic for 409.51 proc fields
; finds status for effective date DA(1)
  • ICR #1993
    • Status: Retired
    • Usage: Private
    DUPQ
    ID ; -- DIC("W") logic for amb proc look-ups
  • ICR #1993
    • Status: Retired
    • Usage: Private
    DUPMES ;

    External References

    Name Field # of Occurrence
    $$CPT^ICPTCOD DUPMES+1, SCREEN+2, ID+2, ID+10
    $$CPTD^ICPTCOD ID+8

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !?2,*7,"WARNING: '",$P(SDX,U,3),"' has already been entered for this",!?11,"patient on this VISIT DATE(Entry #",C,").",!!?11,"Procedure will be added again."
    • Line Location: DUPMES+2
    Function Call: WRITE
    • Prompt: ?4,$P(SDICPT1,U,3)
    • Line Location: ID+4
    Function Call: WRITE
    • Prompt: !?10,"** INACTIVE **"
    • Line Location: ID+5
    Function Call: WRITE
    • Prompt: !?10,SDICPT(SDIX)
    • Line Location: ID+8
    Function Call: WRITE
    • Prompt: !?9
    • Line Location: ID+10

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^SDV - [#409.5] DUP+3
    ^SDV("AP" DUP+3

    Label References

    Name Line Occurrences
    DUPMES DUP+3
    DUPQ DUP+3

    Naked Globals

    Name Field # of Occurrence
    ^("PR" DUP+3

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % DUP+3
    C DUP+3*, DUPQ!, DUPMES+2
    >> D ID+2
    >> DA DUP+3
    >> DA(1 DUP+3, SCREEN+2
    >> I DUP+3*
    SDICPT ID+1~, ID+8*
    SDICPT( ID+8
    SDICPT1 ID+1~, ID+2*, ID+3, ID+4, ID+5
    SDIX ID+1~, ID+8*
    SDX DUPMES+1~*, DUPMES+2, DUPMES+3!
    U DUP+3, DUPMES+2, SCREEN+2, ID+4, ID+5
    >> X DUP+3, DUPMES+1
    >> Y DUP+3*, SCREEN+2, ID+2, ID+8, ID+10
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All