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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: APCM25E2

Package: Patient Care Component Table Maintiance

Routine: APCM25E2


Information

APCM25E2 ; IHS/CMI/LAB - IHS MU ;

Source Information

Source file <APCM25E2.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Patient Care Component Table Maintiance 3 $$DATE^APCM1UTL  (S,SETLIST)^APCM25E1  $$AVC^APCM25EM  
IHS Patient Registration 1 ($$RACE,RACE)^AGUTL  
IHS VA Utilities 1 $$VAL^XBDIQ1  
Kernel 1 ($$FMDIFF,$$NOW)^XLFDT  
Patient Care Component Reports 1 $$VD^APCLV  
VA Fileman 1 (,C,NOW)^%DTC  

Entry Points

Name Comments DBIA/ICR reference
HASPL(P,BD,ED) ;does patient have a problem entered before end of report period
EMAR1 ;EP - ep toc
EMAR ;EP
PL1 ;set denominator value into field
PRT ;
DEMO ;EP - CALCULATE DEMOGRAPHICS
EXIT ;
DSPRDT(RX,TYP,SIEN) ;EP
HASDEMOH ;did patient die in the hospital during report period? if so is dod and underlying cause there?
START ;Set beginning/ending sort dates for ORDERS
DEMO1 ;set denominator value into field
PATVRY(RX,PAT) ;EP
HASDEMO(P,BD,ED,T,DODV) ;
P55 ;LOOP 55 UNIT DOSE
IV ;LOOP IVS
PL ;EP - CALCULATE PROBLEM LIST

External References

Name Field # of Occurrence
^%DTC P55+9, IV+8, IV+19
C^%DTC IV+19
NOW^%DTC IV+17
$$RACE^AGUTL HASDEMO+12
RACE^AGUTL HASDEMO+12
$$VD^APCLV HASPL+21
$$DATE^APCM1UTL DEMO1+3, HASDEMOH+3, PL1+3, HASPL+23
S^APCM25E1 DEMO1+2, DEMO1+8, PL1+2, PL1+8, EMAR+8, EMAR+11, EMAR+20
SETLIST^APCM25E1 DEMO1+9, PL1+9, EMAR+16
$$AVC^APCM25EM EMAR+7
$$VAL^XBDIQ1 HASDEMO+14, HASDEMOH+5, HASPL+8, HASPL+13
$$FMDIFF^XLFDT P55+11
$$NOW^XLFDT P55+1, P55+11, IV+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"PATIENT: ",$P(^DPT(CPSDFN,0),U,1),?30,"ORDER: ",$P($G(^PS(55,CPSDFN,5,+CPS55,0)),U,1),?45,"SCHEDULE TYPE: ",CPSSCH,!,"START: ",$$FMTE^XLFDT(CPSDATE),?30,"STOP: ",$$FMTE^XLFDT(CPSTOP),?60,"FREQUENCY: ",CPSFRE
  • Line Location: P55+19
Function Call: WRITE
  • Prompt: !,"POSSIBLE DOSES: ",CPSPOS,?30,"# IN EMAR: ",CPSPSB,?50,"MET 100%: ",$S(CPSPSB<CPSPOS:"NO",1:"YES"),!
  • Line Location: P55+28
Function Call: WRITE
  • Prompt: !,"IV ORDER: ",CPS55,?20,"PATIENT: ",$P(^DPT(CPSDFN,0),U,1),!,"POSSIBLE: ",CPSPOS,?20,"IN EMAR: ",CPSPSB
  • Line Location: IV+23
Function Call: WRITE
  • Prompt: Y_" TO "
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: Y
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: !,?45,"Run Date/Time:"_Y
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: PRT+5
Function Call: WRITE
  • Prompt: I,?17,$G(CNT(I)),?35,$G(CNT(I,"TR")),!
  • Line Location: PRT+6
