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

Entry Points

Name Comments DBIA/ICR reference
EN ;
LOOP ;

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

FileMan Files Accessed Via FileMan Db Call

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