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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APCHS4

Package: Patient Care Component

Routine: APCHS4


Information

APCHS4 ; IHS/CMI/LAB - PART 4 OF APCHS -- SUMMARY PRODUCTION COMPONENTS ;

Source Information

Source file <APCHS4.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
DRG Grouper 1 $$ICDDX^ICDEX  
IHS Patient 1 $$CAT^AUPNVPLC  
IHS VA Utilities 1 $$VAL^XBDIQ1  
Kernel 1 $$FMTE^XLFDT  
Patient Care Component 1 ($$WANTPN,GETICDDX,GETSITE,PRTICD,PRTICDE,PRTTXT)^APCHSUTL  
Patient Care Component Reports 1 ($$LASTNAP,$$LASTPLR,$$LASTPLU)^APCLAPI6  
VA Fileman 1 $$GET1^DIQ  

Entry Points

Name Comments DBIA/ICR reference
EPROB
PROBDSP ;
; <SETUP PROBLEM>
IPROB
NOTEDSP ; DISPLAY NOTES UNDER APCHSPRBLEM
OPROB
RPROB
CPROB
APROB
PROBSCH ;
COMMON1 ;additional stuff for CHHIT bjpc 2.0 patch 5
DSPFACN ; DISPLAY NOTES FOR SELECTED APSHCFACILITY
COMMON ;
PROBX
ECODEDSP ;
DSPN ; DISPLAY SINGLE NOTE
PROBST ;EP - problems by status
SPROB
PROB ; ******************** PROBLEM / NOTES * 9000011 *********

External References

Name Field # of Occurrence
$$WANTPN^APCHSUTL PROBDSP+6
GETICDDX^APCHSUTL PROBDSP+5, ECODEDSP+8
GETSITE^APCHSUTL PROBDSP+9, DSPFACN+2
PRTICD^APCHSUTL PROBDSP+21
PRTICDE^APCHSUTL ECODEDSP+12
PRTTXT^APCHSUTL DSPN+7
$$LASTNAP^APCLAPI6 COMMON1+9
$$LASTPLR^APCLAPI6 COMMON1+2
$$LASTPLU^APCLAPI6 COMMON1+5
$$CAT^AUPNVPLC PROBDSP+15
$$GET1^DIQ PROBDSP+7, PROBDSP+8, PROBDSP+28, PROBDSP+34, PROBDSP+40
$$ICDDX^ICDEX ECODEDSP+7, ECODEDSP+9
$$VAL^XBDIQ1 PROBDSP+14, PROBDSP+18
$$FMTE^XLFDT COMMON1+4, COMMON1+7, COMMON1+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?13,"ENT. MODIFIED",!
  • Line Location: COMMON+6
Function Call: WRITE
  • Prompt: !,"Problem List Reviewed On: ",?36,$$FMTE^XLFDT($P(APCHSX,U,1))
  • Line Location: COMMON1+4
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: COMMON1+4
Function Call: WRITE
  • Prompt: "Problem List Updated On: ",?36,$$FMTE^XLFDT($P(APCHSX,U,1))
  • Line Location: COMMON1+7
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: COMMON1+7
Function Call: WRITE
  • Prompt: !,"No Active Problems: ",?24,$$FMTE^XLFDT($P(APCHSX,U,1))
  • Line Location: COMMON1+11
Function Call: WRITE
  • Prompt: ?39,"Documented By: ",?54,$E($P($G(^VA(200,$P(APCHSX,U,3),0)),U),1,25),!
  • Line Location: COMMON1+11
Function Call: WRITE
  • Prompt: ?51,"By: ",$E($S($P(APCHSX,U,3):$P($G(^VA(200,$P(APCHSX,U,3),0)),U),1:""),1,25),!
  • Line Location: COMMON1+12
Function Call: WRITE
  • Prompt: APCHSPLN
  • Line Location: PROBDSP+21
Function Call: WRITE
  • Prompt: ?30,"CAUSE: ",!
  • Line Location: ECODEDSP+1