Function Call: WRITE
  • Prompt: "-"
  • Line Location: PRT+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCM25OB - [#9001304.02] DEMO1+1, DEMO1+7, PL1+1, PL1+7, EMAR+8, EMAR+9, EMAR+18
^AUPNPAT - [#9000001] HASDEMO+7, HASDEMO+8
^AUPNPROB - [#9000011] HASPL+6, HASPL+7, HASPL+8, HASPL+10
^AUPNPROB("AC" HASPL+4
^AUPNVINP - [#9000010.02] HASDEMOH+3
^AUPNVRUP - [#9000010.54] HASPL+19, HASPL+20, HASPL+21
^AUPNVRUP("AC" HASPL+18
^AUTTCRA("B" HASPL+16
^DPT - [#2] HASDEMO+11, HASDEMO+15, HASDEMO+16, HASDEMO+20
^PS(55 - [#55] P55+1, P55+2, P55+3, P55+6, P55+7, P55+9, IV+2, IV+3, IV+4, IV+6
, IV+8, IV+11, IV+13, IV+14, IV+15
^PSB(53.79 - [#53.79] P55+27, IV+22
^PSRX - [#52] PATVRY+2, DSPRDT+1
^TMP($J EMAR+2!, EMAR+13, EMAR+14, EMAR+21!, START+7!, P55+20*, P55+30*, IV+5*, IV+25*

Label References

Name Line Occurrences
$$HASDEMO DEMO1+5
$$HASPL PL1+5
DEMO1 DEMO+9, DEMO+13
EMAR1 EMAR+4
HASDEMOH HASDEMO+21
PL1 PL+9, PL+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % IV+17
A HASPL+2~, HASPL+4*, HASPL+6, HASPL+7, HASPL+8, HASPL+10, HASPL+13, HASPL+18*, HASPL+19, HASPL+20
, HASPL+21
>> APCMBDAT DEMO1+5, PL1+5, EMAR+7, START+3
>> APCMD1 DEMO+5*, PL+5*
>> APCMEDAT DEMO1+5, PL1+5, EMAR+7, START+4
>> APCMEP DEMO1+5*, DEMO1+6, DEMO1+8, PL1+5*, PL1+6, PL1+8
>> APCMFAC DEMO+11, PL+12, EMAR+6, EMAR+7
>> APCMHVTP( DEMO+8, DEMO+12, DEMO1+3, PL+8, PL+13, PL1+3
>> APCMIC DEMO1+1, DEMO1+2, DEMO1+7, DEMO1+8, PL1+1, PL1+2, PL1+7, PL1+8, EMAR+8, EMAR+9
, EMAR+11, EMAR+18, EMAR+20
>> APCMN1 DEMO+5*, PL+5*
APCMP DEMO+4~, DEMO+7*, DEMO+8, DEMO+11*, DEMO+12, DEMO1+2, DEMO1+3, DEMO1+8, PL+4~, PL+7*
, PL+8, PL+12*, PL+13, PL1+2, PL1+3, PL1+8, EMAR+5~, EMAR+6*, EMAR+8, EMAR+11
, EMAR+20
>> APCMPRV( DEMO+7, PL+7
>> APCMRPT DEMO1+2, DEMO1+8, PL1+2, PL1+8, EMAR+8, EMAR+11, EMAR+20
>> APCMRPTT DEMO+6, DEMO+10, DEMO1+2, DEMO1+5, DEMO1+8, PL+6, PL+11, PL1+2, PL1+8, EMAR+6
, EMAR+8, EMAR+11, EMAR+20
>> APCMTIME DEMO1+2, DEMO1+8, PL1+2, PL1+8, EMAR+8, EMAR+11, EMAR+20
>> APCMVALU DEMO1+3*, DEMO1+6*, PL1+3*, PL1+6*, EMAR+14*
>> APCMVDOD DEMO1+5
B HASDEMO+1~, HASDEMO+8*, HASPL+2~
BD HASDEMO~, HASPL~, HASPL+12
C HASDEMO+1~, HASDEMO+2*, HASDEMO+10*, HASDEMO+11*, HASDEMO+13*, HASDEMO+14*, HASDEMO+18*, HASDEMO+20*, HASDEMO+22, HASDEMOH+4*
, HASDEMOH+6*, HASDEMOH+7, HASPL+2~, HASPL+16*, HASPL+17, HASPL+20
CNT START+1~
CNT( PRT+9
CNT("IV" IV+1*, IV+5*, IV+25*
CNT("UNIT DOS E" , START+6*, P55+20*, P55+30*
CNTT START+1~, PRT+1*, PRT+9*, PRT+10
CNTTR START+1~, PRT+1*, PRT+9*, PRT+10
CPS55 START+1~, P55+3*, P55+6, P55+7, P55+9, P55+27, IV+4*, IV+6, IV+8, IV+11
, IV+13, IV+14, IV+15, IV+22
CPSDATE START+1~, P55+1*, P55+2, P55+3, P55+8, P55+9, P55+11, IV+2*, IV+3, IV+4
, IV+8, IV+16, IV+19
CPSDFN START+1~, P55+2*, P55+3, P55+6, P55+7, P55+9, P55+20, P55+27, P55+30, IV+3*
, IV+4, IV+5, IV+6, IV+8, IV+11, IV+13, IV+14, IV+15, IV+22, IV+25
CPSEND START+1~, START+4*, P55+1, P55+11, IV+2, IV+8
CPSFRE START+1~, P55+6*, P55+9, P55+10, P55+12, P55+13, IV+8*, IV+9
CPSN START+1~, P55+9*
CPSN1 START+1~, P55+27*
CPSNUM START+1~, IV+11*, IV+22*
CPSPOS START+1~, P55+5*, P55+9*, P55+12*, P55+13*, P55+22*, P55+23, P55+29, IV+5*, IV+8*
, IV+9*, IV+11*, IV+19*, IV+20, IV+24
CPSPSB START+1~, P55+27*, P55+29, IV+5*, IV+22*, IV+24
CPSQ START+2~, P55+24*, P55+25
CPSRAT START+2~, IV+14*, IV+19, IV+20
CPSS1 START+2~, P55+11*, P55+12, P55+13, IV+16*, IV+17*, IV+18*, IV+19
CPSSCH START+2~, P55+7*, P55+9, P55+10, P55+20, P55+22, P55+24
CPSTART START+2~, START+3*, P55+1, IV+2
CPSTOP START+2~, P55+6*, P55+8, P55+9, P55+11, IV+8*, IV+15*, IV+17, IV+18, IV+19
CPSTYPE START+2~, IV+6*, IV+7, IV+11, IV+13
CPSVOL START+2~, IV+14*, IV+19
D HASDEMO+1~, HASDEMO+5*, HASDEMO+20*, HASDEMO+22, HASDEMO+23, HASDEMOH+7, HASDEMOH+8, HASPL+2~, HASPL+10*, HASPL+11
, HASPL+12, HASPL+21*, HASPL+22, HASPL+23
>> DFN DEMO1+5, PL1+5, EMAR+15*
DODV HASDEMO~, HASDEMO+4*, HASDEMO+21, HASDEMOH+3, HASDEMOH+5
DT P55+9, IV+17, IV+18, IV+19
E HASDEMO+1~, HASDEMO+5*, HASDEMO+15, HASDEMO+16*, HASDEMO+17, HASDEMO+18*, HASDEMO+22, HASDEMO+23, HASDEMOH+7, HASDEMOH+8
, HASPL+2~, HASPL+3*, HASPL+4, HASPL+8*, HASPL+13*, HASPL+14, HASPL+18, HASPL+23*, HASPL+24
ED HASDEMO~, HASPL~, HASPL+7, HASPL+11, HASPL+22
EMAR EMAR+3~, EMAR+10, EMAR+19, START+5*, PRT+10*
F DEMO1+1*, DEMO1+2, DEMO1+7*, DEMO1+8, PL1+1*, PL1+2, PL1+7*, PL1+8, EMAR+5~, EMAR+8*
, EMAR+9*, EMAR+11, EMAR+18*, EMAR+20
G HASDEMO+1~, HASDEMO+5*, HASDEMO+11*, HASDEMO+22, HASDEMO+23, HASDEMOH+7, HASDEMOH+8
>> I PRT+9*
L HASDEMOH+1~, HASDEMOH+5*, HASDEMOH+6
N EMAR+5~, EMAR+10*, EMAR+11, EMAR+19*, EMAR+20
O EMAR+5~
P HASDEMO~, HASDEMO+7, HASDEMO+8, HASDEMO+11, HASDEMO+12, HASDEMO+14, HASDEMO+15, HASDEMO+16, HASDEMO+20, HASPL~
, HASPL+4, HASPL+18, EMAR+13*, EMAR+14, EMAR+15
PAT PATVRY~, PATVRY+1, PATVRY+2
PCD HASDEMOH+1~, HASDEMOH+2*, HASDEMOH+6*, HASDEMOH+7, HASDEMOH+8
PL HASDEMO+1~, HASDEMO+5*, HASDEMO+7, HASDEMO+10*, HASDEMO+22, HASDEMO+23, HASDEMOH+7, HASDEMOH+8
R HASDEMO+1~, HASDEMO+5*, HASDEMO+12*, HASDEMO+13*, HASDEMO+14*, HASDEMO+22, HASDEMO+23, HASDEMOH+7, HASDEMOH+8
RX PATVRY~, PATVRY+2, DSPRDT~, DSPRDT+1
SIEN DSPRDT~, DSPRDT+1
T HASDEMO~, HASDEMO+3*, HASDEMO+21
TYP DSPRDT~, DSPRDT+1
U DEMO1+1, DEMO1+6, DEMO1+7, DEMO1+8, HASDEMO+8, HASDEMO+11, HASDEMO+16, HASDEMO+20, HASDEMO+22, HASDEMO+23
, HASDEMOH+3, HASDEMOH+7, HASDEMOH+8, PL1+1, PL1+6, PL1+7, PL1+8, HASPL+7, HASPL+8, HASPL+10
, HASPL+20, HASPL+21, PATVRY+2, DSPRDT+1, EMAR+8, EMAR+9, EMAR+10, EMAR+14, EMAR+18, EMAR+19
, P55+6, P55+7, P55+9, P55+20, P55+30, IV+5, IV+6, IV+8, IV+14, IV+15
, IV+25, PRT+10
VDOD HASDEMOH+1~, HASDEMOH+3*, HASDEMOH+4*, HASDEMOH+7, HASDEMOH+8
X HASDEMO+1~, HASDEMO+7*, HASDEMO+8, P55+9, IV+8, IV+19
>> X1 P55+9*, IV+8*, IV+19*
>> X2 P55+9*, IV+8*, IV+19*
Y HASDEMO+1~, EMAR+5~
Z HASDEMO+1~, HASDEMO+15*, HASDEMO+16

Marked Items

Name Field # of Occurrence
$T(RACE^AGUTL HASDEMO+12
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All