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 |  Local Variables |  All
Print Page as PDF
Routine: APCHS85

Package: Patient Care Component

Routine: APCHS85


Information

APCHS85 ; IHS/CMI/LAB - PART 8 OF APCHS -- SUMMARY PRODUCTION COMPONENTS ;

Source Information

Source file <APCHS85.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
IHS Patient 1 $$RHX^AUPNREP  
IHS VA Utilities 1 ($$VAL,$$VALI)^XBDIQ1  
Kernel 1 $$FMADD^XLFDT  
Patient Care Component 1 $$DATE^APCHSMU  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Care Component 1 APCHS8  

Entry Points

Name Comments DBIA/ICR reference
ALLEDD ;
EDC ;S Y=$P(APCHSN,U,9)
REPHX ; ********** REPRODUCTIVE HISTORY * 9000017 **********
; <SETUP>
NEWREP ;new reproductive factors dd
REPEDDHX ;EP - REPRODUCTIVE HISTORY - ALL EDDS
LATER ;
DTOBT11
SINGLE ;
DTOBT
W ;
REPHXX

External References

Name Field # of Occurrence
$$DATE^APCHSMU REPHX+10, NEWREP+6, LATER+23, EDC+13, EDC+29, ALLEDD+10, W+3
$$RHX^AUPNREP NEWREP+3
$$VAL^XBDIQ1 REPHX+10, NEWREP+6, LATER+13, EDC+23, EDC+24, EDC+25, EDC+26, EDC+34, ALLEDD+18, ALLEDD+19
, ALLEDD+20, ALLEDD+21, W+8
$$VALI^XBDIQ1 EDC+7, EDC+23, EDC+24, EDC+25, EDC+26, ALLEDD+4, ALLEDD+18, ALLEDD+19, ALLEDD+20, ALLEDD+21
$$FMADD^XLFDT EDC+14, EDC+30, ALLEDD+11, W+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: X
  • Line Location: REPHX+8
Function Call: WRITE
  • Prompt: " "
  • Line Location: REPHX+8
Function Call: WRITE
  • Prompt: "LMP ",Y
  • Line Location: REPHX+9
Function Call: WRITE
  • Prompt: !
  • Line Location: REPHX+9
Function Call: WRITE
  • Prompt: "LACTATION STATUS: ",X
  • Line Location: REPHX+10
Function Call: WRITE
  • Prompt: " (obtained "_$$DATE^APCHSMU($P($G(^AUPNREP(APCHSPAT,2)),U,2))
  • Condition for execution: X]""
  • Line Location: REPHX+10
Function Call: WRITE
  • Prompt: !
  • Line Location: REPHX+10
Function Call: WRITE
  • Prompt: "CONTRACEPTION: ",APCHSM
  • Line Location: REPHX+11
Function Call: WRITE
  • Prompt: !
  • Line Location: REPHX+11
Function Call: WRITE
  • Prompt: !,"Reproductive History: ",!?2,$P(X,";",1,4),";",!?3,$P(X,";",5,7),!?3,";",$P(X,";",8,99),!
  • Line Location: NEWREP+3
Function Call: WRITE
  • Prompt: "LMP: "
  • Line Location: NEWREP+5
Function Call: WRITE
  • Prompt: Y
  • Line Location: NEWREP+5
Function Call: WRITE
  • Prompt: Y
  • Line Location: NEWREP+5
Function Call: WRITE
  • Prompt: "LACTATION STATUS: ",X
  • Line Location: NEWREP+6
Function Call: WRITE
  • Prompt: " (obtained "_$$DATE^APCHSMU($P($G(^AUPNREP(APCHSPAT,2)),U,2)),")"
  • Condition for execution: X]""
  • Line Location: NEWREP+6
Function Call: WRITE
  • Prompt: !
  • Line Location: NEWREP+6
Function Call: WRITE
  • Prompt: "CONTRACEPTION: ",APCHSM
  • Line Location: NEWREP+7
Function Call: WRITE
  • Prompt: !
  • Line Location: NEWREP+7
