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

Package: Patient Care Component

Routine: APCHS78


Information

APCHS78 ; IHS/CMI/LAB - PART 7 OF APCHS -- SUMMARY PRODUCTION COMPONENTS ;

Source Information

Source file <APCHS78.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Patient Care Component 4 DISPREF^APCHS3C  (HOLDDSP,MEDRU)^APCHS7  $$CHRONIC^APCHS72  PRTTXT^APCHSUTL  
IHS VA Utilities 1 $$VALI^XBDIQ1  
Kernel 1 $$FMTE^XLFDT  
VA Fileman 1 ^%DTC  

Entry Points

Name Comments DBIA/ICR reference
MEDBLD ;BUILD ARRAY OF MEDICATIONS
CONT ; <SETUP>
CTR(X,Y) ;EP - Center X in a field Y wide.
MEDSNDUP ; ************* ALL, NON DUPLICATED *************
NODUP ;
SITE ;DETERMINE IF OUTSIDE LOCATION INFO PRESENT
NVADSP ;
SIG ;CONSTRUCT THE FULL TEXT FROM THE ENCODED SIG
MEDDSP ;DISPLAY MEDICATION
CRX(D) ;
MEDX
NONVA ;EP ;quit if chronic
REF ;DETERMINE THE NUMBER OF REFILLS REMAINING

External References

Name Field # of Occurrence
^%DTC MEDDSP+11
DISPREF^APCHS3C CONT+29
HOLDDSP^APCHS7 CONT+26
MEDRU^APCHS7 CONT+30
$$CHRONIC^APCHS72 MEDBLD+8
PRTTXT^APCHSUTL MEDDSP+31, NVADSP+11
$$VALI^XBDIQ1 MEDDSP+15
$$FMTE^XLFDT CONT+10, MEDDSP+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+2
Function Call: WRITE
  • Prompt: APCHSDAT,?10,$S(APCHSCRX:"CRX",1:""),?14,APCHSMED
  • Line Location: MEDDSP+24
Function Call: WRITE
  • Prompt: " #",APCHSQTY
  • Condition for execution: APCHSQTY
  • Line Location: MEDDSP+24
Function Call: WRITE
  • Prompt: " (",APCHSDYS," days) "
  • Condition for execution: APCHSDYS
  • Line Location: MEDDSP+25
Function Call: WRITE
  • Prompt: APCHSEXP
  • Line Location: MEDDSP+25
Function Call: WRITE
  • Prompt: "(expires "_APCHEXPD_")"
  • Line Location: MEDDSP+26
Function Call: WRITE
  • Prompt: !
  • Line Location: MEDDSP+27
Function Call: WRITE
  • Prompt: ?14,"Dispensed at: ",APCHSITE,!
  • Line Location: MEDDSP+28
Function Call: WRITE
  • Prompt: ?14,"("_APCHSALT_")",!
  • Line Location: MEDDSP+29
Function Call: WRITE
  • Prompt: ?16,"# times prev filled: ",Y-1
  • Line Location: MEDDSP+35
Function Call: WRITE
  • Prompt: " "
  • Line Location: MEDDSP+35
Function Call: WRITE
  • Prompt: " "
  • Line Location: MEDDSP+35
Function Call: WRITE
  • Prompt: !
  • Line Location: MEDDSP+36
