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

Package Total Call Graph
VA FileMan 4 YN^DICN  (FILE,UPDATE)^DIE  ^DIK  DT^DILF  
Registration 3 $$GETMVMT^DGCOMPACT  $$ELIG^DGCOMPACTELIG  $$SITE^VASITE  
Kernel 1 ($$FMADD,$$FMTE)^XLFDT  
PCE Patient Care Encounter 1 ($$ASC,$$GETBENTYP,$$GETEOC,$$GETEOCSEQ,$$GETIPDT,$$GETPOINTRSEQ,$$GETSTDT,ADMIT,SETENDDT,SETSTDT,VISIT)^PXCOMPACT  

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

Package Total Caller Graph
Registration 5 DGCOMPACT  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 ;
    CHKMVMT(DFN,PTF) ;
    GETMVMT(DFN,PTF,DGPMDA) ;
    REVERT(DFN,PTF,DGPMT) ;
    ; get EOC number
    DELPTF ;

    External References

    Name Field # of Occurrence
    $$GETMVMT^DGCOMPACT GO+11, GO+28
    $$ELIG^DGCOMPACTELIG REVERT+38
    YN^DICN GO+1, GO+8, GO+78
    FILE^DIE GO+48
    UPDATE^DIE EDITADMIT+12, GO+60, GO+71
    ^DIK GO+13, GO+23, GO+30, DELPTF+4
    DT^DILF DT+5
    $$ASC^PXCOMPACT GO+1, GO+4, GO+51, GO+63, GO+79, DT+2
    $$GETBENTYP^PXCOMPACT GO+8, GO+19, GO+44, GO+51, GO+63, GO+79, DT+2, REVERT+11
    $$GETEOC^PXCOMPACT EDITADMIT+6, GO+2, CHKMVMT+3, GETMVMT+2, REVERT+3
    $$GETEOCSEQ^PXCOMPACT EDITADMIT+7, GO+2, CHKMVMT+4, GETMVMT+3, REVERT+5
    $$GETIPDT^PXCOMPACT GO+79
    $$GETPOINTRSEQ^PXCOMPACT EDITADMIT+8, GO+3, GO+10, GO+27, GO+55, GO+66, CHKMVMT+5, GETMVMT+4, REVERT+7
    $$GETSTDT^PXCOMPACT GO+36, GO+80, REVERT+15, REVERT+27
    ADMIT^PXCOMPACT EDITADMIT+3
    SETENDDT^PXCOMPACT REVERT+40, REVERT+53
    SETSTDT^PXCOMPACT GO+49, GO+73
    VISIT^PXCOMPACT GO+54, GO+65
    $$SITE^VASITE QUERY+18
    $$FMADD^XLFDT REVERT+22, REVERT+36
    $$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+3
    Function Call: WRITE
    • Prompt: $C(7),"??",!," Invalid Date!"
    • Line Location: DT+5
    Routine Call
    • DIE
    • Line Location:
      • GO+48
    Routine Call
    • DIE
    • Line Location:
      • EDITADMIT+12
      • GO+60
      • GO+71

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^AUPNVSIT - [#9000010] REVERT+18
    ^DGCOMP(33.3 - [#33.3] QUERY+3, QUERY+5, QUERY+7, QUERY+8
    ^DGPM - [#405] GO+36, GO+73
    ^DGPT - [#45] SETPTFFLG+8*, SETPTFFLG+9*, SETPTFMVMT+9*, SETPTFMVMT+11*
    ^PXCOMP(818 - [#818] GO+7, GO+35, GO+40, GO+41, GO+42, GO+43*, GO+51, GO+53, CHKMVMT+6, GETMVMT+5
    , REVERT+14, REVERT+17, REVERT+20*, REVERT+21*, REVERT+22*, REVERT+23*, REVERT+29, REVERT+30, REVERT+31, REVERT+33*
    , REVERT+34*, REVERT+35, REVERT+36*, REVERT+37!, REVERT+39*, REVERT+43*, REVERT+47*, REVERT+54*
    ^UTILITY($J EDITADMIT+2, EDITADMIT+13!, DT+6*

    Label References

    Name Line Occurrences
    $$CHKMVMT GO+7, GO+25, GO+79
    DELPTF REVERT+12, REVERT+25, REVERT+46, REVERT+50
    DT DT+5
    GO GO+1, GO+8, GO+78
    REVERT GO+19
    SETPTFFLG GO+16
    SETPTFMVMT GO+18, GO+33, GO+61, GO+75

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % GO~, GO+1*, GO+4, GO+8*, GO+51, GO+63, GO+77, GO+78*, DT+1, DT+5*
    ADMTYP EDITADMIT+1~, EDITADMIT+2*, EDITADMIT+3, EDITADMIT+13!
    CDATA EDITADMIT+1~, GO~, GO+2*
    CDATA( EDITADMIT+4*, EDITADMIT+11*, GO+47*, GO+59*, GO+70*
    CMPMSG EDITADMIT+1~, EDITADMIT+4*
    COUNT QUERY+2~, QUERY+22*, QUERY+23, CHKMVMT+1~, CHKMVMT+6*, CHKMVMT+7
    DA GO~, GO+11*, GO+14!, GO+21~, GO+22*, GO+24!, GO+28*, GO+31!, REVERT+2~, DELPTF+2~
    , DELPTF+3*, DELPTF+5!
    DA(1 GO+11*, GO+12, GO+22*, GO+28*, GO+29, DELPTF+3*
    DA(2 GO+11*, GO+12, GO+22*, GO+28*, GO+29, DELPTF+3*
    DA(3 GO+11*, GO+12, GO+28*, GO+29
    DATA QUERY+2~, QUERY+29*, QUERY+30
    DEF GO~
    DFN EDITADMIT+1~, EDITADMIT+2*, EDITADMIT+3, EDITADMIT+6, EDITADMIT+7, EDITADMIT+8, ADMIT~, GO+1, GO+2, GO+3
    , GO+4, GO+7, GO+8, GO+10, GO+11, GO+19, GO+25, GO+27, GO+28, GO+36
    , GO+44, GO+49, GO+51, GO+54, GO+55, GO+63, GO+65, GO+66, GO+73, GO+79
    , GO+80, DT+2, DT+6, CHKMVMT~, CHKMVMT+3, CHKMVMT+4, CHKMVMT+5, GETMVMT~, GETMVMT+2, GETMVMT+3
    , GETMVMT+4, REVERT~, REVERT+3, REVERT+5, REVERT+7, REVERT+11, REVERT+15, REVERT+27, REVERT+38, REVERT+40
    , REVERT+53
    DGENC SETPTFFLG~, SETPTFFLG+8, SETPTFFLG+9, SETPTFMVMT~, SETPTFMVMT+9, SETPTFMVMT+11
    DGPMDA EDITADMIT+10, EDITADMIT+11, GO+7, GO+11, GO+28, GO+58, GO+59, GO+69, GO+70, GO+73
    , GETMVMT~, GETMVMT+5
    DGPMT REVERT~
    DGSEQ SETPTFMVMT~, SETPTFMVMT+9
    DGSTDT EDITADMIT+1~, EDITADMIT+2*, EDITADMIT+3, EDITADMIT+13!
    DGVAL SETPTFFLG~, SETPTFFLG+9, SETPTFMVMT~, SETPTFMVMT+9, SETPTFMVMT+11
    DIK GO+12*, GO+14!, GO+21~, GO+22*, GO+24!, GO+29*, GO+31!, REVERT+2~, DELPTF+2~, DELPTF+3*
    , DELPTF+5!
    DT REVERT+40, REVERT+53
    ELIG REVERT+2~, REVERT+38*, REVERT+39
    ERROR GO~, GO+2*, GO+51, GO+53*
    FIRSTMOVE GO~, GO+35*, GO+36
    FLAG REVERT+2~, REVERT+3*, REVERT+14, REVERT+17, REVERT+18*, REVERT+19
    FOUND REVERT+2~, REVERT+28*, REVERT+29, REVERT+44*, REVERT+48
    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
    MOVE GETMVMT+1~, GETMVMT+5*, GETMVMT+6
    MOVEDT GO~, GO+36*, GO+37, GO+43, GO+47, GO+49
    PTF EDITADMIT~, EDITADMIT+3, EDITADMIT+8, ADMIT~, GO+3, GO+7, GO+10, GO+11, GO+16, GO+18
    , GO+19, GO+25, GO+27, GO+28, GO+33, GO+51, GO+54, GO+55, GO+61, GO+65
    , GO+66, GO+75, GO+79, CHKMVMT~, CHKMVMT+2, CHKMVMT+5, GETMVMT~, GETMVMT+4, REVERT~, REVERT+7
    PTFPOINT EDITADMIT+8*, EDITADMIT+9, GO~, GO+2*, GO+3*, GO+6, GO+7, GO+10*, GO+11, GO+22
    , GO+27*, GO+28, GO+35, GO+55*, GO+57, GO+65, GO+66*, GO+68, CHKMVMT+1~, CHKMVMT+5*
    , CHKMVMT+6, GETMVMT+1~, GETMVMT+4*, GETMVMT+5, REVERT+2~, REVERT+7*, REVERT+8, DELPTF+3
    PXEOCNUM EDITADMIT+6*, EDITADMIT+9, GO+2*, GO+7, GO+11, GO+22, GO+28, GO+35, GO+40, GO+41
    , GO+42, GO+43, GO+46, GO+51, GO+53, GO+54, GO+57, GO+65, GO+68, CHKMVMT+1~
    , CHKMVMT+3*, CHKMVMT+6, GETMVMT+1~, GETMVMT+2*, GETMVMT+5, REVERT+2~, REVERT+3*, REVERT+14, REVERT+17, REVERT+20
    , REVERT+21, REVERT+22, REVERT+23, REVERT+29, REVERT+30, REVERT+31, REVERT+33, REVERT+34, REVERT+35, REVERT+36
    , REVERT+37, REVERT+39, REVERT+43, REVERT+47, REVERT+54, DELPTF+3
    PXEOCSEQ EDITADMIT+7*, EDITADMIT+9, GO+2*, GO+7, GO+11, GO+22, GO+28, GO+35, GO+41, GO+46
    , GO+51, GO+53, GO+57, GO+68, CHKMVMT+1~, CHKMVMT+4*, CHKMVMT+6, GETMVMT+1~, GETMVMT+3*, GETMVMT+5
    , REVERT+2~, REVERT+5*, REVERT+14, REVERT+17, REVERT+22, REVERT+23, REVERT+43, REVERT+54, DELPTF+3
    PXIENS EDITADMIT+1~, EDITADMIT+9*, EDITADMIT+11, GO~, GO+46*, GO+47, GO+57*, GO+59, GO+68*, GO+70
    PXNWSTDT GO~, GO+80*, DT+5, DT+6
    PXSTARTDT REVERT+2~, REVERT+15*, REVERT+18, REVERT+22, REVERT+27*, REVERT+31
    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
    SEQCHK GO~, GO+39*, GO+40*, GO+41, GO+42, GO+43, REVERT+2~, REVERT+28*, REVERT+29*, REVERT+30
    , REVERT+31, REVERT+33, REVERT+34, REVERT+35, REVERT+36, REVERT+37, REVERT+39
    SITE QUERY+2~, QUERY+18*, QUERY+19
    STARTDT GO~, GO+36*, GO+37, GO+42, REVERT+2~, REVERT+35*, REVERT+36
    STDT GO~, DT+3*, DT+4*, DT+5
    VISIT REVERT+2~, REVERT+16*, REVERT+17*, REVERT+18
    X GO~, REVERT+2~
    Y GO~, REVERT+2~
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All