Function Call: WRITE
  • Prompt: !,"CURRENT CONTRACEPTION METHODS",!?3,"Contraceptive Method",?37,"Date Started",!
  • Line Location: LATER+16
Function Call: WRITE
  • Prompt: ?37,Y
  • Line Location: LATER+21
Function Call: WRITE
  • Prompt: ?50,Y
  • Line Location: LATER+22
Function Call: WRITE
  • Prompt: ?55,"(obtained "_$$DATE^APCHSMU(Y)_")"
  • Condition for execution: Y]""
  • Line Location: LATER+23
Function Call: WRITE
  • Prompt: !
  • Line Location: LATER+23
Function Call: WRITE
  • Prompt: ?10,$P(^AUPNREP(APCHSPAT,2101,APCHX,0),U,6),!
  • Line Location: LATER+25
Function Call: WRITE
  • Prompt: ?5,"Reason Discontinued: "_$P(^AUPNREP(APCHSPAT,2101,APCHX,0),U,5),!
  • Line Location: LATER+26
Function Call: WRITE
  • Prompt: "CONTRACEPTION: ",APCHSM
  • Line Location: SINGLE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SINGLE+1
Function Call: WRITE
  • Prompt: " (obtained ",Y,")"
  • Line Location: DTOBT11+0
Function Call: WRITE
  • Prompt: " (obtained ",Y,")"
  • Line Location: DTOBT+0
Function Call: WRITE
  • Prompt: "*** NOTE: EDC ",Y
  • Line Location: EDC+1
Function Call: WRITE
  • Prompt: " -- OUTDATED!"
  • Line Location: EDC+2
Function Call: WRITE
  • Prompt: " BY ",APCHSM
  • Line Location: EDC+3
Function Call: WRITE
  • Prompt: " -- OUTDATED!"
  • Line Location: EDC+14
Function Call: WRITE
  • Prompt: "Comment: ",$P(^AUPNREP(APCHSPAT,15),U,2)
  • Line Location: EDC+17
Function Call: WRITE
  • Prompt: " -- OUTDATED!"
  • Line Location: EDC+30
Function Call: WRITE
  • Prompt: "Comment: ",$$VAL^XBDIQ1(9000017,APCHSPAT,F)
  • Line Location: EDC+34
Function Call: WRITE
  • Prompt: " -- OUTDATED!"
  • Line Location: ALLEDD+11
Function Call: WRITE
  • Prompt: "Comment: ",$P(^AUPNREP(APCHSPAT,15),U,2)
  • Line Location: ALLEDD+14
Function Call: WRITE
  • Prompt: " -- OUTDATED!"
  • Line Location: W+4
