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 |  All
Print Page as PDF
Routine: APCHS70

Package: Patient Care Component

Routine: APCHS70


Information

APCHS70 ; IHS/CMI/LAB - HEALTH SUMMARY COMPONENT FOR ALLERGY FILE (PATIENT ALLERGY) ;

Source Information

Source file <APCHS70.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 2 $$FMTE^XLFDT  $$CJ^XLFSTR  
Patient Care Component 1 $$INACTIVE^APCHS79  
Patient Care Component Reports 1 ($$LASTALR,$$LASTALU,$$LASTNAA)^APCLAPI6  

Entry Points

Name Comments DBIA/ICR reference
END ;CLEAN UP
EN ;START HERE
REV ;get date last reviewed and display
TEST(CHECKIT) ;CHECK IF VERIFED AND NOT ENTERED IN ERROR

External References

Name Field # of Occurrence
$$INACTIVE^APCHS79 EN+18
$$LASTALR^APCLAPI6 REV+1
$$LASTALU^APCLAPI6 REV+4
$$LASTNAA^APCLAPI6 REV+7
$$FMTE^XLFDT EN+8, EN+13, REV+3, REV+6, REV+10
$$CJ^XLFSTR EN+8, EN+9, EN+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $S(APCHMEC="A":"Allergies:",APCHMEC="P":"Adverse Reactions:",1:"Unspecified:")
  • Line Location: EN+46
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+51
Function Call: WRITE
  • Prompt: !,"Allergy List Reviewed On: ",?36,$$FMTE^XLFDT($P(APCHSX,U,1))
  • Line Location: REV+3
Function Call: WRITE
  • Prompt: ?51,"By: ",?54,$E($S($P(APCHSX,U,3):$P($G(^VA(200,$P(APCHSX,U,3),0)),U),1:""),1,25),!
  • Line Location: REV+3
Function Call: WRITE
  • Prompt: "Allergy List Updated On: ",?36,$$FMTE^XLFDT($P(APCHSX,U,1))
  • Line Location: REV+6
Function Call: WRITE
  • Prompt: ?51,"By: ",?54,$E($S($P(APCHSX,U,3):$P($G(^VA(200,$P(APCHSX,U,3),0)),U),1:""),1,25),!
  • Line Location: REV+6
Function Call: WRITE
  • Prompt: !,"No Active Problems: ",?24,$$FMTE^XLFDT($P(APCHSX,U,1))
  • Line Location: REV+9
Function Call: WRITE
  • Prompt: ?39,"Documented By: ",?54,$E($P($G(^VA(200,$P(APCHSX,U,3),0)),U),1,25),!
  • Line Location: REV+9
Function Call: WRITE
  • Prompt: "No Active Allergies Documented On: ",?36,$$FMTE^XLFDT($P(APCHSX,U,1))
  • Line Location: REV+10
Function Call: WRITE
  • Prompt: ?51,"By: ",?54,$E($S($P(APCHSX,U,3):$P($G(^VA(200,$P(APCHSX,U,3),0)),U),1:""),1,22),!
  • Line Location: REV+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(120.8 - [#120.8] EN+6, EN+10, EN+11, EN+12, EN+15, EN+19, EN+30, EN+31, EN+33, TEST+4
^GMR(120.86 - [#120.86] EN+7, EN+8
^GMRD(120.83 - [#120.83] EN+32
^VA(200 - [#200] REV+3, REV+6, REV+10

Label References

Name Line Occurrences
$$TEST EN+17
END EN+5, EN+14, REV+11
REV EN+6, EN+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APCHALG EN+15*, EN+17, EN+18, EN+19, EN+30, EN+31, EN+33, EN+39, EN+44*, EN+45
, EN+49, END+1!
>> APCHCNT EN+35*, EN+38
APCHDATA EN+29!, EN+35*, EN+37*, EN+38*, EN+39
APCHDATA( EN+32*, EN+33*, EN+35, EN+38
APCHDATE EN+27*, EN+28, EN+39, EN+43*, EN+44, EN+45, EN+49, END+1!
APCHDFN EN+1*, EN+3, EN+6!, EN+7, EN+8, EN+10, EN+11, EN+15
>> APCHDRUG EN+24*, EN+25*, EN+39
APCHENT END+1!
APCHENT( EN+39*, EN+42, EN+43, EN+44, EN+45, EN+49
APCHMEC EN+22*, EN+39, EN+42*, EN+43, EN+44, EN+45, EN+46, EN+47, EN+48, EN+49
, END+1!
>> APCHNKAD EN+12*, EN+13
APCHNKAI EN+2!, EN+11*, EN+12, EN+14
>> APCHNN EN+34*, EN+36*, EN+37
>> APCHPEC EN+19*, EN+20, EN+21, EN+22, EN+23, EN+24, EN+27
APCHPREV EN+41*, EN+46, EN+48*, END+1!
>> APCHREC EN+30*, EN+31, EN+33
>> APCHRNUM EN+31*, EN+32, EN+33
>> APCHSBRK EN+5
>> APCHSCKP EN+5, EN+50, REV+2, REV+5, REV+8
>> APCHSNPG EN+5
>> APCHSPAT EN+1, REV+1, REV+4, REV+7
APCHSPCE END+2!
>> APCHSQIT EN+5, EN+15, EN+42, EN+43, EN+44, EN+50, REV+2, REV+5, REV+8
>> APCHSX REV+1*, REV+3, REV+4*, REV+6, REV+7*, REV+10
>> APCHT EN+47*, EN+49
APCHVER EN+16*, EN+23*, EN+39, END+2!
APCHWARN END+1!
CHECK TEST+1~, TEST+2*, TEST+4*, TEST+5
CHECKIT TEST~, TEST+4
DT REV+1, REV+4, REV+7
U EN+7, EN+8, EN+12, EN+21, EN+22, EN+23, EN+24, EN+27, EN+32, EN+33
, REV+3, REV+6, REV+10, TEST+4
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All