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

Package: Patient Care Component

Routine: APCDPROB


Information

APCDPROB ; IHS/CMI/LAB - Display Problems and Notes ;

Source Information

Source file <APCDPROB.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
IHS Patient 1 $$PNPROB^AUPNVUTL  
IHS VA Utilities 1 $$VAL^XBDIQ1  
Kernel 1 $$FMTE^XLFDT  
Patient Care Component Reports 1 ($$LASTNAP,$$LASTPLR,$$LASTPLU)^APCLAPI6  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Care Component 1 APCDAPRB  

Entry Points

Name Comments DBIA/ICR reference
GETNARR ;
DSPFACN ; DISPLAY NOTES FOR SELECTED FACILITY
NOTEDSP ; DISPLAY NOTES UNDER PROBLEM
PRTTXT ; GENERALIZED TEXT PRINTER
PROBDSP ;
PROBSCH ;
DSPN ; DISPLAY SINGLE NOTE
EOP ;end of page
COMMON ;
PROBX
PRTICD ;
GETSITE ;
GETFRAG
PRTTXT2

External References

Name Field # of Occurrence
$$LASTNAP^APCLAPI6 APCDPROB+12
$$LASTPLR^APCLAPI6 APCDPROB+8
$$LASTPLU^APCLAPI6 APCDPROB+10
$$PNPROB^AUPNVUTL GETNARR+2
$$VAL^XBDIQ1 PROBDSP+15
$$FMTE^XLFDT APCDPROB+9, APCDPROB+11, APCDPROB+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Problem List Reviewed On: ",?24,$$FMTE^XLFDT($P(APCDSX,U,1))
  • Line Location: APCDPROB+9
Function Call: WRITE
  • Prompt: ?51,"By: ",?54,$E($S($P(APCDSX,U,3):$P($G(^VA(200,$P(APCDSX,U,3),0)),U),1:""),1,25),!
  • Line Location: APCDPROB+9
Function Call: WRITE
  • Prompt: "Problem List Updated On: ",?36,$$FMTE^XLFDT($P(APCDSX,U,1))
  • Line Location: APCDPROB+11
Function Call: WRITE
  • Prompt: ?51,"By: ",?54,$E($S($P(APCDSX,U,3):$P($G(^VA(200,$P(APCDSX,U,3),0)),U),1:""),1,25),!
  • Line Location: APCDPROB+11
Function Call: WRITE
  • Prompt: "No Active Problems Documented On: ",?36,$$FMTE^XLFDT($P(APCDSX,U,1))
  • Line Location: APCDPROB+13
Function Call: WRITE
  • Prompt: ?51,"By: ",$E($S($P(APCDSX,U,3):$P($G(^VA(200,$P(APCDSX,U,3),0)),U),1:""),1,25),!
  • Line Location: APCDPROB+13
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: APCDPROB+17
Function Call: WRITE
  • Prompt: !!,"Press return to continue "
  • Line Location: APCDPROB+17
Function Call: WRITE
  • Prompt: !!,"********** No ",$S(APCDTTAT="A":"ACTIVE",1:"INACTIVE/RESOLVED")," Problems on file for this Patient",!
  • Line Location: COMMON+1
Function Call: WRITE
  • Prompt: !!,"********** No Problems on file for this Patient",!
  • Line Location: COMMON+2
Function Call: WRITE
  • Prompt: !,"********** No ",$S(APCDTTAT="A":"ACTIVE",1:"INACTIVE/RESOLVED")," Problems on file for this Patient",!
  • Line Location: COMMON+5
