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

Package: Patient Care Component

Routine: APCDPLST


Information

APCDPLST ;IHS/CMI/LAB - UPDATE ICD CODE FROM BSTS

Source Information

Source file <APCDPLST.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 3 FILE^DICN  ^DIE  ^DIR  
IHS Standard Terminology 1 $$SUBLST^BSTSAPI  
IHS VA Utilities 1 EN^XBVK  

Entry Points

Name Comments DBIA/ICR reference
SETSUB ;
QUEUE ;EP
CS ;update status .12 and update PROBLEM entry and the change log
XIT ;
SETE ;

External References

Name Field # of Occurrence
$$SUBLST^BSTSAPI SETSUB+1
FILE^DICN CS+8
^DIE CS+3
^DIR APCDPLST+26, APCDPLST+31
EN^XBVK XIT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option is used to update the Status field on Problem List"
  • Line Location: APCDPLST+4
Function Call: WRITE
  • Prompt: !,"based on the default status associated with the SNOMED term.",!!
  • Line Location: APCDPLST+5
Function Call: WRITE
  • Prompt: !,"You will be given the opportunity to select which status group",!
  • Line Location: APCDPLST+6
Function Call: WRITE
  • Prompt: "will be updated."
  • Line Location: APCDPLST+7
Function Call: WRITE
  • Prompt: !,"Notes:"
  • Line Location: APCDPLST+8
Function Call: WRITE
  • Prompt: !,?2,"- Update all Chronic: this will loop through the problems on"
  • Line Location: APCDPLST+9
Function Call: WRITE
  • Prompt: !?2," the IPL and for any problem whose Concept ID is defaulted to Chronic "
  • Line Location: APCDPLST+10
Function Call: WRITE
  • Prompt: !?2," in DTS, change to Chronic on IPL. Problems on the IPL with a status "
  • Line Location: APCDPLST+11
Function Call: WRITE
  • Prompt: !?2," of inactive will be skipped and the status will not be changed."
  • Line Location: APCDPLST+12
Function Call: WRITE
  • Prompt: !,?2,"- Update all Social/Environmental: this will loop through the problems on"
  • Line Location: APCDPLST+17
Function Call: WRITE
  • Prompt: !?2," the IPL and for any problem whose Concept ID is defaulted to "
  • Line Location: APCDPLST+18
Function Call: WRITE
  • Prompt: !?2," Social/Environmental in DTS, change to Social/Environmental on IPL. "
  • Line Location: APCDPLST+19
Function Call: WRITE
  • Prompt: !?2," Problems on the IPL with a status of Inactive or Chronic will be skipped"
  • Line Location: APCDPLST+20
Function Call: WRITE
  • Prompt: !?2," and the status will not be changed."
  • Line Location: APCDPLST+21
Function Call: WRITE
  • Prompt: !,?2,"- Update all Routine/Admin: this will loop through the problems on"
  • Line Location: APCDPLST+22
Function Call: WRITE
  • Prompt: !?2," the IPL and for any problem whose Concept ID is defaulted to Routine/Admin "
  • Line Location: APCDPLST+23
Function Call: WRITE
  • Prompt: !?2," in DTS, change to Routine/Admin on IPL. Problems on the IPL with a status "
  • Line Location: APCDPLST+24
Function Call: WRITE
  • Prompt: !?2," of Inactive will be skipped and the status will not be changed."
  • Line Location: APCDPLST+25
Function Call: WRITE
  • Prompt: !!,"Hold on..this may take a few minutes.."
  • Line Location: APCDPLST+35
Function Call: WRITE
  • Prompt: !!,"Gathering up subsets..."
  • Line Location: QUEUE+1
Function Call: WRITE
  • Prompt: !!,"Looping through Problem entries....."
  • Line Location: QUEUE+9
Routine Call
  • DIE
  • Line Location:
    • CS+3
Routine Call
  • DIR
  • Line Location:
    • APCDPLST+26
    • APCDPLST+31

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPROB - [#9000011] Classic Fileman Calls
^APCDPLMD - [#9001040.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPROB - [#9000011] QUEUE+12, QUEUE+15, QUEUE+16, QUEUE+18
^TMP($J XIT+2!, SETSUB+3, SETSUB+4, SETSUB+5*, QUEUE+4!, QUEUE+5, QUEUE+7, QUEUE+8, QUEUE+23

Label References

Name Line Occurrences
CS QUEUE+26, QUEUE+28, QUEUE+29
QUEUE APCDPLST+36
SETSUB QUEUE+5, QUEUE+7, QUEUE+8
XIT APCDPLST+32, APCDPLST+33, APCDPLST+37

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCDCI QUEUE+16*, QUEUE+17, QUEUE+23, CS+7
>> APCDCNT QUEUE+11*, QUEUE+13*, QUEUE+14
>> APCDCS QUEUE+18*, QUEUE+19, QUEUE+20, QUEUE+25, QUEUE+28, CS+1, CS+7
>> APCDDEF QUEUE+23*, QUEUE+24, QUEUE+25, QUEUE+26, QUEUE+28, QUEUE+29, CS+3, CS+7
>> APCDLOGE CS+10*, SETE+1
>> APCDOLDS CS+1*
>> APCDPLT APCDPLST+34*, QUEUE+5, QUEUE+7, QUEUE+8, QUEUE+26, QUEUE+28, QUEUE+29
>> APCDS SETSUB+3, SETSUB+4, SETSUB+5, QUEUE+5*, QUEUE+7*, QUEUE+8*
>> APCDX QUEUE+11*, QUEUE+12*, QUEUE+15, QUEUE+16, QUEUE+18, CS+3, CS+7
C QUEUE+3~
D0 CS+5!
DA APCDPLST+26!, APCDPLST+31!, CS+2!, CS+3*!, SETE+1*
DD CS+5!
DIADD CS+6*, CS+9!
DIC CS+5!, CS+6*, CS+9!
DIC("DR" CS+7*
DIC(0 CS+6*
DIE CS+2!, CS+3*!, SETE+1*
DIR APCDPLST+26!, APCDPLST+30!, APCDPLST+31!
DIR("A" APCDPLST+26*, APCDPLST+31*
DIR("B" APCDPLST+26*
DIR(0 APCDPLST+26*, APCDPLST+31*
>> DIRUT APCDPLST+27, APCDPLST+32
DLAYGO CS+6*, CS+9!
DO CS+5!
DR CS+2!, CS+3*!, SETE+1*
DT CS+7
>> ERR("DIERR" SETE+1
I QUEUE+3~
IN SETSUB+1, QUEUE+3~, QUEUE+5*, QUEUE+7*, QUEUE+8*
J QUEUE+3~
OUT SETSUB+1, QUEUE+3~, QUEUE+5*, QUEUE+7*, QUEUE+8*
U SETSUB+4, QUEUE+16, QUEUE+18
X SETSUB+1*, SETSUB+4*, SETSUB+5, QUEUE+3~, CS+7*
Y APCDPLST+28, APCDPLST+33, APCDPLST+34, SETSUB+3*, SETSUB+4, QUEUE+3~, CS+10
>> ZTQUEUED QUEUE+9
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All