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

Package: PCE Patient Care Encounter

Routine: PXCOMPACTDISP


Information

PXCOMPACTDISP ;ALB/BPA,CMC - API to display COMPACT Act Episode of Care file (818);08/06/2024@10:58

Source Information

Source file <PXCOMPACTDISP.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 2 ^DIC  YN^DICN  
Kernel 1 $$FMTE^XLFDT  
PCE Patient Care Encounter 1 EXTRACT^PXCOMPACTAPI  

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 DISPLAY  

Entry Points

Name Comments DBIA/ICR reference
EN ;
LOOP ;

External References

Name Field # of Occurrence
^DIC EN+2
YN^DICN EN+12
EXTRACT^PXCOMPACTAPI EN+5
$$FMTE^XLFDT LOOP+3, LOOP+4, LOOP+5, LOOP+6, LOOP+24, LOOP+29, LOOP+34

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!!,"Patient Name: "_$G(PXCOMPACT("PATIENT NAME"))
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,"Patient Id: "_$G(PXCOMPACT("PATIENT ID"))
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,"Benefit Type: "_$S($G(PXCOMPACT("BENEFIT TYPE"))="O":"Outpatient",$G(PXCOMPACT("BENEFIT TYPE"))="I":"Inpatient",1:"")
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,"Episode of Care Open/Closed: "_$S($G(PXCOMPACT("EOC OPEN/CLOSE FLAG"))=1:"Open",1:"Closed")
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !,"Would you like to view another patient"
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !,"Episode Start Date: "_$$FMTE^XLFDT($G(PXCOMPACT("EPISODE",EPSEQ,"EPISODE START DATE")))
  • Line Location: LOOP+3
Function Call: WRITE
  • Prompt: !,"Episode End Date: "_$$FMTE^XLFDT($G(PXCOMPACT("EPISODE",EPSEQ,"EPISODE END DATE")))
  • Line Location: LOOP+4
Function Call: WRITE
  • Prompt: !,"Outpatient Benefit End Date: "_$$FMTE^XLFDT($G(PXCOMPACT("EPISODE",EPSEQ,"OUTPATIENT BENEFIT END DATE")))
  • Line Location: LOOP+5
Function Call: WRITE
  • Prompt: !,"Inpatient Benefit End Date: "_$$FMTE^XLFDT($G(PXCOMPACT("EPISODE",EPSEQ,"INPATIENT BENEFIT END DATE")))
  • Line Location: LOOP+6
Function Call: WRITE
  • Prompt: !,"Remaining Inpatient Days: "_$G(PXCOMPACT("EPISODE",EPSEQ,"REMAINING INPATIENT DAYS"))
  • Line Location: LOOP+7
Function Call: WRITE
  • Prompt: !,"Remaining Outpatient Days: "_$G(PXCOMPACT("EPISODE",EPSEQ,"REMAINING OUTPATIENT DAYS"))
  • Line Location: LOOP+8
Function Call: WRITE
  • Prompt: !,"Source of Crisis End: "_$S(ENDSOURCE="PR":"Provider",ENDSOURCE="PA":"Patient","TE":"Time Expired",1:"")
  • Line Location: LOOP+10
Function Call: WRITE
  • Prompt: !,"Episode Source: "_$S(SOURCE="A":"Auto Adjudication",SOURCE="V":"VistA",1:"")
  • Line Location: LOOP+12
Function Call: WRITE
  • Prompt: !,"Last COMPACT Act Admin Eligibility Flag: "_$S(LASTFLAG="E":"Eligible",LASTFLAG="N":"Not Eligible",LASTFLAG="U":"Undetermined",1:"")
  • Line Location: LOOP+14
Function Call: WRITE
  • Prompt: !,"Episode Final Status: "_$S(LASTSTAT="R":"Rollback",LASTSTAT="E":"Entered in Error",1:"")
  • Line Location: LOOP+16
Function Call: WRITE
  • Prompt: !,"Crisis End Authorized By: "_$P($G(^VA(200,AUTHBY,0)),"^")
  • Line Location: LOOP+18
Function Call: WRITE
  • Prompt: !,"Crisis End Other Comment: "_$G(PXCOMPACT("EPISODE",EPSEQ,"CRISIS END OTHER COMMENT"))
  • Line Location: LOOP+19
Function Call: WRITE
  • Prompt: !,"PTF: "_$$FMTE^XLFDT(PTF)
  • Line Location: LOOP+24
Function Call: WRITE
  • Prompt: !,"Movement: "_$$FMTE^XLFDT(MOVEMENT)
  • Line Location: LOOP+29
Function Call: WRITE
  • Prompt: !,"Visit: "_$$FMTE^XLFDT(VISIT)
  • Line Location: LOOP+34
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOP+35
Routine Call
  • DIC
  • Line Location:
    • EN+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] LOOP+33
^DGPM - [#405] LOOP+28
^DGPT - [#45] LOOP+23
^VA(200 - [#200] LOOP+18

Label References

Name Line Occurrences
EN EN+12
LOOP EN+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN+1~, EN+12*
AUTHBY EN+1~, LOOP+17*, LOOP+18
DFN EN+1~, EN+4*, EN+5
DIC EN+1~, EN+2*
DIC(0 EN+2*
ENDSOURCE EN+1~, LOOP+9*, LOOP+10
EPSEQ EN+1~, LOOP+1*, LOOP+2*, LOOP+3, LOOP+4, LOOP+5, LOOP+6, LOOP+7, LOOP+8, LOOP+9
, LOOP+11, LOOP+13, LOOP+15, LOOP+17, LOOP+19, LOOP+21, LOOP+22, LOOP+26, LOOP+27, LOOP+31
, LOOP+32
LASTFLAG EN+1~, LOOP+13*, LOOP+14
LASTSTAT EN+1~, LOOP+15*, LOOP+16
MOVEMENT EN+1~, LOOP+27*, LOOP+28*, LOOP+29
MOVESEQ EN+1~, LOOP+25*, LOOP+26*, LOOP+27
PTF EN+1~, LOOP+22*, LOOP+23*, LOOP+24
PTFSEQ EN+1~, LOOP+20*, LOOP+21*, LOOP+22, LOOP+26, LOOP+27
PXCOMPACT EN+1~, EN+5
PXCOMPACT("BE NEFIT TYPE" , EN+8
PXCOMPACT("EO C OPEN/CLOSE FLAG" , EN+9
PXCOMPACT("EPISODE" LOOP+2, LOOP+3, LOOP+4, LOOP+5, LOOP+6, LOOP+7, LOOP+8, LOOP+9, LOOP+11, LOOP+13
, LOOP+15, LOOP+17, LOOP+19, LOOP+21, LOOP+22, LOOP+26, LOOP+27, LOOP+31, LOOP+32
PXCOMPACT("PA TIENT ID" , EN+7, TIENT NAME" , EN+6
PXEOCNUM EN+1~
SOURCE EN+1~, LOOP+11*, LOOP+12
VISIT EN+1~, LOOP+32*, LOOP+33*, LOOP+34
VISITSEQ EN+1~, LOOP+30*, LOOP+31*, LOOP+32
Y EN+1~, EN+3, EN+4
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