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

Package: PCE Patient Care Encounter

Routine: PXCOMPACTAPI


Information

PXCOMPACTAPI ;ALB/BPA,CMC - API to extract COMPACT Act Episode of Care file (818);05/03/2024@10:58

Source Information

Source file <PXCOMPACTAPI.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
PCE Patient Care Encounter 1 $$GETEOC^PXCOMPACT  
VA FileMan 1 $$GET1^DIQ  

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

Package Total Caller Graph
PCE Patient Care Encounter 2 PXCOMPACTDISP  PXCOMPACTHL7  

Entry Points

Name Comments DBIA/ICR reference
BATCH(DFNARRAY,ARRAY) ;
; Input: DFNARARY array
; Output: ARRAY array
; ARRAY(DFN,"EPISODE",episodeSequence,"INFO")=Episode Start Date^Episode End Date^Administrative Eligibility^EOC OPEN/CLOSE Y/N
; ARRAY(DFN,"EPISODE",episodeSequence,"VISIT",visitSequence)="Visit^Treatment Related to Compact"
; ARRAY(DFN,"EPISODE",episodeSequence,"PTF",ptfSequence)="PTF^Treatment Related to Compact"
; accept an array of DFNs to get COMPACT status
EXTRACT(DFN,PXCOMPACT) ;

External References

