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

Package: Registration

Routine: DGCOMPACT


Information

DGCOMPACT ;ALB/BPA,CMC - Routine for COMPACT Act processing the DG;12/18/2023@9:26am

Source Information

Source file <DGCOMPACT.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
PCE Patient Care Encounter 2 ($$ASC,$$GETBENTYP,$$GETIPDT,$$GETSTDT,ADMIT)^PXCOMPACT  RETRACT^PXCOMPACTEOC  
VA FileMan 2 YN^DICN  DT^DILF  
Kernel 1 $$FMTE^XLFDT  
Registration 1 $$SITE^VASITE  

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

Package Total Caller Graph
Registration 4 DGPMV3  DGPMV36  DGPMX1  DGPTTS  
PCE Patient Care Encounter 2 PXCOMPACT  PXCOMPACTEOC  

Entry Points

Name Comments DBIA/ICR reference
SETPTFFLG(DGENC,DGVAL) ;
; API to set TRT FOR ACUTE SUICIDAL CRISIS flag in PTF 101
; DGENC - Encounter ID (PTF IEN)
; DGVAL - Value to set into flag
; For YES: D SETPTFFLG^DGCOMPACT(DGENC,1)
; For NO: D SETPTFFLG^DGCOMPACT(DGENC,0)
; For NULL: D SETPTFFLG^DGCOMPACT(DGENC,"")
; Create a 70 level in the PTF file if it is not set
  • ICR #7463
    • Status: Active
    • Usage: Private
    SETPTFMVMT(DGENC,DGVAL,DGSEQ) ;
    ; API to set TREATMENT FOR SUICIDAL CRISIS flag in PTF 501
    ; DGENC - Encounter ID (PTF IEN)
    ; DGVAL - Value to set into flag
    ; DGSEQ - Movement sequence *not required
    ; For YES: D SETPTFMVMT^DGCOMPACT(DGENC,"Y",DGSEQ)
    ; For NO: D SETPTFMVMT^DGCOMPACT(DGENC,"N",DGSEQ)
    ; For NULL: D SETPTFMVMT^DGCOMPACT(DGENC,"",DGSEQ)
    ; When setting a sequence other than the first one, pass the sequence number
  • ICR #7463
    • Status: Active
    • Usage: Private
    EDITADMIT(PTF) ;
    QUERY ;
    ADMIT(DFN,PTF) ;
    GO
    DT ;

    External References

    Name Field # of Occurrence
    YN^DICN GO+1, GO+4
    DT^DILF DT+4
    $$ASC^PXCOMPACT GO+5
    $$GETBENTYP^PXCOMPACT GO+5
    $$GETIPDT^PXCOMPACT GO+5
    $$GETSTDT^PXCOMPACT GO+6
    ADMIT^PXCOMPACT EDITADMIT+3
    RETRACT^PXCOMPACTEOC GO+2
    $$SITE^VASITE QUERY+18
    $$FMTE^XLFDT QUERY+30

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"Data Not Available"
    • Line Location: QUERY+3
    Function Call: WRITE
    • Prompt: !,"Site # ",SITE
    • Line Location: QUERY+19
    Function Call: WRITE
    • Prompt: !!,"Calling Routine: ",ROUTINE," Request Count: ",COUNT
    • Line Location: QUERY+23
    Function Call: WRITE
    • Prompt: !,ICN
    • Line Location: QUERY+26
    Function Call: WRITE
    • Prompt: !," Request: ",$S($L(REQ)=18:REQ_":00",1:REQ)
    • Line Location: QUERY+31
    Function Call: WRITE
    • Prompt: !," Response: ",$S($L(RESP)=18:RESP_":00",1:RESP)," ",$TR(RESPCODE,"~","^"),!
    • Line Location: QUERY+32
    Function Call: WRITE
    • Prompt: !!,"ADMITTED FOR ACUTE SUICIDAL CRISIS"
    • Line Location: GO+1
    Function Call: WRITE
    • Prompt: !," ACUTE SUICIDAL CRISIS START DATE?: NOW//"
    • Line Location: DT+2
    Function Call: WRITE
    • Prompt: $C(7),"??",!," Invalid Date!"
    • Line Location: DT+4

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DGCOMP(33.3 - [#33.3] QUERY+3, QUERY+5, QUERY+7, QUERY+8
    ^DGPT - [#45] SETPTFFLG+8*, SETPTFFLG+9*, SETPTFMVMT+9*, SETPTFMVMT+11*
    ^UTILITY($J EDITADMIT+2, EDITADMIT+4!, DT+5*

    Label References

    Name Line Occurrences
    DT DT+4
    GO GO+1, GO+4

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % GO~, GO+1*, GO+2, GO+3, GO+4*, DT+1, DT+4*
    ADMTYP EDITADMIT+1~, EDITADMIT+2*, EDITADMIT+3, EDITADMIT+4!
    COUNT QUERY+2~, QUERY+22*, QUERY+23
    DA GO~
    DATA QUERY+2~, QUERY+29*, QUERY+30
    DEF GO~
    DFN EDITADMIT+1~, EDITADMIT+2*, EDITADMIT+3, ADMIT~, GO+2, GO+5, GO+6, DT+5
    DGENC SETPTFFLG~, SETPTFFLG+8, SETPTFFLG+9, SETPTFMVMT~, SETPTFMVMT+9, SETPTFMVMT+11
    DGSEQ SETPTFMVMT~, SETPTFMVMT+9
    DGSTDT EDITADMIT+1~, EDITADMIT+2*, EDITADMIT+3, EDITADMIT+4!
    DGVAL SETPTFFLG~, SETPTFFLG+9, SETPTFMVMT~, SETPTFMVMT+9, SETPTFMVMT+11
    ICN QUERY+2~, QUERY+4*, QUERY+5*, QUERY+7, QUERY+11, QUERY+12, QUERY+14, QUERY+24*, QUERY+25*, QUERY+26
    , QUERY+28, QUERY+29
    PTF EDITADMIT~, EDITADMIT+3, ADMIT~, GO+2
    PXNWSTDT GO~, GO+6*, DT+4, DT+5
    RECORD QUERY+2~, QUERY+8*, QUERY+9, QUERY+10
    REQ QUERY+2~, QUERY+30*, QUERY+31
    REQUEST QUERY+2~, QUERY+9*, QUERY+12, QUERY+14
    RESP QUERY+2~, QUERY+30*, QUERY+32
    RESPCODE QUERY+2~, QUERY+9*, QUERY+12, QUERY+14, QUERY+30*, QUERY+32
    RESPDATE QUERY+2~, QUERY+9*, QUERY+12, QUERY+14
    ROUTINE QUERY+2~, QUERY+9*, QUERY+10*, QUERY+11, QUERY+12, QUERY+13, QUERY+14, QUERY+20*, QUERY+21*, QUERY+22
    , QUERY+23, QUERY+25, QUERY+28, QUERY+29
    ROUTINE( QUERY+11, QUERY+12*, QUERY+13*, QUERY+14*, QUERY+21, QUERY+22, QUERY+25, QUERY+28, QUERY+29
    RSEQ QUERY+2~, QUERY+27*, QUERY+28*, QUERY+29
    SEQ QUERY+2~, QUERY+6*, QUERY+7*, QUERY+8
    SITE QUERY+2~, QUERY+18*, QUERY+19
    STDT GO~, DT+2*, DT+3*, DT+4
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All