Function Call: WRITE
  • Prompt: !,"********** No ",$S(APCDTTAT["A":"ACTIVE (ALL)",1:"INACTIVE")," Problems on file for this Patient",!
  • Line Location: COMMON+7
Function Call: WRITE
  • Prompt: !!,"******************",$S(APCDTTAT["A":" ACTIVE (ALL) ",1:" INACTIVE "),"PROBLEMS AND NOTES ********************",!!
  • Line Location: COMMON+8
Function Call: WRITE
  • Prompt: APCDTPLN
  • Line Location: PROBDSP+14
Function Call: WRITE
  • Prompt: ?24,"Status: ",$$VAL^XBDIQ1(9000011,APCDTDFN,.12),!
  • Line Location: PROBDSP+15
Function Call: WRITE
  • Prompt: APCDTPNM,APCDTFCN,$P(APCDTN,U),?12,APCDTDOI,?24,$P(APCDTN,U,3),!
  • Line Location: DSPN+6
Function Call: WRITE
  • Prompt: ?APCDTICL
  • Line Location: PRTTXT2+3
Function Call: WRITE
  • Prompt: APCDTF,!
  • Line Location: PRTTXT2+3
Function Call: WRITE
  • Prompt: !,"Enter return to continue, '^' to exit"
  • Line Location: EOP+1
Function Call: WRITE
  • Prompt: "??"
  • Line Location: EOP+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPROB - [#9000011] PROBSCH+1, PROBDSP+1, NOTEDSP+1, DSPFACN+1, DSPFACN+2, DSPFACN+3, DSPFACN+4, DSPN+1
^AUPNPROB("AA" COMMON+4, PROBSCH+1
^AUPNPROB("AC" COMMON+2
^AUTTLOC - [#9999999.06] GETSITE+2
^DIC(4 - [#4] GETSITE+3
^VA(200 - [#200] APCDPROB+9, APCDPROB+11, APCDPROB+13

Label References

Name Line Occurrences
COMMON APCDPROB+14
DSPFACN NOTEDSP+1
DSPN DSPFACN+4
EOP PROBDSP+12, DSPN+5, PRTTXT2+1, EOP+3
GETFRAG PRTTXT2
GETNARR PROBDSP+3
GETSITE PROBDSP+7, DSPFACN+3
NOTEDSP PROBDSP+16
PROBDSP COMMON+9
PROBSCH COMMON+4
PROBX APCDPROB+16
PRTICD PROBDSP+14
PRTTXT PRTICD+2
PRTTXT2 PRTTXT+3

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % GETSITE+2*, GETSITE+3, GETSITE+4, GETSITE+5
>> APCDPAT APCDPROB+8, APCDPROB+10, APCDPROB+12, COMMON+2, COMMON+4, PROBSCH+1
APCDQUIT APCDPROB+3~, APCDPROB+4*, APCDPROB+14, APCDPROB+17, COMMON+4, COMMON+9, PROBSCH+1, PROBDSP+12, NOTEDSP+1, DSPFACN+4
, DSPN+5, PRTTXT2+2, EOP+2*
APCDSX APCDPROB+3~, APCDPROB+8*, APCDPROB+9, APCDPROB+10*, APCDPROB+11, APCDPROB+12*, APCDPROB+13
APCDTC PRTTXT+4!, GETFRAG+1*, GETFRAG+2
APCDTCVD APCDPROB+6*, APCDPROB+15!, PROBDSP+5, PROBDSP+10, PROBDSP+11, DSPN+4
APCDTDFN COMMON+9*, PROBX!, PROBSCH+1*, PROBDSP+1, PROBDSP+15, NOTEDSP+1, DSPFACN+1, DSPFACN+2, DSPFACN+3, DSPFACN+4
, DSPN+1
APCDTDFT COMMON+3!, PROBX!
APCDTDFT( COMMON+9, PROBSCH+1*
APCDTDLT PRTTXT+1*, PRTTXT+4!, PRTTXT2+3*
APCDTDOI PROBX+1!, DSPN+4*, DSPN+6, DSPN+7!
APCDTDOO PROBX+1!, PROBDSP+5*, PRTTXT+2, PRTTXT+4!
APCDTDTM PROBX!, PROBDSP+10*, PROBDSP+13
APCDTDTN PROBX!, PROBDSP+11*
APCDTF PRTTXT+4!, PRTTXT2+3, GETFRAG*, GETFRAG+2*
APCDTFAC COMMON+4*, PROBX!, PROBSCH+1
APCDTFCN PROBX!, DSPFACN+3*, DSPN+3*, DSPN+6
APCDTFPP COMMON+9*, PROBX!
APCDTICD PROBX!, PRTICD+1*, PRTICD+2
APCDTICL PROBX!, PROBDSP+14*, PRTTXT+1, PRTTXT2+3*
APCDTILN PROBX!, PROBDSP+14*, PRTTXT+1*, PRTTXT+4!, PRTTXT2+3*, GETFRAG, GETFRAG+1
APCDTITE PROBX+1!, PROBDSP+6*, DSPFACN+3*, GETSITE+1*, GETSITE+2, GETSITE+3, GETSITE+4, GETSITE+5
APCDTN PROBX!, PROBDSP+1*, PROBDSP+2, PROBDSP+5, PROBDSP+6, PROBDSP+8, PROBDSP+10, PROBDSP+11, DSPN+1*, DSPN+2
, DSPN+4, DSPN+6
APCDTNAB PROBX+1!, PROBDSP+9, DSPFACN+3, GETSITE+5*
APCDTNDF COMMON+3*, COMMON+7, PROBX!, PROBSCH+1*, DSPFACN+4*, DSPN+1
APCDTNFL PROBX+1!, GETSITE+3*
APCDTNFP PROBX!, NOTEDSP+1*, DSPFACN+1, DSPFACN+2, DSPFACN+3, DSPFACN+4, DSPN+1
APCDTNRQ PROBX!, PROBDSP+2*, PROBDSP+4*, PRTICD+1*, PRTTXT+2*, PRTTXT+3*, GETNARR+2*, GETNARR+3*
APCDTNSH PROBX+1!, GETSITE+4*
APCDTPBN PROBX!
APCDTPLN PROBX!, PROBDSP+13*, PROBDSP+14
APCDTPNM PROBX!, PROBDSP+8*, PROBDSP+9*, PROBDSP+13, DSPN+6
APCDTPRB PROBX!, PROBSCH+1*
APCDTQ APCDPROB+15!, COMMON+4*, COMMON+9*, PROBSCH+1*, NOTEDSP+1*, DSPFACN+4*, DSPN+3*, PRTTXT+3*
APCDTTAT APCDPROB+14*, COMMON+7, COMMON+8, PROBX!, PROBSCH+1
APCDTTXT PRTICD+2*, PRTTXT+3*, PRTTXT+4!, GETFRAG*, GETFRAG+1, GETFRAG+2*
APCDTVSC PROBX+1!
DT APCDPROB+8, APCDPROB+10, APCDPROB+12
DTIME APCDPROB+17, EOP+1
IOF APCDPROB+5, EOP+4
IOSL APCDPROB+17, PROBDSP+12, DSPN+5, PRTTXT2+1
U APCDPROB+9, APCDPROB+11, APCDPROB+13, PROBSCH+1, PROBDSP+2, PROBDSP+5, PROBDSP+6, PROBDSP+8, PROBDSP+10, PROBDSP+11
, DSPN+2, DSPN+4, DSPN+6, GETSITE+3, GETSITE+4, GETSITE+5
X APCDPROB+17*!, APCDPROB+18!, EOP+1*, EOP+2, EOP+3
Y APCDPROB+15!, PROBDSP+5*, PROBDSP+10*, PROBDSP+11*, DSPN+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All