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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APCHSACG

Package: Patient Care Component

Routine: APCHSACG


Information

APCHSACG ; IHS/CMI/LAB - ; ANTI-COAG SUPPLEMENT

Source Information

Source file <APCHSACG.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Patient Care Component Reports 3 ($$LASTCPTT,$$LASTLAB,ALLLAB,ALLV)^APCLAPIU  $$START1^APCLDF  ($$CLINIC,$$PRIMPROV,$$VD)^APCLV  
Patient Care Component 2 $$D1^APCHSMU  GETMEDS^APCHSMU1  
VA Fileman 2 ^DIR  ^DIWP  
IHS Patient 1 ($$AGE,$$DOB,$$HRN,$$SEX)^AUPNPAT  
IHS VA Utilities 1 $$VAL^XBDIQ1  
Kernel 1 ($$FMADD,$$FMTE)^XLFDT  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Patient Care Component 4 APCHPWH9  APCHS9  APCHSTP  APCHSTP1  
IHS Mods To Patient Care Encounter 1 BPXRMTP  

Entry Points

Name Comments DBIA/ICR reference
MRSTART(P) ;PEP - most recent duration and date
EOJ ;
S1 ;
EP(DFN) ;PEP - ANTI-COAG supplement
SIG ;CONSTRUCT THE FULL TEXT FROM THE ENCODED SIG
LAB ;
SETARRAY ;set up array
URIN ;last urinalysis on file and its children
CTR(X,Y) ;EP - Center
INDIC ;get all dxs
EDUC(P,BDATE,EDATE,DATA) ;EP pass back array of all anti coag educ topics
LASTACUR(P,BD,ED) ;EP
CLN ;
COMBBYDT ;combine the inrs and meds inverse by date
EDPRV(I) ;
MRGOAL(P) ;PEP - most recent INR goal and date
MRCOM(P) ;PEP - most recent INR goal and date
S(Y,F,C,T) ;EP - set up array
INRGOAL ;most recent goal from V ANTICOAG
VITK ;
HEADER ;
W ;write out array
LASTACCB(P,BD,ED) ;EP
LASTACFO(P,BD,ED) ;EP
CBC ;
HEAD1 ;
INR ;get all INR lab tests
FOBT ;
EP2(DFN) ;EP - PASS DFN get back array of patient care summary
MRDUR(P) ;PEP - most recent duration and date
PTED ;
MREND(P) ;PEP - most recent duration and date

External References

Name Field # of Occurrence
$$D1^APCHSMU INDIC+12, INRGOAL+3, INRGOAL+4, CLN+6, CLN+21, COMBBYDT+29, VITK+7, PTED+6
GETMEDS^APCHSMU1 INR+8, VITK+4
$$LASTCPTT^APCLAPIU LASTACUR+5, LASTACCB+5, LASTACFO+5
$$LASTLAB^APCLAPIU LASTACUR+4, LASTACCB+4, LASTACFO+4
ALLLAB^APCLAPIU INR+5
ALLV^APCLAPIU CLN+13
$$START1^APCLDF INDIC+3, EDUC+6
$$CLINIC^APCLV CLN+18
$$PRIMPROV^APCLV CLN+21, EDPRV+5
$$VD^APCLV CLN+21, MRGOAL+13, MRCOM+11, MRDUR+11
$$AGE^AUPNPAT SETARRAY+7
$$DOB^AUPNPAT SETARRAY+7, INDIC+3, LASTACUR+1, LASTACCB+1, LASTACFO+1
$$HRN^AUPNPAT SETARRAY+6
$$SEX^AUPNPAT SETARRAY+7
^DIR HEADER+1
^DIWP INDIC+11, CLN+7, COMBBYDT+35, VITK+10
$$VAL^XBDIQ1 SETARRAY+8, INDIC+10, CLN+5, COMBBYDT+8, COMBBYDT+17, VITK+7, PTED+6, EDPRV+2, EDPRV+3, MRGOAL+12
, MRDUR+10, MRSTART+10, MREND+10
$$FMADD^XLFDT INDIC+3, CLN+13, INR+5, INR+8, VITK+4, PTED+4
$$FMTE^XLFDT HEAD1+5, SETARRAY+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: !,APCHSHDR,!
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: $$CTR("ANTICOAGULATION PATIENT CARE SUPPLEMENT",80),!
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: "Report Date: ",$$FMTE^XLFDT(DT),?70,"Page: ",APCHPG,!
  • Line Location: HEAD1+5
