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

Package: PCE Patient Care Encounter

Routine: PXCOMPACTEOC


Information

PXCOMPACTEOC ;ALB/BPA,CMC - Supporting routine for editing COMPACT EPISODE OF CARE file ;02/05/2024@13:25

Source Information

Source file <PXCOMPACTEOC.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 3 ^DIC  $$GET1^DIQ  ^DIR  
Kernel 2 $$FMTE^XLFDT  $$UP^XLFSTR  
PCE Patient Care Encounter 1 ($$ASC,$$GETEOC,$$GETEOCSEQ,SETENDDT,SETSTDT,SETVSTFLG)^PXCOMPACT  
Registration 1 (SETPTFFLG,SETPTFMVMT)^DGCOMPACT  

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

Package Total Caller Graph
PCE Patient Care Encounter 1 PX COMPACT ACT EOC EDIT  

Entry Points

Name Comments DBIA/ICR reference
EDIT ;
SDTEDIT(DFN,PXEOCNUM,PXSEQ) ;
S1
EDTEDIT(DFN,PXEOCNUM,PXSEQ,PXIEN) ;
SRCEDIT(PXEOCNUM,PXSEQ) ;
RETRACTMENU ;
RETRACT(DFN,PXENC,MENU) ;
; Call in DG input templates: D RETRACT^PXCOMPACTEOC(DFN,PTF)
  • ICR #7464
    • Status: Active
    • Usage: Private

    External References

    Name Field # of Occurrence
    SETPTFFLG^DGCOMPACT RETRACT+29
    SETPTFMVMT^DGCOMPACT RETRACT+32
    ^DIC EDIT+2, RETRACTMENU+2
    $$GET1^DIQ EDIT+8, EDIT+26
    ^DIR EDIT+14, EDIT+20, EDIT+31, S1+3, EDTEDIT+6, SRCEDIT+5, RETRACTMENU+9, RETRACTMENU+14
    $$ASC^PXCOMPACT RETRACT+24
    $$GETEOC^PXCOMPACT RETRACT+14
    $$GETEOCSEQ^PXCOMPACT RETRACT+16
    SETENDDT^PXCOMPACT EDTEDIT+9, RETRACT+24
    SETSTDT^PXCOMPACT S1+7
    SETVSTFLG^PXCOMPACT RETRACT+35
    $$FMTE^XLFDT S1+3, EDTEDIT+5
    $$UP^XLFSTR SRCEDIT+8

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: EDIT+2
    Function Call: WRITE
    • Prompt: !!,"Episode Start Date: ",STARTDATE
    • Line Location: EDIT+9
    Function Call: WRITE
    • Prompt: !,"Episode End Date: ",ENDDATE
    • Line Location: EDIT+10
    Function Call: WRITE
    • Prompt: !
    • Line Location: EDIT+14
    Function Call: WRITE
    • Prompt: !
    • Line Location: EDIT+20
    Function Call: WRITE
    • Prompt: !!,"Source of Crisis End: ",ENDSRC
    • Line Location: EDIT+27
    Function Call: WRITE
    • Prompt: !
    • Line Location: EDIT+31
    Function Call: WRITE
    • Prompt: !
    • Line Location: S1+3
    Function Call: WRITE
    • Prompt: !,"Start date cannot be in the future."
    • Line Location: S1+5
    Function Call: WRITE
    • Prompt: !,"Episode Start Date updated!"
    • Line Location: S1+8
    Function Call: WRITE
    • Prompt: !
    • Line Location: EDTEDIT+6
    Function Call: WRITE
    • Prompt: !,"Episode End Date updated!"
    • Line Location: EDTEDIT+10
    Function Call: WRITE
    • Prompt: !
    • Line Location: SRCEDIT+5
    Function Call: WRITE
    • Prompt: !,"Source of Crisis End updated!"
    • Line Location: SRCEDIT+9
    Function Call: WRITE
    • Prompt: !
    • Line Location: RETRACTMENU+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: RETRACTMENU+9
    Function Call: WRITE
    • Prompt: !
    • Line Location: RETRACTMENU+14
    Function Call: WRITE
    • Prompt: !,"COMPACT Act Episode of Care retracted"
    • Line Location: RETRACTMENU+17
    Function Call: WRITE
    • Prompt: !,"Internal Patient ID can not be null."
    • Line Location: RETRACT+12
    Function Call: WRITE
    • Prompt: !,"Patient "_DFN_" not in the COMPACT Act episode of care file."
    • Line Location: RETRACT+13
    Function Call: WRITE
    • Prompt: !,"Patient does not have an episode in the COMPACT Episode of Care file."
    • Line Location: RETRACT+16
    Function Call: WRITE
    • Prompt: !,"This is not an inpatient episode of care, cannot be retracted from this menu."
    • Line Location: RETRACT+18
    Routine Call
    • DIC
    • Line Location:
      • EDIT+2
      • RETRACTMENU+2
    Routine Call
    • DIR
    • Line Location:
      • EDIT+14
      • EDIT+20
      • EDIT+31
      • S1+3
      • EDTEDIT+6
      • SRCEDIT+5
      • RETRACTMENU+9
      • RETRACTMENU+14

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PXCOMP(818 - [#818] Classic Fileman Calls
    818.01 GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DGPT - [#45] RETRACT+29, RETRACT+31, RETRACT+32
    ^PXCOMP(818 - [#818] EDIT+5, S1, EDTEDIT+2, SRCEDIT+8*, RETRACT+13, RETRACT+17, RETRACT+18, RETRACT+21, RETRACT+23*, RETRACT+27
    , RETRACT+28, RETRACT+34, RETRACT+35

    Label References

    Name Line Occurrences
    EDTEDIT EDIT+22
    RETRACT RETRACTMENU+16
    RETRACTMENU RETRACTMENU+10, RETRACTMENU+15, RETRACT+18
    S1 S1+5
    SDTEDIT EDIT+16
    SRCEDIT EDIT+33

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    DA RETRACT+8~
    DFN EDIT+1~, EDIT+4*, EDIT+16, EDIT+22, SDTEDIT~, S1+7, EDTEDIT~, EDTEDIT+9, RETRACTMENU+1~, RETRACTMENU+4*
    , RETRACTMENU+16, RETRACT~, RETRACT+12, RETRACT+13, RETRACT+14, RETRACT+16, RETRACT+24, RETRACT+35
    DIC EDIT+1~, EDIT+2*, EDIT+34!, RETRACTMENU+1~, RETRACTMENU+2*
    DIC(0 EDIT+2*, RETRACTMENU+2*
    DIR EDIT+1~, EDIT+11~, EDIT+17!, EDIT+28!, EDIT+34!, SDTEDIT+1~, EDTEDIT+1~, SRCEDIT+1~, RETRACTMENU+1~, RETRACTMENU+6!
    , RETRACTMENU+11!
    DIR("?" S1+3*, EDTEDIT+5*, SRCEDIT+4*
    DIR("A" EDIT+12*, EDIT+18*, EDIT+29*, S1+1*, EDTEDIT+3*, SRCEDIT+2*, RETRACTMENU+7*, RETRACTMENU+12*
    DIR("B" EDIT+13*, EDIT+19*, EDIT+30*, RETRACTMENU+8*, RETRACTMENU+13*
    DIR(0 EDIT+13*, EDIT+19*, EDIT+30*, S1+2*, EDTEDIT+4*, SRCEDIT+3*, RETRACTMENU+8*, RETRACTMENU+13*
    DT S1, S1+5, EDTEDIT+4, RETRACT+24
    ENDDATE EDIT+1~, EDIT+8*, EDIT+10
    ENDSRC EDIT+1~, EDIT+26*, EDIT+27
    FMENDDATE SDTEDIT+1~, S1*, S1+2, S1+3
    FMSTDATE EDTEDIT+1~, EDTEDIT+2*, EDTEDIT+4, EDTEDIT+5
    MENU RETRACT~, RETRACT+11*, RETRACT+17, RETRACT+18
    PTFMVTSEQ RETRACT+30~*, RETRACT+32*
    PXENC RETRACT~, RETRACT+10*, RETRACT+21
    PXEOCNUM EDIT+1~, EDIT+4*, EDIT+5, EDIT+6, EDIT+16, EDIT+22, EDIT+33, SDTEDIT~, S1, EDTEDIT~
    , EDTEDIT+2, SRCEDIT~, SRCEDIT+8, RETRACT+8~, RETRACT+9*, RETRACT+14*, RETRACT+15, RETRACT+17, RETRACT+18, RETRACT+21
    , RETRACT+23, RETRACT+27, RETRACT+28, RETRACT+34, RETRACT+35
    PXEOCSEQ RETRACT+8~, RETRACT+9*, RETRACT+16*, RETRACT+17, RETRACT+18, RETRACT+21, RETRACT+23, RETRACT+27, RETRACT+28, RETRACT+34
    , RETRACT+35
    PXIEN EDIT+1~, EDIT+6*, EDIT+8, EDIT+22, EDIT+26, EDTEDIT~
    PXPTF RETRACT+8~, RETRACT+9*, RETRACT+26*, RETRACT+28*, RETRACT+29, RETRACT+31, RETRACT+32
    PXPTFSEQ RETRACT+8~, RETRACT+9*, RETRACT+26*, RETRACT+27*, RETRACT+28
    PXSEQ EDIT+1~, EDIT+5*, EDIT+6, EDIT+16, EDIT+22, EDIT+33, SDTEDIT~, S1, EDTEDIT~, EDTEDIT+2
    , SRCEDIT~, SRCEDIT+8
    PXVST RETRACT+8~, RETRACT+9*, RETRACT+33*, RETRACT+35*
    PXVSTSEQ RETRACT+8~, RETRACT+9*, RETRACT+33*, RETRACT+34*, RETRACT+35
    STARTDATE EDIT+1~, EDIT+8*, EDIT+9
    X SDTEDIT+1~, EDTEDIT+1~, SRCEDIT+1~
    Y EDIT+1~, EDIT+3, EDIT+4, EDIT+15, EDIT+16, EDIT+21, EDIT+22, EDIT+32, EDIT+33, SDTEDIT+1~
    , S1+4, S1+5, S1+7, EDTEDIT+1~, EDTEDIT+7, EDTEDIT+9, SRCEDIT+1~, SRCEDIT+6, SRCEDIT+8, RETRACTMENU+1~
    , RETRACTMENU+3, RETRACTMENU+4, RETRACTMENU+10, RETRACTMENU+11!, RETRACTMENU+15, RETRACTMENU+16
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All