Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

    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

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PXCOMP(818 - [#818] Classic Fileman Calls
    818.01 GET1^DIQ
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call