Name Field # of Occurrence
$$GET1^DIQ BATCH+14, BATCH+20, BATCH+21, BATCH+22, EXTRACT+35, EXTRACT+36, EXTRACT+59, EXTRACT+73
$$GETEOC^PXCOMPACT BATCH+12, EXTRACT+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PXCOMP(818 - [#818] GET1^DIQ
818.01 GET1^DIQ
818.02 GET1^DIQ
818.03 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] BATCH+31
^DGPT - [#45] BATCH+27
^DPT - [#2] EXTRACT+9
^PXCOMP(818 - [#818] BATCH+11, BATCH+13, BATCH+15, BATCH+18, BATCH+24, BATCH+26, BATCH+27, BATCH+28, BATCH+30, BATCH+31
, EXTRACT+4, EXTRACT+11, EXTRACT+12, EXTRACT+14, EXTRACT+18, EXTRACT+21, EXTRACT+22, EXTRACT+23, EXTRACT+24, EXTRACT+25
, EXTRACT+26, EXTRACT+27, EXTRACT+28, EXTRACT+30, EXTRACT+31, EXTRACT+32, EXTRACT+37, EXTRACT+38, EXTRACT+40, EXTRACT+41
, EXTRACT+43, EXTRACT+44, EXTRACT+45, EXTRACT+46, EXTRACT+48, EXTRACT+49, EXTRACT+50, EXTRACT+51, EXTRACT+53, EXTRACT+55
, EXTRACT+57, EXTRACT+58, EXTRACT+60, EXTRACT+61, EXTRACT+62, EXTRACT+63, EXTRACT+64, EXTRACT+65, EXTRACT+67, EXTRACT+69
, EXTRACT+71, EXTRACT+72, EXTRACT+74, EXTRACT+75, EXTRACT+76, EXTRACT+77, EXTRACT+78

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADMIN BATCH+7~, BATCH+22*, BATCH+32
ARRAY BATCH~
ARRAY( BATCH+11*, BATCH+27*, BATCH+31*, BATCH+32*
ASC BATCH+7~, BATCH+14*, BATCH+32
DFN BATCH+7~, BATCH+8*, BATCH+9*, BATCH+11, BATCH+12, BATCH+13, BATCH+27, BATCH+31, BATCH+32, EXTRACT~
, EXTRACT+3, EXTRACT+4, EXTRACT+7, EXTRACT+8, EXTRACT+9
DFNARRAY BATCH~
DFNARRAY( BATCH+9
ENDDT BATCH+7~, BATCH+21*, BATCH+32
PTF BATCH+7~, BATCH+27*
PXCOMPACT EXTRACT~, EXTRACT+6!
PXCOMPACT("BE NEFIT TYPE" , EXTRACT+12*
PXCOMPACT("COMPACTMSG" EXTRACT+3*, EXTRACT+4*
PXCOMPACT("EO C OPEN/CLOSE FLAG" , EXTRACT+11*
PXCOMPACT("EP ISODE OF CARE NUMBER" , EXTRACT+13*
PXCOMPACT("EPISODE" EXTRACT+21*, EXTRACT+22*, EXTRACT+23*, EXTRACT+24*, EXTRACT+25*, EXTRACT+26*, EXTRACT+27*, EXTRACT+28*, EXTRACT+31*, EXTRACT+32*
, EXTRACT+35*, EXTRACT+36*, EXTRACT+41*, EXTRACT+44*, EXTRACT+49*, EXTRACT+50*, EXTRACT+57*, EXTRACT+58*, EXTRACT+59*, EXTRACT+60*
, EXTRACT+61*, EXTRACT+62*, EXTRACT+63*, EXTRACT+64*, EXTRACT+71*, EXTRACT+72*, EXTRACT+73*, EXTRACT+74*, EXTRACT+75*, EXTRACT+76*
, EXTRACT+77*, EXTRACT+78*
PXCOMPACT("NOEPISODES" EXTRACT+10*
PXCOMPACT("PA TIENT ID" , EXTRACT+8*, TIENT NAME" , EXTRACT+9*
PXEOCNUM BATCH+7~, BATCH+12*, BATCH+15, BATCH+18, BATCH+19, BATCH+23, BATCH+24, BATCH+26, BATCH+27, BATCH+28
, BATCH+30, BATCH+31, EXTRACT+1~, EXTRACT+2*, EXTRACT+7*, EXTRACT+10, EXTRACT+11, EXTRACT+12, EXTRACT+13, EXTRACT+14
, EXTRACT+18, EXTRACT+21, EXTRACT+22, EXTRACT+23, EXTRACT+24, EXTRACT+25, EXTRACT+26, EXTRACT+27, EXTRACT+28, EXTRACT+30
, EXTRACT+31, EXTRACT+32, EXTRACT+34, EXTRACT+37, EXTRACT+38, EXTRACT+40, EXTRACT+41, EXTRACT+43, EXTRACT+44, EXTRACT+45
, EXTRACT+46, EXTRACT+48, EXTRACT+49, EXTRACT+50, EXTRACT+51, EXTRACT+53, EXTRACT+55, EXTRACT+56, EXTRACT+57, EXTRACT+58
, EXTRACT+60, EXTRACT+61, EXTRACT+62, EXTRACT+63, EXTRACT+64, EXTRACT+65, EXTRACT+67, EXTRACT+69, EXTRACT+70, EXTRACT+71
, EXTRACT+72, EXTRACT+74, EXTRACT+75, EXTRACT+76, EXTRACT+77, EXTRACT+78
PXEOCSEQ EXTRACT+1~, EXTRACT+2*, EXTRACT+17*, EXTRACT+18*, EXTRACT+19, EXTRACT+21, EXTRACT+22, EXTRACT+23, EXTRACT+24, EXTRACT+25
, EXTRACT+26, EXTRACT+27, EXTRACT+28, EXTRACT+30, EXTRACT+31, EXTRACT+32, EXTRACT+34, EXTRACT+35, EXTRACT+36, EXTRACT+37
, EXTRACT+38, EXTRACT+40, EXTRACT+41, EXTRACT+43, EXTRACT+44, EXTRACT+45, EXTRACT+46, EXTRACT+48, EXTRACT+49, EXTRACT+50
, EXTRACT+51, EXTRACT+53, EXTRACT+55, EXTRACT+56, EXTRACT+57, EXTRACT+58, EXTRACT+59, EXTRACT+60, EXTRACT+61, EXTRACT+62
, EXTRACT+63, EXTRACT+64, EXTRACT+65, EXTRACT+67, EXTRACT+69, EXTRACT+70, EXTRACT+71, EXTRACT+72, EXTRACT+73, EXTRACT+74
, EXTRACT+75, EXTRACT+76, EXTRACT+77, EXTRACT+78
PXIEN BATCH+7~, BATCH+13*, BATCH+14, BATCH+17*, BATCH+19*, BATCH+20, BATCH+21, BATCH+22, BATCH+23*
PXIENS EXTRACT+1~, EXTRACT+15*, EXTRACT+34*, EXTRACT+35, EXTRACT+36, EXTRACT+56*, EXTRACT+59, EXTRACT+70*, EXTRACT+73
PXIPXSQ EXTRACT+1~, EXTRACT+15*, EXTRACT+54*, EXTRACT+55, EXTRACT+56, EXTRACT+57, EXTRACT+58, EXTRACT+59, EXTRACT+60, EXTRACT+61
, EXTRACT+62, EXTRACT+63, EXTRACT+64
PXMOVSEQ EXTRACT+1~, EXTRACT+42*, EXTRACT+43*, EXTRACT+44
PXNMEP EXTRACT+1~, EXTRACT+15*
PXNUMIPX EXTRACT+1~, EXTRACT+15*, EXTRACT+53*, EXTRACT+54
PXNUMOPX EXTRACT+1~, EXTRACT+15*, EXTRACT+67*, EXTRACT+68
PXNUMPTF EXTRACT+1~, EXTRACT+15*, EXTRACT+38*, EXTRACT+39
PXNUMVST EXTRACT+1~, EXTRACT+15*, EXTRACT+46*, EXTRACT+47
PXOPXSQ EXTRACT+1~, EXTRACT+15*, EXTRACT+68*, EXTRACT+69, EXTRACT+70, EXTRACT+71, EXTRACT+72, EXTRACT+73, EXTRACT+74, EXTRACT+75
, EXTRACT+76, EXTRACT+77, EXTRACT+78
PXPTFSQ BATCH+7~, BATCH+25*, BATCH+26*, BATCH+27, EXTRACT+1~, EXTRACT+15*, EXTRACT+39*, EXTRACT+40, EXTRACT+41, EXTRACT+43
, EXTRACT+44
PXSEQ BATCH+7~, BATCH+17*, BATCH+18*, BATCH+19, BATCH+23, BATCH+24, BATCH+26, BATCH+27, BATCH+28, BATCH+30
, BATCH+31, BATCH+32
PXVSTSQ BATCH+7~, BATCH+29*, BATCH+30*, BATCH+31, EXTRACT+1~, EXTRACT+15*, EXTRACT+47*, EXTRACT+48, EXTRACT+49, EXTRACT+50
STARTDT BATCH+7~, BATCH+20*, BATCH+32
VISIT BATCH+7~, BATCH+31*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Local Variables  | All