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

Package: Patient Care Component

Routine: APCDAPRB


Information

APCDAPRB ; IHS/CMI/LAB - PROMPT FOR PROBLEM ;

Source Information

Source file <APCDAPRB.m>

Call Graph

Call Graph Total: 23

Package Total Call Graph
Patient Care Component 7 ^APCDALV  ^APCDALVR  GETVISIT^APCDAPI4  DEDT^APCDEA2  ENDE^APCDPL  ^APCDPLK  ^APCDPROB  
VA Fileman 7 EN^DDIOL  ^DIC  FILE^DICN  ^DIE  ^DIK  $$GET1^DIQ  ^DIR  
IHS VA Utilities 2 $$VAL^XBDIQ1  (,EN)^XBNEW  
Kernel 2 $$FMTE^XLFDT  $$REPEAT^XLFSTR  
DRG Grouper 1 $$ICDDX^ICDEX  
IHS Changes To Scheduling 1 ^BSDAPI4  
IHS Patient 1 ^AUPNPAT  
Patient Care Component Reports 1 ($$PRIMPROV,$$VD)^APCLV  
Registration 1 TERM^VALM0  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Mental Health Social Services 3 AMHAPRB  AMHGSBPL  AMHPCCL1  
Patient Care Component 3 APCDAPOV  APCDPL1  APCDPL2  

Entry Points

Name Comments DBIA/ICR reference
ANYACTP(P,EDATE) ;EP - does this patient have any active problems?
PL1 ;EP
PLR1 ;
QUAL2
QUAL1 ;EP
CPSA ;EP - CALLED FROM INPUT TEMPLATE APCD CPS TO UPDATE PROBLEM STATUS
EVSIT ;EP - get/create event visit
CPS ;EP - CALLED FROM INPUT TEMPLATE APCD CPS TO UPDATE PROBLEM STATUS
NO1 ;EP
PLU(APCDPIEN,APCDV,APCDP,APCDD,APCDPRV,RETVAL) ;PEP - called to update Problem list update fields
NO ;EP add a note to a problem
PL ;EP
PLUV ;have a visit so create a v updated/reviewed for provider APCDPRV if one does
FM12 ;
NUM ;
PLUDE1P ;GET PROVIDER
FM13 ;
MNN ;EP
BSD ;
PO ;EP
RPO ;EP
APO ;EP
START ;EP
XIT
FMD ;
FME ;
FMA ;
NON ;EP called from APCD NO (ADD) template
RNO ;EP
QUAL ;EP add a note to a problem
MPO ;EP
QUALP ;EP - called from input templates
PLUDE1 ;EP - called from xbnew
IPO ;EP
CPSA1 ;EP
NOX ;
PLUDE ;EP - called from data entry input templates
PLR(APCDTDA) ;EP - called from nap template to create PLR entry
PDSP ;EP
NOP ;EP called from APCD PO (ADD) template
CPS1 ;EP

External References

Name Field # of Occurrence
^APCDALV EVSIT+12
^APCDALVR PLUV+22, PLR1+11
GETVISIT^APCDAPI4 BSD+12
DEDT^APCDEA2 BSD+16, EVSIT+14
ENDE^APCDPL PL1+2
^APCDPLK NO+5, QUAL+5
^APCDPROB NO+1, QUAL+1
$$PRIMPROV^APCLV PLUDE1P+7
$$VD^APCLV PLUDE1+3
^AUPNPAT PL+3
^BSDAPI4 EVSIT+1
EN^DDIOL QUAL2+2, FM12+1, FME+1, FMD+1
^DIC START+1, NUM+3, NUM+8
FILE^DICN FMA+5
^DIE PO+1, MPO+1, RPO+1, IPO+1, APO+1, MNN+1, RNO+1, PDSP+1, NUM+10, NUM+11
, FME+10, CPS1+8, CPSA1+9
^DIK FMD+8
$$GET1^DIQ QUAL2+5
^DIR NO+2, NO1+7, QUAL+2, FM12+4, FME+3, FMD+3, FMA+1, PLUDE1+4, PLUDE1P+7, CPS1+3
, CPS1+5, CPSA1+4, CPSA1+5
$$ICDDX^ICDEX NO1+3
TERM^VALM0 PL1+1
$$VAL^XBDIQ1 CPS1+3
^XBNEW NON+1, NOP+3, QUALP+3
EN^XBNEW PL+7, PLUDE+11, PLR+1, CPS+3, CPSA+3
$$FMTE^XLFDT NO1+6, PLUDE1+3
$$REPEAT^XLFSTR QUAL2+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),$C(7),"Not a valid problem number.",!
  • Line Location: NO+6