Function Call: WRITE
  • Prompt: APCHSDAT,?10,$S(APCHSCRX:"CRX",1:""),?14,APCHSMED," ",APCHSEXP,!
  • Line Location: NVADSP+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVMED - [#9000010.14] CONT+7, NONVA+2, MEDBLD+3, MEDBLD+5, MEDDSP+5, MEDDSP+14, MEDDSP+17, MEDDSP+21
^AUPNVMED("AA" CONT+5, CONT+12
^AUPNVSIT - [#9000010] MEDDSP+21, SITE+2, SITE+3, SITE+4
^DIC(4 - [#4] SITE+4
^PS(50.7 - [#50.7] NONVA+13
^PS(51 - [#51] SIG+2
^PS(55 - [#55] NONVA+1, NONVA+2, NONVA+5, NONVA+10, NONVA+13, NONVA+16, NONVA+18, MEDDSP+8
^PSDRUG - [#50] NONVA+13, MEDBLD+6, MEDBLD+8, MEDDSP+13, CRX+1, CRX+2
^PSRX - [#52] REF+2
^PSRX("APCC" MEDDSP+7
^TMP($J CONT+4!, CONT+8*, CONT+9, CONT+10*, CONT+11!, CONT+16, CONT+18, CONT+20, CONT+22, MEDX+3!
, NONVA+16*, NONVA+17, NONVA+18*, NODUP+3*, NODUP+4, NODUP+5*, MEDDSP+2, MEDDSP+4, MEDDSP+32, MEDDSP+35
, NVADSP+3, NVADSP+4, NVADSP+5, NVADSP+7

Label References

Name Line Occurrences
$$CRX NONVA+12, MEDBLD+9
$$CTR CONT+17, CONT+19, CONT+21, CONT+23
@( MEDBLD+10
MEDBLD CONT+12
MEDDSP CONT+17, CONT+19, CONT+21, CONT+23
NONVA CONT+13
NVADSP MEDDSP+3
REF MEDDSP+20
SIG MEDDSP+19
SITE MEDDSP+22

Naked Globals

Name Field # of Occurrence
^( MEDDSP+7
^(21 SITE+2
^(9 SIG+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCHEXPD MEDDSP+15*, MEDDSP+26
>> APCHORTS MEDDSP+17*, MEDDSP+18
APCHSALL MEDX+2!
APCHSALT MEDX+2!, MEDDSP+14*, MEDDSP+29
>> APCHSBRK CONT+2
>> APCHSCC CONT+16*, CONT+17*, CONT+19*, CONT+20*, CONT+21*, CONT+23*
>> APCHSCHR MEDBLD+8*, NODUP+3, NODUP+5
>> APCHSCKP CONT+2, MEDDSP+23, MEDDSP+30, MEDDSP+34, NVADSP+8, NVADSP+10
APCHSCRN MEDX+2!, MEDDSP+8*
>> APCHSCRX CONT+16*, NONVA+12*, NONVA+16, MEDBLD+9*, NODUP+3, NODUP+5, MEDDSP+4*, MEDDSP+24, NVADSP+4*, NVADSP+9
>> APCHSCVD MEDDSP+9, MEDDSP+16, NVADSP+2, NVADSP+6
APCHSDAT MEDX+1!, MEDDSP+9*, MEDDSP+24, NVADSP+2*, NVADSP+9
APCHSDC MEDX+1!, MEDBLD+8*, NODUP+5, MEDDSP+10*, MEDDSP+16, MEDDSP+18, NVADSP+3*, NVADSP+6
>> APCHSDLM CONT+5, CONT+12, NONVA+7
APCHSDLU MEDX+1!
APCHSDRG MEDX+2!
APCHSDTM MEDX!, MEDBLD+7*, MEDDSP+9*, MEDDSP+11, NVADSP+2*
APCHSDYS MEDX+1!, MEDBLD+8*, MEDDSP+10*, MEDDSP+25
APCHSEXP MEDX!, MEDDSP+12*, MEDDSP+16*, MEDDSP+18*, MEDDSP+25, NVADSP+1*, NVADSP+6*, NVADSP+9
APCHSFN CONT+29*, CONT+31!
APCHSICL MEDDSP+31*!, NVADSP+11*!
APCHSIEN MEDX+1!, MEDDSP+6*, MEDDSP+32, MEDDSP+35
APCHSIG MEDX!, MEDDSP+10*, MEDDSP+19*, MEDDSP+20*, MEDDSP+21*, MEDDSP+31, SIG+1, SIG+2, NVADSP+7*, NVADSP+11
APCHSITE MEDX+2!, MEDDSP+28, SITE+1*, SITE+2*, SITE+4*
APCHSIVD CONT+5*, CONT+10, CONT+12*, CONT+16*, CONT+18*, CONT+20*, CONT+22*, MEDX!, MEDBLD+7, NODUP+3
, NODUP+5, MEDDSP+2, MEDDSP+4, MEDDSP+9, NVADSP+2, NVADSP+3, NVADSP+4, NVADSP+5, NVADSP+7
APCHSMED MEDX!, MEDDSP+13*, MEDDSP+24, MEDDSP+29, NVADSP+5*, NVADSP+9
APCHSMFX MEDX!, MEDBLD+8*, NODUP+3, NODUP+4, NODUP+5, MEDDSP+10*, MEDDSP+13
APCHSMTS MEDX!
APCHSMTY MEDSNDUP+1*, MEDX+2!, MEDBLD+10
APCHSMX CONT+5*, CONT+7, CONT+12*, MEDX!, MEDBLD+3, MEDBLD+5, MEDBLD+8, NODUP+3, NODUP+5, MEDDSP+2*
, MEDDSP+3, MEDDSP+5, MEDDSP+7, MEDDSP+14, MEDDSP+17, MEDDSP+21
APCHSN MEDX+1!, MEDBLD+5*, MEDBLD+6, MEDBLD+8, MEDBLD+9, MEDDSP+5*, MEDDSP+6, MEDDSP+10, MEDDSP+13
APCHSNAB MEDX+2!
APCHSNFL MEDX+2!
APCHSNON MEDX+1!
>> APCHSNPG CONT+2
APCHSNRQ MEDDSP+31*!, NVADSP+11*!
APCHSNSH MEDX+2!
APCHSP MEDX+1!, MEDDSP+31!, SIG+1*, SIG+2, NVADSP+11!
>> APCHSPAT CONT+5, CONT+12, NONVA+1, NONVA+2, NONVA+5, NONVA+10, NONVA+13, NONVA+16, NONVA+18, MEDDSP+8
>> APCHSQ CONT+12*, CONT+16*, CONT+18*, CONT+20*, CONT+22*
>> APCHSQIT CONT+2, CONT+27, MEDDSP+23, MEDDSP+30, MEDDSP+34, NVADSP+8, NVADSP+10
APCHSQTY MEDX!, MEDDSP+10*, MEDDSP+24
APCHSREF MEDX+2!, MEDDSP+20, REF+1*, REF+2*, REF+3*
APCHSRFL MEDX+2!, REF+2*, REF+3
APCHSRX MEDX+2!, MEDDSP+7*, MEDDSP+8, MEDDSP+15, REF+1, REF+2
APCHSSGY MEDX!, MEDDSP+19, SIG+1*, SIG+3*
APCHST CONT+29*, CONT+31!
APCHSTXT MEDX+2!, MEDDSP+31*, NVADSP+11*
APCHSVDF MEDX+1!, MEDDSP+10*, SITE+2, SITE+3, SITE+4
APCHSVSC MEDX+2!
D NONVA+10*, NONVA+11*, NONVA+12, NONVA+13, CRX~, CRX+1, CRX+2
DT MEDDSP+11
DUZ(2 SITE+4
>> I MEDDSP+35*
IOM CTR+1
>> L NONVA+5*, NONVA+6*, NONVA+7, NONVA+16
>> M CONT+7*, CONT+8, CONT+9, CONT+10
>> N NONVA+13*, NONVA+16, NONVA+17, NONVA+18
U CONT+8, CONT+9, CONT+10, CONT+16, CONT+18, CONT+20, CONT+22, NONVA+2, NONVA+5, NONVA+10
, NONVA+13, NONVA+16, NONVA+18, MEDBLD+6, MEDBLD+8, MEDBLD+9, MEDDSP+2, MEDDSP+4, MEDDSP+10, MEDDSP+13
, MEDDSP+14, MEDDSP+17, MEDDSP+21, MEDDSP+32, MEDDSP+35, REF+2, SITE+2, SITE+3, SITE+4, CRX+1
, CRX+2, NVADSP+3, NVADSP+4, NVADSP+5, NVADSP+7
>> V MEDDSP+21*
X CONT+9*, CONT+10, MEDX+4!, NONVA+1*, NONVA+2, NONVA+5, NONVA+10, NONVA+13, NONVA+16, NONVA+18
, SIG+1*, SIG+2*, SIG+3, CTR~, CTR+1
X1 MEDX+4!, MEDDSP+11*
X2 MEDX+4!, MEDDSP+11*
Y MEDX+4!, MEDDSP+9*, MEDDSP+16*, MEDDSP+18, MEDDSP+32*, MEDDSP+33, MEDDSP+35, SIG+2*, CRX+2~*, CRX+3
, CRX+4, CRX+5, CRX+6, CRX+7, CRX+8, CRX+9, CTR~, CTR+1, NVADSP+2*, NVADSP+6*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All