Function Call: WRITE
  • Prompt: "Comment: ",$$VAL^XBDIQ1(9000017,APCHSPAT,F)
  • Line Location: W+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNREP - [#9000017] REPHX+3, REPHX+4, REPHX+10, NEWREP+1, NEWREP+6, LATER+3, LATER+5, LATER+6, LATER+7, LATER+9
, LATER+10, LATER+23, LATER+25, LATER+26, EDC+13, EDC+17, ALLEDD+10, ALLEDD+14
^DD(9000017 REPHX+5, SINGLE+1
^DPT - [#2] REPHX+2

Label References

Name Line Occurrences
ALLEDD EDC+5
DTOBT REPHX+8, REPHX+9, NEWREP+5, SINGLE+1
EDC NEWREP+10
LATER REPHX+13, NEWREP+8
NEWREP REPHX+5
REPHX REPEDDHX+2
REPHXX REPHX+5, SINGLE+1
SINGLE LATER+3
W ALLEDD+18, ALLEDD+19, ALLEDD+20, ALLEDD+21

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APCHAEDD EDC+5, REPEDDHX+1*, REPEDDHX+3!
APCHBY EDC+6~, EDC+22*, EDC+23*, EDC+24*, EDC+25*, EDC+26*, EDC+29, EDC+33, ALLEDD+3~, ALLEDD+18*
, ALLEDD+19*, ALLEDD+20*, ALLEDD+21*, W+3, W+7
APCHC LATER+4~, LATER+7*, LATER+8, LATER+13
APCHCM LATER+4~
APCHCM( LATER+13*, LATER+17, LATER+18, LATER+20, LATER+21
APCHDB LATER+4~, LATER+9*, LATER+12*, LATER+13, LATER+17*, LATER+18, LATER+20, LATER+21
>> APCHDE LATER+10*, LATER+11, LATER+13
APCHDEDD EDC+6~, EDC+7*, EDC+8, EDC+13, EDC+14, ALLEDD+3~, ALLEDD+4*, ALLEDD+5, ALLEDD+10, ALLEDD+11
APCHDEDT EDC+6~, EDC+22*, EDC+23*, EDC+24*, EDC+25*, EDC+26*, EDC+27, EDC+29, EDC+30, ALLEDD+3~
, ALLEDD+18*, ALLEDD+19*, ALLEDD+20*, ALLEDD+21*, W+1, W+3, W+4
APCHDOBT EDC+6~, EDC+22*, EDC+23*, EDC+24*, EDC+25*, EDC+26*, EDC+29, ALLEDD+3~, ALLEDD+18*, ALLEDD+19*
, ALLEDD+20*, ALLEDD+21*, W+3
APCHM LATER+4~
>> APCHSBRK REPHX+7, NEWREP+2
>> APCHSCKP REPHX+7, NEWREP+2, NEWREP+4, LATER+15, LATER+19, SINGLE+1, EDC+12, EDC+15, EDC+18, EDC+28
, EDC+31, EDC+35, ALLEDD+9, ALLEDD+12, ALLEDD+15, W+2, W+5, W+9
>> APCHSCVD REPHX+9, NEWREP+5, LATER+21, DTOBT11, DTOBT
APCHSM REPHXX!, SINGLE+1*
APCHSN REPHX+4*, REPHX+8, REPHX+9, REPHXX!, NEWREP+5, SINGLE+1, DTOBT
APCHSN11 REPHXX!, NEWREP+1*, DTOBT11
>> APCHSNPG REPHX+7, NEWREP+2
>> APCHSP REPHX+8*, REPHX+9*, NEWREP+5*, SINGLE+1*, DTOBT11, DTOBT
>> APCHSPAT REPHX+2, REPHX+3, REPHX+4, REPHX+10, NEWREP+1, NEWREP+3, NEWREP+6, LATER+3, LATER+5, LATER+6
, LATER+7, LATER+9, LATER+10, LATER+23, LATER+25, LATER+26, EDC+7, EDC+13, EDC+17, EDC+23
, EDC+24, EDC+25, EDC+26, EDC+34, ALLEDD+4, ALLEDD+10, ALLEDD+14, ALLEDD+18, ALLEDD+19, ALLEDD+20
, ALLEDD+21, W+8
>> APCHSQIT REPHX+7, NEWREP+2, NEWREP+4, NEWREP+9, LATER+15, LATER+17, LATER+18, LATER+19, SINGLE+1, EDC+12
, EDC+15, EDC+18, EDC+28, EDC+31, EDC+35, ALLEDD+9, ALLEDD+12, ALLEDD+15, W+2, W+5
, W+9
APCHX LATER+4~, LATER+5*, LATER+6, LATER+7, LATER+9, LATER+10, LATER+13, LATER+18*, LATER+20, LATER+21
, LATER+23, LATER+25, LATER+26
DT EDC+14, EDC+30, ALLEDD+11, W+4
>> F EDC+33*, EDC+34, W+7*, W+8
U REPHX+2, REPHX+8, REPHX+9, REPHX+10, NEWREP+5, NEWREP+6, LATER+6, LATER+7, LATER+9, LATER+10
, LATER+13, LATER+20, LATER+21, LATER+23, LATER+25, LATER+26, SINGLE+1, DTOBT11, DTOBT, EDC+13
, EDC+17, ALLEDD+10, ALLEDD+14
>> X REPHX+8*, REPHX+9*, REPHX+10*, NEWREP+3*, NEWREP+5*, NEWREP+6*, SINGLE+1*
>> Y REPHX+9*, NEWREP+5*, LATER+21*, LATER+23*, SINGLE+1*, DTOBT11*, DTOBT*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All