Function Call: WRITE
  • Prompt: APCHSPNM,APCHSFCN,$P(APCHSN,U)
  • Line Location: DSPN+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPROB - [#9000011] GET1^DIQ
9000011.13 GET1^DIQ
9000011.17 GET1^DIQ
9000011.18 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCHSCTL - [#9001015] APROB, PROBDSP+8
^AUPNPROB - [#9000011] PROBST+7, PROBSCH+1, PROBDSP+3, PROBDSP+4, PROBDSP+24, PROBDSP+26, PROBDSP+30, PROBDSP+32, PROBDSP+36, PROBDSP+38
, NOTEDSP+1, DSPFACN+1, DSPFACN+2, DSPFACN+3
^AUPNPROB("AA" PROBST+4, PROBST+5, PROBST+6, COMMON+2, PROBSCH+1
^VA(200 - [#200] COMMON1+4, COMMON1+7, COMMON1+12

Label References

Name Line Occurrences
COMMON APROB, CPROB, SPROB, OPROB, EPROB, RPROB
COMMON1 PROBST+12, PROBST+15, COMMON+4
DSPFACN NOTEDSP+1
DSPN DSPFACN+3
ECODEDSP PROBDSP+22
NOTEDSP PROBDSP+41
PROBDSP PROBST+14, COMMON+7
PROBSCH COMMON+2
PROBX PROBST+11, COMMON+3

Naked Globals

Name Field # of Occurrence
^( PROBSCH+1, DSPFACN+3
^(0 DSPFACN+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APCHCSVD PROBX+2!, PROBDSP+4*
APCHPBST PROBST+1~
>> APCHSAX PROBDSP+26*, PROBDSP+27, PROBDSP+32*, PROBDSP+33, PROBDSP+38*, PROBDSP+39
>> APCHSBRK PROBST+11, COMMON+3
>> APCHSCKP PROBST+11, COMMON+3, COMMON+6, COMMON1+3, COMMON1+6, COMMON1+10, PROBDSP+20, ECODEDSP+1, ECODEDSP+3, DSPN+6
>> APCHSCL PROBDSP+14*, PROBDSP+15
>> APCHSCVD PROBDSP+12, PROBDSP+13, PROBDSP+16, DSPN+3
APCHSDFN PROBST+6*, PROBST+7, PROBST+10, PROBST+14*, COMMON+7*, PROBX!, PROBSCH+1*, PROBDSP+3, PROBDSP+4, PROBDSP+7
, PROBDSP+8, PROBDSP+14, PROBDSP+18, PROBDSP+24, PROBDSP+26, PROBDSP+27, PROBDSP+30, PROBDSP+32, PROBDSP+33, PROBDSP+36
, PROBDSP+38, PROBDSP+39, NOTEDSP+1, DSPFACN+1, DSPFACN+2, DSPFACN+3
APCHSDFT COMMON+1!, PROBX!
APCHSDFT( PROBST+10*, PROBST+14, COMMON+7, PROBSCH+1*
APCHSDOO PROBX!, PROBDSP+16*, PROBDSP+17
APCHSDTM PROBX!, PROBDSP+12*, PROBDSP+19
APCHSDTN PROBX!, PROBDSP+13*, PROBDSP+19
APCHSFAC PROBST+4*, PROBST+5, PROBST+6, PROBST+10, COMMON+2*, PROBX!, PROBSCH+1
APCHSFCN PROBX!, DSPFACN+2*, DSPN+5*, DSPN+6
APCHSFPP PROBST+14*, COMMON+7*, PROBX!
APCHSICD PROBX!, PROBDSP+5*, ECODEDSP+5*, ECODEDSP+6, ECODEDSP+9, ECODEDSP+10
>> APCHSICF ECODEDSP+7, ECODEDSP+9, ECODEDSP+10
APCHSICL PROBX+1!, PROBDSP+21*, ECODEDSP+11*, DSPN+7*
APCHSILN PROBX+1!, PROBDSP+21*, ECODEDSP+11*
APCHSITE PROBX+2!, PROBDSP+9*, DSPFACN+2*
APCHSN PROBX+1!, PROBDSP+3*, PROBDSP+5, PROBDSP+9, PROBDSP+10, PROBDSP+12, PROBDSP+13, PROBDSP+15, PROBDSP+16, PROBDSP+22
, ECODEDSP+5, ECODEDSP+7, ECODEDSP+9, DSPFACN+3*, DSPN+1, DSPN+2, DSPN+6
APCHSNAB PROBX+2!, PROBDSP+11, DSPFACN+2
APCHSNAR PROBX+1!, DSPN+2*, DSPN+4*, DSPN+7
APCHSNDF PROBST+3*, PROBST+10*, PROBST+12, COMMON+1*, COMMON+4, PROBX!, PROBSCH+1*, DSPFACN+3*
APCHSNFL PROBX+2!
APCHSNFP PROBX!, NOTEDSP+1*, DSPFACN+1, DSPFACN+2, DSPFACN+3
>> APCHSNPG PROBST+11, COMMON+3, PROBDSP+20, ECODEDSP+3
APCHSNRQ PROBX!, PROBDSP+6*, PROBDSP+7*, PROBDSP+8*, ECODEDSP+7*, ECODEDSP+9*, ECODEDSP+10*
APCHSNSH PROBX+2!
APCHSNTE PROBX+1!, PROBDSP+2*, PROBDSP+15*, PROBDSP+17*, PROBDSP+18*
>> APCHSP ECODEDSP+2*, ECODEDSP+5, ECODEDSP+7, ECODEDSP+9
>> APCHSPAT PROBST+4, PROBST+5, PROBST+6, COMMON+2, COMMON1+2, COMMON1+5, COMMON1+9, PROBSCH+1
APCHSPBN PROBX!
APCHSPLN PROBX!, PROBDSP+19*, PROBDSP+21
APCHSPNM PROBX!, PROBDSP+10*, PROBDSP+11*, PROBDSP+19, DSPN+6
APCHSPRB PROBST+5*, PROBST+6, PROBST+10, PROBX!, PROBSCH+1*
>> APCHSQ PROBST+4*, PROBST+5*, PROBST+14*, COMMON+2*, COMMON+7*, PROBSCH+1*, NOTEDSP+1*, DSPFACN+3*, DSPN+5*
>> APCHSQIT PROBST+11, COMMON+3, COMMON+6, COMMON+7, COMMON1+3, COMMON1+6, COMMON1+10, PROBDSP+20, ECODEDSP+1, ECODEDSP+2
, ECODEDSP+3, DSPN+6
APCHST PROBST+1~, PROBST+7*, PROBST+8, PROBST+9, PROBST+10, PROBST+13*, PROBST+14
APCHSTAT PROBST+2*, APROB*, CPROB*, SPROB*, OPROB*, EPROB*, RPROB*, IPROB*, COMMON1+8, PROBX!
, PROBSCH+1
>> APCHSTXT ECODEDSP+4*, DSPN+7*
>> APCHSTYP APROB, PROBDSP+6, PROBDSP+8
APCHSVSC PROBX+2!
APCHSX COMMON1+2*, COMMON1+4, COMMON1+5*, COMMON1+7, COMMON1+9*, COMMON1+12, PROBX+2!
DT COMMON1+2, COMMON1+5, COMMON1+9
>> I PROBDSP+27*, PROBDSP+28, PROBDSP+33*, PROBDSP+34, PROBDSP+39*, PROBDSP+40
U PROBST+7, APROB, COMMON1+4, COMMON1+7, COMMON1+12, PROBSCH+1, PROBDSP+4, PROBDSP+5, PROBDSP+8, PROBDSP+9
, PROBDSP+10, PROBDSP+12, PROBDSP+13, PROBDSP+15, PROBDSP+16, PROBDSP+22, ECODEDSP+5, ECODEDSP+7, ECODEDSP+9, DSPN+1
, DSPN+2, DSPN+6
>> X PROBDSP+8*
Y PROBX+2!, PROBDSP+12*, PROBDSP+13*, PROBDSP+16*, DSPN+2*, DSPN+3*, DSPN+4
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All