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

Package: Patient Care Component

Routine: APCDTWC


Information

APCDTWC ; IHS/CMI/LAB - GENERATED FROM 'APCD WCE (ADD)' INPUT TEMPLATE(#XXX), FILE 9000010 ;

Source Information

Source file <APCDTWC.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 4 ^DIC  YN^DICN  ^DIE  ^DIR  
Patient Care Component 2 ($$VWC,ASQFILE,FEED,LOU,NVWCFILE,PEWCFILE,VPEFILE)^APCDTWC1  EXAM^APCDTWC2  
IHS VA Utilities 1 ^XBFMK  
Kernel 1 $$FMDIFF^XLFDT  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
PCC New Encounter Form 2 VENPCCQD  VENPCCQY  
Patient Care Component 1 APCDTWC2  

Entry Points

Name Comments DBIA/ICR reference
EXAM ; ENTER SPECIAL EXAMS AND SCREENING PROCEDURES
DEV ; ENTER DEVELOPMENT ASSESSMENT
NEW
RANGEX
DATA
POVX
R1
PRE ; CHECK V FILE TO SEE IF ANYTHING HAS ALREADY BEEN SELECTED
ASQ ; ENTER ASQ SCORES
PRV1
PRV2
POV ; PURPOSE OF VISIT
NUT ; ENTER NUTRITION TOPICS
PRV ; ENTER THE PROVIDERS
DEVX
CLN ; EDIT CLINIC
PRVQ
DEV1 ; FILE RESULTS
RANGE(ARR) ;EP - MANAGE A RANGE OF ARRAY NUMBERS
ARR(DFN,TYPE,DOM,ARR) ;EP - GIVEN A PATIENT DFN AND A KB CATEGORY TYPE, BUILD AN ARRAY OF ITEMS
; TYPE = KB CATEGORY TYPE (e.g., PT ED, DEVEL, etc.), DOMAIN = WELL CHILD CARE
FIN
PEFILE ; AT THIS POINT WE HAVE THE FINAL SELECTION ARRAY AND ARE READY TO MAKE ENTRIES IN V WELL CHILD AND V PATIENT ED
NUTFILE ; MAKE ENTRIES IN V WC AND V PATIENT ED
ALL ; EDIT ALL SECTIONS
NUTX
MENU ; MAIN DATA ENTRY MENU FOR WELL CHILD CARE VISIT
POV1
TEST
PTED ; ENTER PATIENT EDUCATION TOPICS
; RESULTS ARE FILE IN BOTH V PATIENT ED AND V WELL CHILD AS FREE TEXT SUBTOPICS

External References

Name Field # of Occurrence
$$VWC^APCDTWC1 DEV1+2
ASQFILE^APCDTWC1 ASQ+1
FEED^APCDTWC1 NUT+1
LOU^APCDTWC1 NUTFILE+2, PEFILE+2
NVWCFILE^APCDTWC1 NUTFILE+3
PEWCFILE^APCDTWC1 PEFILE+3
VPEFILE^APCDTWC1 NUTFILE+4, PEFILE+4
EXAM^APCDTWC2 EXAM+3
^DIC PRVQ+2, PRV1+1, POV+6, POV+10
YN^DICN DEV+6, R1+2
^DIE CLN+7, PRV1+3, POV+12, DEV1+9
^DIR MENU+2, DEV+10, DEV+15, DEV+20, DEV+25, DEV+30, R1+5
^XBFMK FIN, PRVQ+2, PRV1+1, DEVX
$$FMDIFF^XLFDT ARR+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Sorry, if you want to use this Mnemonic,"
  • Line Location: DATA+4
Function Call: WRITE
  • Prompt: !,"the PCC+ Knowledgebase must be installed."
  • Line Location: DATA+5
Function Call: WRITE
  • Prompt: !,"Request cancelled..."
  • Line Location: DATA+6
Function Call: WRITE
  • Prompt: !!!,?15,"*** DATA ENTRY - WELL CHILD EXAM ***"
  • Line Location: DATA+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: MENU+5
Function Call: WRITE
  • Prompt: !,"A primary provider has already been entered for this visit..."
  • Line Location: PRV+4
Function Call: WRITE
  • Prompt: !,"This provider has already been entered for this visit..."
  • Line Location: PRVQ+5
Function Call: WRITE
  • Prompt: !!,"*** WELL CHILD EXAM (V20.2) has been automatically added as a POV ***"
  • Line Location: POV1+0
Function Call: WRITE
  • Prompt: !,"Add additional POV's using the PV mnemonic",!
  • Line Location: POV1+1
Function Call: WRITE
  • Prompt: !,"Unable to automatically add WELL CHILD EXAM as a POV!!!"
  • Line Location: POVX+0
Function Call: WRITE
  • Prompt: !,"No DEV guidelines available..."
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !!,"Want to enter Development or Autism screen comments"
  • Line Location: DEV+5
Function Call: WRITE
  • Prompt: !,?3,ARR(CNT)
  • Line Location: R1+1
Function Call: WRITE
  • Prompt: " [SELECTED]"
  • Line Location: R1+1
Function Call: WRITE
  • Prompt: !,"The expression '",$P(Y,",",PCE),"' is invalid"
  • Line Location: R1+11
Function Call: WRITE
  • Prompt: !,"The expression '",$P(Y,",",PCE),"' is invalid"
  • Line Location: R1+14
Function Call: WRITE
  • Prompt: !,"Item number ",X," does not exist"
  • Line Location: R1+16
Function Call: WRITE
  • Prompt: !,"Item number ",X," has not been selected - can't remove it"
  • Line Location: R1+17
Function Call: WRITE
  • Prompt: !,"Item "_X_" has already been selected"
  • Line Location: R1+19
Function Call: WRITE
  • Prompt: !
  • Line Location: R1+23
Function Call: WRITE
  • Prompt: !,"No NUTRITION guidelines available..."
  • Line Location: NUT+4
Function Call: WRITE
  • Prompt: !!,"No nutrition topics are required for this visit!!",!!
  • Line Location: NUT+7
Function Call: WRITE
  • Prompt: !!,"Select from the list of standard ",TITLE,"topics: "
  • Line Location: NUT+18
Function Call: WRITE
  • Prompt: !,"No PATIENT EDUCATION guidelines available..."
  • Line Location: PTED+3
Function Call: WRITE
  • Prompt: !!,"Select from the list of standard ",TITLE,"topics: "
  • Line Location: PTED+17
Function Call: WRITE
  • Prompt: !,"No EXAM guidelines available..."
  • Line Location: EXAM+2
Routine Call
  • DIE
  • Line Location:
    • CLN+7
    • PRV1+3
    • POV+12
    • DEV1+9
Routine Call
  • DIC
  • Line Location:
    • PRVQ+2
    • PRV1+1
    • POV+6
    • POV+10
Routine Call
  • DIR
  • Line Location:
    • MENU+2
    • DEV+10
    • DEV+15
    • DEV+20
    • DEV+25
    • DEV+30
    • R1+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNVSIT - [#9000010] Classic Fileman Calls
^AUPNVPRV - [#9000010.06] Classic Fileman Calls
^AUPNVPOV - [#9000010.07] Classic Fileman Calls
^AUPNVWC - [#9000010.46] Classic Fileman Calls
^AUTNPOV - [#9999999.27] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVPOV - [#9000010.07] POV+12
^AUPNVPOV("AD" POV+3
^AUPNVPRV - [#9000010.06] PRV+3, PRVQ+4, PRV1+3
^AUPNVPRV("AD" PRV+3, PRVQ+4
^AUPNVSIT - [#9000010] DATA+1, NEW+1, CLN+5, CLN+7
^AUPNVWC - [#9000010.46] DEV+9, DEV+14, DEV+19, DEV+24, DEV+29, DEV1+9, NUT+14, PTED+13
^AUPNVWC("AD" DEV+4, NUT+8, PTED+7
^DD(9000010.06 PRVQ+1
^DIC(40.7 - [#40.7] CLN+2, CLN+4, CLN+5
^DPT - [#2] DATA, ARR+4
^ICD9("AB" POV+8
^VEN(7.11 - [#19707.11] ARR+10
^VEN(7.12 - [#19707.12] DATA+2, ARR+18, ARR+19
^VEN(7.13 - [#19707.13] DATA+2, DEV+2, DEV+3, ARR+8, ARR+9, ARR+11, NUT+3, NUT+4, PTED+2, PTED+3
, EXAM+1, EXAM+2

Label References

Name Line Occurrences
@( MENU+5
ALL MENU+3
APCDTWC TEST
ARR NUT+6, PTED+6
ASQ ALL+1
CLN ALL+1
DEV ALL+1
DEVX DEV+10, DEV+15, DEV+20, DEV+25, DEV+30, DEV1+1, DEV1+2
EXAM ALL+1
FIN MENU+4
MENU MENU+3, MENU+5
NUT ALL+1
NUTX NUT+7, NUT+17
POV ALL+1
POV1 POV+3
POVX POV+6, POV+8, POV+10
PRV ALL+1
PRV2 PRV+4, PRVQ+5
PRVQ PRV2+2
PTED ALL+1
R1 R1+23
RANGE NUT+19, PTED+18
RANGEX R1+2, R1+6

Naked Globals

Name Field # of Occurrence
^( DEV+2, NUT+3, PTED+2, EXAM+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% NEW~, CLN+1~, CLN+5*, PRV+1~, PRV+2*, PRV+3*, PRV+4, PRVQ+3*, PRVQ+4*, PRVQ+5
, POV+4~, DEV+1~, DEV+5*, DEV+6, DEV+9*, DEV+14*, DEV+19*, DEV+24*, DEV+29*, ARR+2~
, ARR+4*, ARR+5, ARR+24*, RANGE+1~, R1+2*, RANGEX+1*, RANGEX+2, NUT+2~, PTED+4~
%DT NEW~
%T NEW~
%Y NEW~, DEV+1~
A RANGE+1~, R1+11*, R1+12, R1+14, R1+15
AGIEN NUT+2~, PTED+4~
APCDVSIT DATA+1, NEW+1, TEST~, CLN+5, CLN+6, CLN+7, PRV+3, PRVQ+4, POV+2, DEV+4
, DEV1+2, NUT+1, NUT+8, PTED+7
ARR ARR~, ARR+3!, RANGE~, RANGEX+2!, NUT+2~, NUT+6, NUT+7, NUT+17, NUT+19, NUTX!
, PTED+4~, PTED+6, PTED+16, PTED+18, PEFILE+5!
ARR( ARR+29*, ARR+30*, R1+1, R1+16, R1+17, R1+18!, R1+19, R1+20*, RANGEX+1, NUT+10
, NUT+11, NUT+14*, PTED+9, PTED+10, PTED+13*
ARR("CODE" ARR+31*
ARR("X" ARR+30*
ARR(999 R1
AUPNPAT DATA, TEST~*, DEV1+2, NUT+6, PTED+6
>> AUPNVSIT TEST*
B RANGE+1~, R1+12*, R1+13*, R1+14, R1+15
CAT ARR+2~, ARR+7*, ARR+8*, ARR+9, ARR+11, ARR+12
CIEN CLN+1~, CLN+2*, CLN+3, CLN+4, ARR+2~, ARR+9*, ARR+10, ARR+13, ARR+18*
CLN CLN+1~, CLN+2*, CLN+3*, CLN+4*, CLN+5*, CLN+6
CNT RANGE+1~, R1*, R1+1*
CODE ARR+2~, ARR+23*, ARR+31
DA NEW~, CLN+1~, CLN+6*, PRV+1~, PRV1+2*, PRV1+3, POV+1~, POV+2*, POV+3, POV+11*
, POV+12, DEV+1~, DEV1+2*, DEV1+9
DAYS ARR+2~, ARR+6*, ARR+21, ARR+22
DEL RANGE+1~, R1+7*, R1+8
DEV DEV+1~, DEV1+1
DEV( DEV+11*, DEV+16*, DEV+21*, DEV+26*, DEV+31*, DEV1+4, DEV1+6
DFN ARR~, ARR+4
DIC NEW~, CLN+1~, PRV+1~, PRVQ*, PRVQ+1*, PRV1*, PRV1+2, POV+4~, POV+5*, POV+9*
, POV+11
DIC("A" PRV+5*, PRV2+1*
DIC(0 PRVQ*, PRV1*, POV+5*, POV+9*
DIE NEW~, CLN+1~, CLN+6*, PRV+1~, PRV1+2*, POV+4~, POV+11*, DEV+1~, DEV1+3*
DIR NEW~, MENU+2!, POV+4~, DEV+1~, DEV+10!, DEV+15!, DEV+20!, DEV+25!, DEV+30!, RANGE+1~
DIR("?" R1+4*
DIR("A" MENU+2*, DEV+7*, DEV+12*, DEV+17*, DEV+22*, DEV+27*, R1+3*
DIR("B" NEW+2*, DEV+8*, DEV+9*, DEV+13*, DEV+14*, DEV+18*, DEV+19*, DEV+23*, DEV+24*, DEV+28*
, DEV+29*
DIR(0 MENU+1*, DEV+7*, DEV+12*, DEV+17*, DEV+22*, DEV+27*, R1+3*
DIRDT RANGEX!
DIROUT RANGEX!
DIRUT RANGEX!
>> DLAYGO PRV1*, POV+5*, POV+9*
DOB ARR+2~, ARR+5*, ARR+6
DOM ARR~, ARR+8, ARR+9, ARR+11, NUT+2~, NUT+5*, NUT+6, PTED+4~, PTED+5*, PTED+6
DR CLN+1~, CLN+6*, PRV+1~, PRV1+2*, POV+4~, POV+11*, DEV+1~, DEV1+3*, DEV1+5*, DEV1+7*
DT ARR+6
DTOUT RANGEX!
DUOUT RANGEX!
>> EDU PEFILE+2, PEFILE+3
FNO DEV+1~, DEV1+3*, DEV1+4*, DEV1+6, DEV1+7
FTIME NUT+2~, NUTFILE+1*, NUTFILE+2, NUTFILE+4, PTED+4~, PEFILE+1*, PEFILE+2, PEFILE+4
GRP NUT+2~, NUTFILE+1*, NUTFILE+4, PTED+4~, PEFILE+1*, PEFILE+4
IIEN POV+4~
KIEN ARR+2~, ARR+18*, ARR+19, ARR+30
LOU NUT+2~, NUTFILE+1*, NUTFILE+2, NUTFILE+3, NUTFILE+4, PTED+4~, PEFILE+1*, PEFILE+2, PEFILE+3, PEFILE+4
MAX RANGE+1~, R1*
MOD ARR+2~, ARR+26*, ARR+27
MORE RANGE+1~, PRE+1*, R1+2, R1+23*
NIEN POV+4~, POV+7*
ORD ARR+2~, ARR+11*, ARR+12*, ARR+13, ARR+17*, ARR+18*
ORD( ARR+13*, ARR+18
PCE RANGE+1~, R1+8*, R1+9, R1+11, R1+14
PS PRV+1~, PRV+6*, PRV1+2, PRV2*
RFLG RANGE+1~, R1+9*, R1+10*, R1+17, R1+18
SEX ARR+2~, ARR+5*, ARR+24
START ARR+2~, ARR+21*
STG ARR+2~, ARR+19*, ARR+20, ARR+21, ARR+22, ARR+23, ARR+24, ARR+25, ARR+26
STOP ARR+2~, ARR+22*
TIME NUT+2~, NUTFILE+1*, NUTFILE+2, NUTFILE+3, PTED+4~, PEFILE+1*, PEFILE+2, PEFILE+3
TITLE ARR+2~, ARR+25*, ARR+27*, ARR+29, ARR+31, NUT+2~, NUT+5*, NUT+18, NUTFILE+2, PTED+4~
, PTED+5*, PTED+17, PEFILE+2
TOT DEV+1~, DEV1+3*, DEV1+6*, DEV1+7, ARR+2~, ARR+3*, ARR+17*, ARR+28*, ARR+29, ARR+30
, ARR+31, NUT+2~, NUT+10*, NUT+11, NUT+14, PTED+4~, PTED+9*, PTED+10, PTED+13
TYPE ARR~, ARR+10, NUT+2~, NUT+5*, NUT+6, PTED+4~, PTED+5*, PTED+6
U MENU+5, CLN+4, CLN+5, PRV+3, PRVQ+1, DEV+3, DEV+9, DEV+14, DEV+19, DEV+24
, DEV+29, ARR+5, ARR+10, ARR+11, ARR+20, ARR+21, ARR+22, ARR+23, ARR+24, ARR+25
, ARR+26, NUT+4, PTED+3, EXAM+2
VAL1 DEV+1~
VAL2 DEV+1~
VAL3 DEV+1~
VAL4 DEV+1~
VDATE NEW~, NEW+1*
VWCIEN DEV+1~, DEV+4*, DEV+9, DEV+14, DEV+19, DEV+24, DEV+29, NUT+8*, NUT+9, NUT+14
, PTED+7*, PTED+8, PTED+13
WVCIEN NUT+2~, PTED+4~
X NEW~, CLN+1~, PRV+1~, PRV+2*, PRV+3*, PRVQ+3*, PRVQ+4*, PRV1*, POV+4~, POV+5*
, POV+8*, POV+9*, DEV+1~, DEV+2*, ARR+2~, RANGE+1~, R1+9*, R1+10*, R1+11, R1+12
, R1+15*, R1+16, R1+17, R1+18, R1+19, R1+20, RANGEX+1*, NUT+2~, NUT+3*, NUT+11*
, NUT+12*, NUT+13*, NUT+14, PTED+2*, PTED+4~, PTED+10*, PTED+11*, PTED+12*, PTED+13, EXAM+1*
Y DATA+10!, NEW~, MENU+3, MENU+4, MENU+5, CLN+1~, PRV+1~, PRVQ+2, PRVQ+4, PRV1
, PRV1+1, PRV1+2, POV+4~, POV+6, POV+7, POV+10, POV+11, DEV+1~, DEV+2*, DEV+3
, DEV+10, DEV+11, DEV+15, DEV+16, DEV+20, DEV+21, DEV+25, DEV+26, DEV+30, DEV+31
, ARR+2~, R1+6, R1+7, R1+9, R1+11, R1+14, NUT+2~, NUT+3*, NUT+4, PTED+2*
, PTED+3, EXAM+1*, EXAM+2
Z ARR+2~
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 |  All