Routine Call
  • DIR
  • Line Location:
    • HEADER+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ATXAX("B" INR+5, LASTACUR+4, LASTACCB+4, LASTACFO+4
^ATXLAB("B" INR+5, LASTACUR+4, LASTACCB+4, LASTACFO+4
^AUPNVACG - [#9000010.51] MRGOAL+8, MRGOAL+9, MRGOAL+10, MRGOAL+11, MRGOAL+13, MRCOM+8, MRCOM+9, MRCOM+10, MRCOM+11, MRDUR+8
, MRDUR+9, MRDUR+11, MRSTART+8, MRSTART+9, MRSTART+11, MREND+8, MREND+11
^AUPNVACG("AA" MRGOAL+2, MRGOAL+5, MRGOAL+6, MRGOAL+7, MRCOM+2, MRCOM+5, MRCOM+6, MRCOM+7, MRDUR+2, MRDUR+5
, MRDUR+6, MRDUR+7, MRSTART+2, MRSTART+5, MRSTART+6, MRSTART+7, MREND+2, MREND+5, MREND+6, MREND+7
^AUPNVMED - [#9000010.14] COMBBYDT+15, VITK+8
^AUPNVPED - [#9000010.16] EDPRV+4, EDUC+11
^AUTTEDT - [#9999999.09] EDUC+13
^DPT - [#2] SETARRAY+6
^PS(51 - [#51] SIG+2
^TMP("APCHACG" S1+1*, S1+2*, W+4, W+6, W+8!, EP2+2!, EP2+3*
^UTILITY($J INDIC+11!, INDIC+12, INDIC+13, CLN+7!, CLN+8, CLN+9, CLN+10!, COMBBYDT+35!, COMBBYDT+36, COMBBYDT+37
, COMBBYDT+39!, VITK+10!, VITK+11, VITK+12

Label References

Name Line Occurrences
$$CTR HEAD1+4, SETARRAY+4
$$EDPRV PTED+6
$$MRCOM CLN+2
$$MRDUR INRGOAL+2
$$MREND INRGOAL+4
$$MRGOAL INRGOAL+1
$$MRSTART INRGOAL+3
EDUC PTED+4
EOJ W+10
EP2 EP+3
HEADER W+5
INR CLN+15
PTED VITK+5
S SETARRAY+3, SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+7, SETARRAY+8, INDIC+2, INDIC+12, INDIC+13, INRGOAL+1
, INRGOAL+2, INRGOAL+3, INRGOAL+4, CLN+4, CLN+8, CLN+9, CLN+14, CLN+15, CLN+21, CLN+22
, INR+1, INR+2, COMBBYDT+36, COMBBYDT+37, COMBBYDT+38, VITK+1, VITK+2, VITK+5, VITK+7, VITK+11
, VITK+12, PTED+1, PTED+2, PTED+6, PTED+7
S1 S+5, S+7, S+10
SETARRAY EP2+4
SIG VITK+8

Naked Globals

Name Field # of Occurrence
^(9 SIG+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% S+3~, S+8*, S+9*, S1+1*, S1+2, EOJ+1!, EDUC+3~, EDUC+8*, EDUC+9, EDUC+10
, EDUC+15
A EP+2~, SETARRAY+1~, EDUC+3~, EDUC+5*, EDUC+6
APCHCOMB SETARRAY+2~, COMBBYDT+1!
APCHCOMB( COMBBYDT+9*, COMBBYDT+18, COMBBYDT+20, COMBBYDT+21*, COMBBYDT+22*, COMBBYDT+25, COMBBYDT+26, COMBBYDT+27
APCHD SETARRAY+2~, COMBBYDT+25*, COMBBYDT+26, COMBBYDT+27
APCHE EDUC+3~, EDUC+4!, EDUC+7, EDUC+18!
APCHE( EDUC+8, EDUC+9, EDUC+10, EDUC+15
APCHEDS SETARRAY+2~
APCHEDUC EP+1~, PTED+3!, PTED+4
APCHEDUC( PTED+5, PTED+6
APCHMEDS SETARRAY+2~, INR+7!, INR+8, COMBBYDT+24!, VITK+3!, VITK+4
APCHMEDS( COMBBYDT+11, COMBBYDT+12, COMBBYDT+14, COMBBYDT+15, VITK+6, VITK+7
APCHMEDS(0 VITK+5
>> APCHPG W+3*, HEAD1+2*, HEAD1+5
APCHQUIT EP+1~, W+2!, W+4, W+5, W+9, HEADER+1*
APCHSDX SETARRAY+2~, INDIC+1!
APCHSDX( INDIC+4
APCHSDX("D" INDIC+8, INDIC+9*
APCHSDX("I" INDIC+4*, INDIC+5, INDIC+6, INDIC+7
>> APCHSHDR HEAD1+3, SETARRAY+3
>> APCHSIG VITK+8*, SIG+1, SIG+2
>> APCHSP SIG+1*, SIG+2
>> APCHSPAT LASTACUR+4, LASTACCB+4, LASTACFO+4
>> APCHSQIT W+9*
APCHSS EP+1~, SETARRAY+2~, COMBBYDT+28*, COMBBYDT+29*, COMBBYDT+30*, COMBBYDT+36*, COMBBYDT+38*
APCHSSGY SETARRAY+2~, VITK+9, SIG+1*, SIG+3*
APCHSX EP+1~
APCHV EP+1~, SETARRAY+2~, CLN+11!, CLN+12*, CLN+13, INR+3!, INR+4*, INR+5, COMBBYDT+24!
APCHV( CLN+16, CLN+17, COMBBYDT+2, COMBBYDT+3, COMBBYDT+5, COMBBYDT+6
APCHV(0 CLN+15
>> APCHVV COMBBYDT+27*, COMBBYDT+29, COMBBYDT+30, COMBBYDT+33, COMBBYDT+36, COMBBYDT+38
APCHX EP+1~, W+4*, W+6, CLN+2*, CLN+3, CLN+5, CLN+6, EDUC+3~
APCHX( EDUC+16, EDUC+17
APCHX(9999999 EDUC+15*
APCHY SETARRAY+2~, COMBBYDT+26*, COMBBYDT+27, VITK+6*, VITK+7
B EP+2~, EOJ+1!, SETARRAY+1~
BD LASTACUR~, LASTACUR+1*, LASTACUR+4, LASTACCB~, LASTACCB+1*, LASTACCB+4, LASTACFO~, LASTACFO+1*, LASTACFO+4
BDATE EDUC~, EDUC+6
C S~, S+7, EOJ+1!, SETARRAY+1~, INDIC+7*, INDIC+8, INDIC+9, INDIC+12, CLN+16*, CLN+17
, COMBBYDT+2*, COMBBYDT+4*, COMBBYDT+9, COMBBYDT+11*, COMBBYDT+13*, COMBBYDT+22, EDUC+16*, EDUC+17*, LASTACUR+3~, LASTACUR+5*
, LASTACUR+6, LASTACCB+3~, LASTACCB+5*, LASTACCB+6, LASTACFO+3~, LASTACFO+5*, LASTACFO+6
D SETARRAY+1~, INDIC+4*, INDIC+5*, INDIC+6, INDIC+7, INDIC+12, COMBBYDT+3*, COMBBYDT+9, COMBBYDT+12*, COMBBYDT+18
, COMBBYDT+20, COMBBYDT+21, COMBBYDT+22, MRGOAL+3~, MRGOAL+5*, MRGOAL+6, MRGOAL+7, MRCOM+3~, MRCOM+5*, MRCOM+6
, MRCOM+7, MRDUR+3~, MRDUR+5*, MRDUR+6, MRDUR+7, MRSTART+3~, MRSTART+5*, MRSTART+6, MRSTART+7, MREND+3~
, MREND+5*, MREND+6, MREND+7, EDUC+3~, EDUC+9*, EDUC+15
DATA EDUC~, EDUC+1!
DATA( EDUC+17*
DFN EP~, EP+3, EP2~, SETARRAY+6, SETARRAY+7, SETARRAY+8, INDIC+3, INRGOAL+1, INRGOAL+2, INRGOAL+3
, INRGOAL+4, CLN+2, CLN+13, INR+5, INR+8, VITK+4, PTED+4, LASTACUR+5, LASTACCB+5, LASTACFO+5
DIR HEADER+1!
DIR(0 HEADER+1*
>> DIWL INDIC+11*, CLN+7*, COMBBYDT+35*, VITK+10*
>> DIWR INDIC+11*, CLN+7*, COMBBYDT+35*, VITK+10*
DT HEAD1+5, SETARRAY+5, INDIC+3, CLN+13, INR+5, INR+8, VITK+4, PTED+4, LASTACUR+2, LASTACUR+5
, LASTACCB+2, LASTACCB+5, LASTACFO+2, LASTACFO+5
>> DTOUT HEADER+1
DUZ(2 SETARRAY+6
E EP+2~, EOJ+1!, SETARRAY+1~, INDIC+3*, EDUC+3~, EDUC+6*
ED LASTACUR~, LASTACUR+2*, LASTACUR+4, LASTACCB~, LASTACCB+2*, LASTACCB+4, LASTACFO~, LASTACFO+2*, LASTACFO+4
EDATE EDUC~, EDUC+6
F S~, S+1*, S+5*, EOJ+1!, SETARRAY+1~, INDIC+13*, CLN+9*, COMBBYDT+37*, VITK+12*
G SETARRAY+1~, CLN+16*, CLN+20*, CLN+22, COMBBYDT+20*, EDUC+3~
H EOJ+1!
I EP+2~, SETARRAY+1~, INDIC+6*, INDIC+7, INDIC+10, COMBBYDT+6*, COMBBYDT+8, EDPRV~, EDPRV+2, EDPRV+3
, EDPRV+4, MRGOAL+3~, MRGOAL+7*, MRGOAL+8, MRGOAL+9, MRGOAL+10, MRGOAL+11, MRGOAL+12, MRGOAL+13, MRCOM+3~
, MRCOM+7*, MRCOM+8, MRCOM+9, MRCOM+10, MRCOM+11, MRDUR+3~, MRDUR+7*, MRDUR+8, MRDUR+9, MRDUR+10
, MRDUR+11, MRSTART+3~, MRSTART+7*, MRSTART+8, MRSTART+9, MRSTART+10, MRSTART+11, MREND+3~, MREND+7*, MREND+8
, MREND+10, MREND+11, EDUC+3~, EDUC+10*, EDUC+11
IO HEADER+1
IO(0 HEADER+1
IOF W+1, HEAD1+1
IOM CTR+1
IOSL W+5
IOST HEADER+1
L S+7*, EOJ+1!
M EOJ+1!, COMBBYDT+14*, COMBBYDT+15, COMBBYDT+17, VITK+6*, VITK+7, VITK+8
N EOJ+1!, SETARRAY+1~, INDIC+10*, INDIC+11, EDUC+3~, EDUC+11*, EDUC+12, EDUC+13*, EDUC+14, EDUC+16*
, EDUC+17
>> O COMBBYDT+7*, COMBBYDT+8*, COMBBYDT+9, COMBBYDT+16*, COMBBYDT+17*, COMBBYDT+21, COMBBYDT+22
P EOJ+1!, CLN+5~*, CLN+6, CLN+8*, MRGOAL~, MRGOAL+1, MRGOAL+2, MRGOAL+5, MRGOAL+6, MRGOAL+7
, MRCOM~, MRCOM+1, MRCOM+2, MRCOM+5, MRCOM+6, MRCOM+7, MRDUR~, MRDUR+1, MRDUR+2, MRDUR+5
, MRDUR+6, MRDUR+7, MRSTART~, MRSTART+1, MRSTART+2, MRSTART+5, MRSTART+6, MRSTART+7, MREND~, MREND+1
, MREND+2, MREND+5, MREND+6, MREND+7, EDUC~, EDUC+2, EDUC+6, LASTACUR~, LASTACUR+1, LASTACCB~
, LASTACCB+1, LASTACFO~, LASTACFO+1
R MRGOAL+3~, MRGOAL+4*, MRGOAL+5, MRGOAL+6, MRGOAL+13*, MRGOAL+14, MRCOM+3~, MRCOM+4*, MRCOM+5, MRCOM+6
, MRCOM+11*, MRCOM+12, MRDUR+3~, MRDUR+4*, MRDUR+5, MRDUR+6, MRDUR+11*, MRDUR+12, MRSTART+3~, MRSTART+4*
, MRSTART+5, MRSTART+6, MRSTART+11*, MRSTART+12, MREND+3~, MREND+4*, MREND+5, MREND+6, MREND+11*, MREND+12
, LASTACUR+3~, LASTACUR+4*, LASTACUR+6, LASTACUR+7, LASTACCB+3~, LASTACCB+4*, LASTACCB+6, LASTACCB+7, LASTACFO+3~, LASTACFO+4*
, LASTACFO+6, LASTACFO+7
S SETARRAY+1~, CLN+18*, CLN+19, MRGOAL+3~, MRGOAL+11*, MRGOAL+12*, MRGOAL+13, MRCOM+3~
T S~, S+2*, S+7*, S+8, S+9, EP+2~, EOJ+1!, SETARRAY+1~
T1 EOJ+1!
T2 EOJ+1!
T3 EOJ+1!
U S1+1, SETARRAY+6, INDIC+4, INDIC+7, INRGOAL+1, INRGOAL+2, INRGOAL+3, INRGOAL+4, CLN+5, CLN+6
, CLN+17, COMBBYDT+3, COMBBYDT+5, COMBBYDT+6, COMBBYDT+9, COMBBYDT+12, COMBBYDT+14, COMBBYDT+15, COMBBYDT+21, COMBBYDT+22
, COMBBYDT+29, COMBBYDT+30, COMBBYDT+33, COMBBYDT+36, COMBBYDT+38, VITK+6, VITK+7, VITK+8, PTED+6, EDPRV+4
, MRGOAL+8, MRGOAL+9, MRGOAL+10, MRGOAL+11, MRGOAL+13, MRCOM+8, MRCOM+9, MRCOM+10, MRCOM+11, MRDUR+8
, MRDUR+9, MRDUR+11, MRSTART+8, MRSTART+9, MRSTART+11, MREND+8, MREND+11, EDUC+9, EDUC+10, EDUC+11
, EDUC+13, EDUC+15, EDUC+17, LASTACUR+6, LASTACCB+6, LASTACFO+6
V SETARRAY+1~, CLN+17*, CLN+18, CLN+21, COMBBYDT+5*, COMBBYDT+9, COMBBYDT+15*, COMBBYDT+21, COMBBYDT+22, EDPRV+1~
, EDPRV+4*, EDPRV+5
W EOJ+1!
X S+3~, S+5*, S+6*, S+8*, S+9*, S1+2, CTR~, CTR+1, EP+2~, EOJ+1!
, SETARRAY+1~, SETARRAY+3*, SETARRAY+4*, SETARRAY+5*, SETARRAY+6*, SETARRAY+7*, SETARRAY+8*, INDIC+2*, INDIC+3*, INDIC+4*
, INDIC+11*, INDIC+12*, INDIC+13*, INRGOAL+1*, INRGOAL+2*, INRGOAL+3*, INRGOAL+4*, CLN+6*, CLN+9*, CLN+14*
, CLN+15*, CLN+21*, CLN+22*, INR+1*, INR+2*, COMBBYDT+2*, COMBBYDT+3, COMBBYDT+5, COMBBYDT+6, COMBBYDT+11*
, COMBBYDT+12, COMBBYDT+14, COMBBYDT+15, COMBBYDT+33*, COMBBYDT+34, COMBBYDT+36*, COMBBYDT+37*, VITK+1*, VITK+2*, VITK+5*
, VITK+7*, VITK+9*, VITK+11*, VITK+12*, PTED+1*, PTED+2*, PTED+6*, SIG+1*, SIG+2*, SIG+3
, MRGOAL+3~, MRGOAL+6*, MRGOAL+7, MRCOM+3~, MRCOM+6*, MRCOM+7, MRDUR+3~, MRDUR+6*, MRDUR+7, MRSTART+3~
, MRSTART+6*, MRSTART+7, MREND+3~, MREND+6*, MREND+7, EDUC+3~, EDUC+6*, EDUC+17*
Y S~, S+6, S+7, S+9, CTR~, CTR+1, EP+2~, EOJ+1!, HEADER+1, SETARRAY+1~
, COMBBYDT+20*, COMBBYDT+21, PTED+5*, PTED+6, SIG+2*, MRGOAL+3~, MRCOM+3~, MRDUR+3~, MRSTART+3~, MREND+3~
Z EP+2~, SETARRAY+1~, EDPRV+1~, EDPRV+2*, EDPRV+3*, MRGOAL+3~, MRGOAL+10*, MRGOAL+11, MRGOAL+12, MRCOM+3~
, MRCOM+10*, MRCOM+11, MRDUR+3~, MRDUR+10*, MRDUR+11, MRSTART+3~, MRSTART+10*, MRSTART+11, MREND+3~, MREND+10*
, MREND+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All