Function Call: WRITE
  • Prompt: !!,"Problem Number: ",APCDPR,?40,"Diagnosis: ",$P($$ICDDX^ICDEX($P(^AUPNPROB(APCDPROB,0),U)),U,2)
  • Line Location: NO1+3
Function Call: WRITE
  • Prompt: !?5,$P(^DIC(4,$P(^AUPNPROB(APCDPROB,11,L,0),U),0),U)
  • Line Location: NO1+5
Function Call: WRITE
  • Prompt: !?10,"Note#",$P(^AUPNPROB(APCDPROB,11,L,11,X,0),U)," ",$$FMTE^XLFDT($P(^(0),U,5),5),?28,$P(^AUPNPROB(APCDPROB,11,L,11,X,0),U,3)
  • Line Location: NO1+6
Function Call: WRITE
  • Prompt: !
  • Line Location: NO1+7
Function Call: WRITE
  • Prompt: $C(7),$C(7),"ERROR UPDATING NOTE LOCATION MULTIPLE"
  • Line Location: NUM+4
Function Call: WRITE
  • Prompt: !!,"Adding ",$P(^DIC(4,APCDLOC,0),U)," Note #",X
  • Line Location: NUM+7
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"ERROR when updating note number multiple",!
  • Line Location: NUM+9
Function Call: WRITE
  • Prompt: ?10
  • Line Location: NUM+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: NUM+10
Function Call: WRITE
  • Prompt: $C(7),$C(7),"Not a valid problem number.",!
  • Line Location: QUAL+6
Function Call: WRITE
  • Prompt: !!?3,"Severity:"
  • Line Location: QUAL2+0
Function Call: WRITE
  • Prompt: " None recorded"
  • Line Location: QUAL2+1
Function Call: WRITE
  • Prompt: !!,"This is required."
  • Line Location: PLUDE1+5
Function Call: WRITE
  • Prompt: !!,"Future Dates now allowed.",!
  • Line Location: PLUDE1+6
Function Call: WRITE
  • Prompt: !!,"This is required."
  • Line Location: PLUDE1P+8
Function Call: WRITE
  • Prompt: !!,"error: ",$P(APCDRET,U,2)
  • Line Location: PLUDE1P+11
Function Call: WRITE
  • Prompt: "^ not allowed"
  • Line Location: CPSA1+6
Function Call: WRITE
  • Prompt: " Required"
  • Line Location: CPSA1+7
Routine Call
  • DIE
  • Line Location:
    • PO+1
    • MPO+1
    • RPO+1
    • IPO+1
    • APO+1
    • MNN+1
    • RNO+1
    • PDSP+1
    • NUM+10
    • NUM+11
    • FME+10
    • CPS1+8
    • CPSA1+9
Routine Call
  • DIC
  • Line Location:
    • START+1
    • NUM+3
    • NUM+8
Routine Call
  • DIR
  • Line Location:
    • NO+2
    • NO1+7
    • QUAL+2
    • FM12+4
    • FME+3
    • FMD+3
    • FMA+1
    • PLUDE1+4
    • PLUDE1P+7
    • CPS1+3
    • CPS1+5
    • CPSA1+4
    • CPSA1+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ICD9 - [#80] Classic Fileman Calls
^AUPNPAT - [#9000001] Classic Fileman Calls
^AUPNPROB - [#9000011] Classic Fileman Calls
9000011.13 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCCCTRL - [#9001000] BSD+6, EVSIT+10
^AUPNPAT - [#9000001] PLU+20
^AUPNPROB - [#9000011] NO1+3, NO1+4, NO1+5, NO1+6, NUM+2, NUM+3, NUM+5, QUAL2+1, QUAL2+3, FME+6
, FME+7, FMD+5, FMD+6, ANYACTP+6, ANYACTP+7, ANYACTP+8, ANYACTP+9
^AUPNPROB("AC" ANYACTP+5
^AUPNVRUP - [#9000010.54] PLUV+8, PLUV+9, PLUV+10, PLR1+5, PLR1+6, PLR1+9, PLR1+10
^AUPNVRUP("AD" PLUV+6
^AUTTCRA("C" PLUV+3, PLR1+4
^DD(9000011 START+1, NUM+3
^DD(9000011.11 NUM+8
^DIC(4 - [#4] NO1+5, NUM+7
^VA(200 - [#200] FME+7, FMD+6, PLUDE1P+7

Label References

Name Line Occurrences
@( FM12+8
BSD EVSIT+2
CPSA1 CPSA1+6, CPSA1+7
EVSIT PLU+29
FM12 QUAL2+1
FM13 FM12+5, FM12+6
NO NO+6, QUAL+6
NO1 NUM+14
NOX NO+3, NO1+8, NO1+9, NUM+4, NUM+9, QUAL+3
PLU PLUDE1P+10
PLUDE NUM+13
PLUDE1 PLUDE1+5, PLUDE1+6
PLUDE1P PLUDE1P+8
PLUV PLU+27, EVSIT+3, EVSIT+16
QUAL2 FM12+9
XIT START+2, START+3, START+4

Naked Globals

Name Field # of Occurrence
^(0 NO1+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % NUM+10*, NUM+11*
APCDADDP NOP+1~, NOP+2*, NUM+13, QUALP+1~, QUALP+2*
APCDADFN CPS+1~, CPS+2*, CPS+4!, CPS1+3, CPS1+7, CPSA+1~, CPSA+2*, CPSA+4!, CPSA1+8
APCDALVR PLUV+15~, PLUV+24!, BSD+10!, EVSIT+5!, EVSIT+15!, PLR1+3~, PLR1+13!
APCDALVR("APCDAFLG" PLUV+23, PLR1+12
APCDALVR("APCDATMP" PLUV+18*, PLR1+7*
APCDALVR("APCDAUTO" EVSIT+6*
APCDALVR("APCDCAT" EVSIT+8*
APCDALVR("APCDDATE" EVSIT+11*
APCDALVR("APCDLOC" EVSIT+9*
APCDALVR("APCDPAT" PLUV+16*, EVSIT+7*, PLR1+5*
APCDALVR("APCDTCDT" PLUV+20*, PLR1+9*
APCDALVR("APCDTCLA" PLUV+19*, PLR1+8*
APCDALVR("APCDTEPR" PLUV+21*, PLR1+10*
APCDALVR("APCDTYPE" EVSIT+10*
APCDALVR("APCDVSIT" PLUV+17*, EVSIT+13, EVSIT+14, PLR1+6*
APCDBSDV BSD+1~, BSD+11!, BSD+12
APCDBSDV( BSD+16
APCDBSDV(0 BSD+13, BSD+15
>> APCDC QUAL2+1*, QUAL2+3*, QUAL2+4*, QUAL2+5, FM12+3, FME+3, FMD+3
APCDCM QUAL2+3!
APCDCM( QUAL2+4*, FME+6, FME+7, FME+8, FMD+5, FMD+6, FMD+8
APCDD PLUDE+9*, PLUDE1+3, PLUDE1+7*, PLUDE1P+10, PLU~, PLU+21*, PLU+22, PLUV+20, BSD+4, EVSIT+11
>> APCDDATE PL+1*, PL+4, NUM+10, NUM+11, PLUDE+9
>> APCDDONE FM12+6*
APCDIN BSD+2!, BSD+12
APCDIN("PAT" BSD+3*
APCDIN("SITE" BSD+5*
APCDIN("SRV C AT" , BSD+7*
APCDIN("TIME RANGE" , BSD+8*
APCDIN("USR" BSD+9*
APCDIN("VISIT DATE" , BSD+4*,  TYPE" , BSD+6*
>> APCDLOC PL+2*, PL+4, NUM+2, NUM+3, NUM+7
>> APCDLOOK START+3*, START+4*, START+5*
APCDNIEN NUM+2*, NUM+3*, NUM+4, NUM+5, NUM+8, NOX+1!
APCDNUM NUM+6*, NUM+8, NOX+1!
APCDP PLUDE+5*, PLUDE+6*, PLUDE1P+10, PLU~, PLU+18*, PLU+19, PLU+20, PLUV+16, BSD+3, EVSIT+7
>> APCDPAT PL+3, PO+1, MPO+1, RPO+1, IPO+1, APO+1, MNN+1, RNO+1, PDSP+1, PLUDE+5
>> APCDPDFN NO1+1, QUAL1+1
APCDPERR NO+6!, QUAL+6!
APCDPIEN PLU~, PLU+16*
>> APCDPLD PL+4*
>> APCDPLL PL+4*
>> APCDPLV PL+5*, PL+6*
>> APCDPR NO+4*, NO1+3, QUAL+4*
>> APCDPRBI PLUDE+4*, PLUDE1P+10
APCDPROB NO1+1*, NO1+2*, NO1+3, NO1+4, NO1+5, NO1+6, NUM+2, NUM+3, NUM+5, NUM+8
, NUM+11, NUM+12, NOX+1!, QUAL1+1*, QUAL1+2*, QUAL2+1, QUAL2+3, QUAL2+5, FME+6, FME+7
, FME+8, FME+9, FMD+5, FMD+6, FMD+8, FMA+4
APCDPRV PLUDE1P+9*, PLUDE1P+10, PLU~, PLU+23*, PLU+24, PLUV+10, PLUV+21
>> APCDRET PLUDE1P+10, PLUDE1P+11
APCDTDA PLR~, PLR1+5, PLR1+6, PLR1+9, PLR1+10
>> APCDTERR START+4*
>> APCDTNQP START+5*
>> APCDTPRD PLUDE+3*, PLUDE1P+7
>> APCDTSKI START+3*
APCDV PLUDE+7*, PLUDE+8*, PLUDE1+3, PLUDE1P+7, PLUDE1P+10, PLU~, PLU+17*, PLU+27, PLUV+6, PLUV+17
, BSD+15*, BSD+16, EVSIT+13*
APCDVAL PLUV+2~, PLUV+3*, PLUV+4, PLUV+8, PLUV+19, PLR1+3~, PLR1+4*, PLR1+8
APCDVD PLUV+2~
APCDVRI PLUV+2~, PLUV+5*, PLUV+6, PLUV+11*, PLUV+13
APCDVSIT PL+5, PLUDE+7, EVSIT+4!, EVSIT+14
APCDX PLUV+2~, PLUV+6*, PLUV+8, PLUV+9, PLUV+10, PLUV+11
D XIT!
DA PO+1*!, MPO+1*!, RPO+1*!, IPO+1*!, APO+1*!, MNN+1*!, RNO+1*!, PDSP+1*!, NO+2!, NO1+7!
, NUM+3!, NUM+8!, NUM+10*!, NUM+11*!, NUM+12*, NOX+1!, PLUDE+4, QUAL+2!, FM12+4!, FME+3!
, FME+5!, FME+8*, FMD+3!, FMD+7!, FMD+8*!, FMA+1!, PLUDE1+4!, PLUDE1P+7!, CPS+2, CPS1+3!
, CPS1+5!, CPS1+7*, CPS1+9!, CPSA+2, CPSA1+4!, CPSA1+5!, CPSA1+8*, CPSA1+10!
DA(1 NUM+3*, NUM+8*, FME+8*, FMD+8*, FMA+4*
DA(2 NUM+8*
DD XIT!, NOX+1!
>> DFN PL+3*, PLUDE+6
DIC START+1*!, NUM+3*!, NUM+8!*, NUM+10!, NOX+1!, FME+5!, FMD+7!, FMA+4*
DIC("A" START+1*
DIC("DR" FMA+4*
DIC("P" NUM+3*, NUM+8*
DIC(0 START+1*, NUM+3*, NUM+8*, FMA+4*
DIE PO+1*!, MPO+1*!, RPO+1*!, IPO+1*!, APO+1*!, MNN+1*!, RNO+1*!, PDSP+1*!, NUM+10*!, NUM+11*!
, FME+9*, FME+11!, CPS1+7*, CPS1+9!, CPSA1+8*, CPSA1+10!
DIK FMD+8*!
DIPGM XIT!
DIR NO+2!, NO1+7!, QUAL+2!, FM12+2!, FM12+4!, FME+2!, FME+3!, FMD+2!, FMD+3!, FMA+1!
, PLUDE1+4!, PLUDE1P+7!, CPS1+3!, CPS1+5!, CPSA1+4!, CPSA1+5!
DIR("?" PLUDE1+3*, CPS1+4*, CPSA1+3*
DIR("A" NO+2*, NO1+7*, QUAL+2*, FM12+4*, FME+3*, FMD+3*, FMA+1*, PLUDE1+2*, PLUDE1P+1*, PLUDE1P+2*
, PLUDE1P+3*, PLUDE1P+4*, PLUDE1P+5*, PLUDE1P+6*, CPS1+3*, CPSA1+4*
DIR("B" NO1+7*, FM12+4*, PLUDE1+3*, PLUDE1P+7*, CPS1+3*, CPSA1+4*
DIR(0 NO+2*, NO1+7*, QUAL+2*, FM12+3*, FME+3*, FMD+3*, FMA+1*, PLUDE1+2*, PLUDE1P+1*, CPS1+2*
, CPSA1+2*
DIRUT NO+2!, NO+3, NO1+8, QUAL+2!, QUAL+3, FM12+5, FME+4, FMD+4, FMA+2, PLUDE1+5
, PLUDE1P+8, CPS1+6, CPSA1+6
DO XIT!
DR PO+1*!, MPO+1*!, RPO+1*!, IPO+1*!, APO+1*!, MNN+1*!, RNO+1*!, PDSP+1*!, NUM+3!, NUM+8!
, NUM+10*!, NUM+11*!, FME+5!, FME+8*, FMD+7!, CPS1+7*, CPS1+9!, CPSA1+8*, CPSA1+10!
DT PL+1, NUM+10, NUM+11, PLUDE1+3, PLUDE1+6
DUZ NUM+11, FME+6, FMD+5, FMA+4, BSD+9
DUZ(2 PL+2, BSD+5, BSD+6, EVSIT+9, EVSIT+10
EDATE ANYACTP~, ANYACTP+2*, ANYACTP+9
L NO1+5*, NO1+6, NOX+1!
P ANYACTP~, ANYACTP+1, ANYACTP+5
RETVAL PLU~, PLU+19*, PLU+20*, PLU+22*, PLU+24*, PLU+25*, PLUV+4*, PLUV+13*, PLUV+23*, BSD+14*
, PLR1+12*
>> T BSD+13*, BSD+14
U NO1+3, NO1+5, NO1+6, NUM+3, NUM+7, NUM+8, FME+6, FME+7, FMD+5, FMD+6
, PLUDE1P+7, PLUDE1P+11, PLUV+8, PLUV+9, PLUV+10, BSD+6, BSD+13, EVSIT+10, ANYACTP+7, ANYACTP+8
, ANYACTP+9, PLR1+5, PLR1+6, PLR1+9, PLR1+10
>> V BSD+15*, BSD+16
X START+3, START+5, XIT!, NO1+6*, NUM+3*!, NUM+5*, NUM+6, NUM+7, NUM+8*, NOX+1!
, QUAL2+3*, QUAL2+4, QUAL2+5, ANYACTP+3~, ANYACTP+5*, ANYACTP+6, ANYACTP+7, ANYACTP+8, ANYACTP+9
Y START+2, START+3, START+4, START+5, XIT!, PL+3*!, NO+4, NO1+9, NUM+3!, NUM+5*!
, NUM+9, NUM+10!, NUM+11!, NOX+1!, QUAL+4, FM12+6, FM12+7*, FM12+8, FM13+1!, FME+6
, FME+7, FME+8, FMD+5, FMD+6, FMD+8, FMA+3, PLUDE1+6, PLUDE1+7, PLUDE1P+9, ANYACTP+3~
, CPS1+7, CPSA1+7, CPSA1+8
Z ANYACTP+3~, ANYACTP+4*, ANYACTP+5, ANYACTP+10*, ANYACTP+12

Marked Items

Name Field # of Occurrence
$T(^BSDAPI4 EVSIT+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All