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

Package: Patient Care Component

Routine: APCDTWC1


Information

APCDTWC1 ; IHS/CMI/LAB - CONTINUATION OF APCDTWC ;

Source Information

Source file <APCDTWC1.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 5 ^DIC  YN^DICN  ^DIE  ^DIK  ^DIR  
IHS VA Utilities 1 ^XBFMK  
Kernel 1 $$UP^XLFSTR  
Patient Care Component 1 ($$ASQAGE,$$ASQIEN)^APCDTWC2  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
PCC New Encounter Form 3 VENPCCQB  VENPCCQD  VENPCCQY  
Patient Care Component 2 APCDTWC  APCDTWC2  

Entry Points

Name Comments DBIA/ICR reference
PEWCFILE(LOU,TIME,EDU) ;EP - MAKE V WELL CHILD ENTRIES
EXVADD ; MAKE NEW V FILE ENTRY
VMSR(VIEN,TYPE) ;EP - FIND OR CREATE A V MEASUREMENT ENTRY
VWC(DFN,VIEN) ;EP - RETURN THE V WELL CHILD IEN - CREATE A NEW ONE IF NECESSARY
VPECLEAN ; CLEAN SLATE FOR ALL TOPICS IN THE LIST
EXFILE ;EP - MAKE V EXAM ENTRIES
; NEED NEW EXAM TYPE: 'WELL CHILD SCREENING' - DONE
; NEED MULTIPLE UNDER V EXAM FOR SPECIFIC EXAMS - DONE
LOU(TITLE,LOU,TIME,FTIME,EDU) ;EP - GET LEVEL OF UNDERSTANDING, TOTAL PT ED TIME AND FRACTIONAL PT ED TIME, EDUCATOR
NX
FX
CODE(CODE) ;EP - RETURN THE IEN OF THE MOST RECENT VALID/ACTIVE INSTANCE OF A PT ED CODE
FEED1
FEED(VIEN) ;EP - INFANT FEEDING PRACTICES
E1 ; V WC SUBFILE ENTRY
EXVCLEAN ; CLEAN OUT ALL V EXAM ENTRIES ASSOCIATED WITH THIS VISIT AND THE EXAM LIST
VPEFILE(LOU,FTIME,EDU) ;EP - MAKE V PATIENT ED ENTRIES
CLN
ASK1
ASK2
ASQM(VIEN) ; RETURN THE ASQ QUESTIONNAIRE (MOS)
UVAR ; USER VARIEBLES
EX
ASKASQ(PCE) ;EP - GET AQS SCORE AND FILE IT
N1 ; NUTR COUNSELING FIELDS
N2 ; V WC NURT SUBFILE ENTRY
ASQVMSR(PCE) ; FILE ASQ SCORES IN V MEASUREMNTS
F1 ; PT ED FIELDS ; VALUES APPLY TO ENTIRE SESSION - NOT JUST A SINGLE TOPIC
F2 ; V WELL CHILD PT ED SUBFILE ENTRY
VPEADD ; ADD PATIENT ED ENTRIES IN V PATIENT ED - ONE FOR EACH PT ED CODE WITH SUB-TOPICS IN THE '1' MULTIPLE
EVWCFILE(SS,GUIFLAG) ;EP - FILE EXAMS IN V WC
CLEANVWC(VWCIEN) ;EP - CLEANUP PREVIOUS ENTRIES
TIME
ASQFILE ;EP - RECORD ASQ RESULTS IN V WELL CHILD AND THEN REDUNDANTLY FILE THEM IN V MEASUREMENT
NVWCFILE(LOU,TIME,EDU) ;EP - MAKE V WC NUTR ENTRIES
ASQX

External References

Name Field # of Occurrence
$$ASQAGE^APCDTWC2 ASQM+4
$$ASQIEN^APCDTWC2 ASQM+5
^DIC VWC+5, E1+7, VMSR+8, FEED1, EXVADD+5, EXVADD+10, N2+6, F2+6, VPEADD+8, VPEADD+19
, LOU+8
YN^DICN FEED+7
^DIE VWC+8, E1+11, ASQFILE+5, ASK2+1, ASQVMSR+8, FEED1+2, EXVADD+7, N1+6, F1+6, VPEADD+11
^DIK FEED+15, EXVCLEAN+6, CLN, VPECLEAN+5
^DIR ASK1+3, FEED+11, LOU+12, TIME+2
^XBFMK EX, ASQX, FEED+14, FEED1+3, EXVADD+13, NX, FX, CLN+3, VPEADD+22, TIME+3
, TIME+11
$$UP^XLFSTR UVAR+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,X
  • Line Location: E1+10
Function Call: WRITE
  • Prompt: !
  • Line Location: E1+12
Function Call: WRITE
  • Prompt: !!,"No ASQ scores should be entered on this visit!!",!!
  • Line Location: ASQFILE+3
Function Call: WRITE
  • Prompt: !,"You must specify which form is used before entering results!"
  • Line Location: ASQFILE+7
Function Call: WRITE
  • Prompt: " ??",!,"A valid score must be a multipe of 5 (0,5,10,15...)"
  • Line Location: ASK1+5
Function Call: WRITE
  • Prompt: !!,"If possible, record the level of understanding and duration of ",TITLE,"session"
  • Line Location: LOU+9
Routine Call
  • DIE
  • Line Location:
    • VWC+8
    • E1+11
    • ASQFILE+5
    • ASK2+1
    • ASQVMSR+8
    • FEED1+2
    • EXVADD+7
    • N1+6
    • F1+6
    • VPEADD+11
Routine Call
  • DIC
  • Line Location:
    • VWC+5
    • E1+7
    • VMSR+8
    • FEED1
    • EXVADD+5
    • EXVADD+10
    • N2+6
    • F2+6
    • VPEADD+8
    • VPEADD+19
    • LOU+8
Routine Call
  • DIR
  • Line Location:
    • ASK1+3
    • FEED+11
    • LOU+12
    • TIME+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNVMSR - [#9000010.01] Classic Fileman Calls
^AUPNVXAM - [#9000010.13] Classic Fileman Calls
^AUPNVPED - [#9000010.16] Classic Fileman Calls
^AUPNVIF - [#9000010.44] Classic Fileman Calls
^AUPNVWC - [#9000010.46] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVIF - [#9000010.44] FEED+8, FEED1+2
^AUPNVIF("AD" FEED+5
^AUPNVMSR - [#9000010.01] ASQVMSR+7, ASQVMSR+8, VMSR+4
^AUPNVMSR("AD" VMSR+4
^AUPNVPED - [#9000010.16] VPECLEAN+3, VPEADD+11
^AUPNVPED("AD" VPECLEAN+2
^AUPNVSIT - [#9000010] ASQM+2, ASQM+3, FEED+2
^AUPNVWC - [#9000010.46] VWC+8, EVWCFILE+6!, ASQFILE+5, ASQFILE+6, ASQFILE+11, ASK1+2, ASK2+1, NVWCFILE+5!, N1+6, F1+6
, CLEANVWC+4, CLEANVWC+5, LOU+4, LOU+7
^AUPNVWC("AD" VWC+3, LOU+3
^AUPNVXAM - [#9000010.13] EXVCLEAN+3, EXVADD+7
^AUPNVXAM("AD" EXVCLEAN+2
^AUTTEDT - [#9999999.09] VPECLEAN+4, CODE+4
^AUTTEDT("C" CODE+3
^AUTTEXAM - [#9999999.15] EXVCLEAN+4
^AUTTEXAM("C" EXVADD+3
^AUTTMSR("B" VMSR+2
^DD(9000010.16 VPEADD+14
^DD(9000010.46 E1+2, N2+2, F2+2
^DPT - [#2] FEED+3
^VA(200 - [#200] UVAR+6
^VEN(7.12 - [#19707.12] E1+11
^VEN(7.14 - [#19707.14] ASQFILE+8, ASQVMSR+5, ASQM+6

Label References

Name Line Occurrences
$$ASQM ASQFILE+3
$$CODE VPEADD+6
$$VMSR ASQVMSR+3
$$VWC EVWCFILE+4, ASQFILE+2, NVWCFILE+3, PEWCFILE+3
ASK1 ASK1+5
ASKASQ ASQFILE+10
ASQVMSR ASQFILE+12
ASQX ASQFILE+2, ASQFILE+7, ASQFILE+11
CLEANVWC PEWCFILE+5
EX EVWCFILE+5
FX NVWCFILE+4
TIME LOU+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EVWCFILE+1~, E1+5*, E1+6*, E1+7, ASQFILE+1~, ASKASQ+1~, ASK1+2*, FEED+1~, FEED+7*, EXFILE+3~
, NVWCFILE+1~, N2+4*, N2+5*, N2+6, PEWCFILE+1~, F2+4*, F2+5*, F2+6, CLEANVWC+1~, VPEFILE+1~
, CODE+1~, CODE+4*, CODE+5, LOU+4*, LOU+5, LOU+6
AGE FEED+1~, FEED+4*, FEED+6
>> APCDVSIT EVWCFILE+4, ASQFILE+2, ASQFILE+3, ASQVMSR+3, EXVCLEAN+2, NVWCFILE+3, PEWCFILE+3, VPECLEAN+2, LOU+3
>> ARR EVWCFILE+2, NVWCFILE+2, PEWCFILE+2
>> ARR( E1+4, E1+5, E1+9, EXVCLEAN+6, N2+3, N2+4, F2+3, F2+4, CLEANVWC+7, CLEANVWC+8
, VPEADD+4, VPEADD+16, TIME+7
>> ARR("CODE" EXVCLEAN+6, EXVADD+2, EXVADD+9, EXVADD+10, VPEFILE+2, VPECLEAN+5, VPEADD+2, VPEADD+4, VPEADD+15, VPEADD+17
, TIME+5, TIME+7
ASK ASQFILE+1~, ASQFILE+9*, ASK1+1
ASQM ASQFILE+1~, ASQFILE+3*, ASQM+1~, ASQM+6*, ASQM+7
ASQX ASKASQ+1~, ASK1+6*
>> AUPNPAT EVWCFILE+4, ASQFILE+2, NVWCFILE+3, PEWCFILE+3
CAT VPEFILE+1~
CIEN EVWCFILE+1~, EXFILE+3~, EXVCLEAN+3*, EXVCLEAN+4, EXVADD+3*, EXVADD+4, NVWCFILE+1~, PEWCFILE+1~, VPEFILE+1~, VPECLEAN+3*
, VPECLEAN+4, VPEADD+6*, VPEADD+7, CODE+1~, CODE+2*, CODE+3*, CODE+4, CODE+7
CNT EVWCFILE+1~, E1+4*, E1+5, E1+9, NVWCFILE+1~, N2+3*, N2+4, PEWCFILE+1~, F2+3*, F2+4
, CLEANVWC+1~, CLEANVWC+6*, CLEANVWC+7*, CLEANVWC+8, LOU+1~, TIME+4*, TIME+7*, TIME+9
CODE EVWCFILE+1~, EXFILE+3~, EXVCLEAN+4*, EXVCLEAN+6, EXVADD+2*, EXVADD+3, EXVADD+9, EXVADD+10, NVWCFILE+1~, PEWCFILE+1~
, VPEFILE+1~, VPECLEAN+4*, VPECLEAN+5, VPEADD+1*, VPEADD+2*, VPEADD+4, VPEADD+6, VPEADD+15, VPEADD+17, CODE~
, CODE+3, LOU+1~, TIME+4*, TIME+5*, TIME+7
DA VWC+2~, VWC+3*, VWC+7*, VWC+8, VWC+9, EVWCFILE+1~, E1+8*, E1+11, ASQFILE+1~, ASQFILE+2*
, ASQFILE+5, ASQFILE+6, ASKASQ+1~, ASK2*, ASK2+1, ASQVMSR+1~, ASQVMSR+3*, ASQVMSR+7, ASQVMSR+8, FEED+1~
, FEED+11!, FEED+15*!, FEED1+1*, FEED1+2, EXFILE+3~, EXVCLEAN+1*, EXVCLEAN+2*, EXVCLEAN+3, EXVADD+6*, EXVADD+7
, EXVADD+8, NVWCFILE+1~, N1+2*, N1+6, PEWCFILE+1~, F1+1*, F1+6, CLEANVWC+1~, CLEANVWC+2*, CLEANVWC+4*
, CLEANVWC+5, VPEFILE+1~, VPECLEAN+1*, VPECLEAN+2*, VPECLEAN+3, VPEADD+9*, VPEADD+11, VPEADD+12!
DA(1 E1+1*, E1+11, EXVADD+8*, N2+1*, F2+1*, CLEANVWC+2*, CLEANVWC+3, VPEADD+13*
DFN VWC~, VWC+1, ASQM+1~, ASQM+3*, ASQM+4, FEED+1~, FEED+2*, FEED+3
DIC VWC+2~, VWC+4*, VWC+7, EVWCFILE+1~, E1+1*, E1+3, ASKASQ+1~, ASQVMSR+1~, VMSR+1~, VMSR+6*
, FEED+1~, FEED+16*, FEED1+1, EXFILE+3~, EXVADD+1*, EXVADD+6, EXVADD+8*, NVWCFILE+1~, N2+1*, PEWCFILE+1~
, F2+1*, VPEFILE+1~, VPEADD+3*, VPEADD+13*, LOU+1~, LOU+7*
DIC("A" LOU+7*
DIC("B" LOU+7*
DIC("P" E1+2*, N2+2*, F2+2*, VPEADD+14*
DIC(0 VWC+4*, E1+1*, VMSR+6*, FEED+16*, EXVADD+1*, EXVADD+8*, N2+1*, F2+1*, VPEADD+3*, VPEADD+13*
, LOU+7*
DIE VWC+2~, VWC+7*, EVWCFILE+1~, E1+3*, ASQFILE+1~, ASQFILE+4*, ASKASQ+1~, ASK2*, ASQVMSR+1~, ASQVMSR+6*
, FEED+1~, FEED1+1*, EXFILE+3~, EXVADD+6*, NVWCFILE+1~, N1+2*, PEWCFILE+1~, F1+1*, VPEFILE+1~, VPEADD+9*
DIK FEED+15*!, EXVCLEAN+1*, CLEANVWC+1~, CLEANVWC+3*, VPEFILE+1~, VPECLEAN+1*
DIR ASQFILE+1~, ASKASQ+1~, ASK1+3!, FEED+1~, FEED+11!, LOU+1~, LOU+12!, TIME+2!
DIR("A" ASK1+1*, FEED+10*, LOU+11*, TIME+1*
DIR("B" ASK1+2*, FEED+8*, LOU+11*, TIME+1*
DIR(0 ASK1*, FEED+9*, LOU+10*, TIME*
>> DLAYGO VWC+4*, E1+1*, VMSR+6*, FEED+16*, EXVADD+1*, EXVADD+8*, N2+1*, F2+1*, VPEADD+3*, VPEADD+13*
DOB FEED+1~, FEED+3*, FEED+4
DR VWC+2~, VWC+7*, EVWCFILE+1~, E1+3*, E1+9*, ASQFILE+1~, ASQFILE+4*, ASKASQ+1~, ASK2*, ASQVMSR+1~
, ASQVMSR+6*, ASQVMSR+7*, FEED+1~, FEED1+1*, EXFILE+3~, EXVADD+6*, NVWCFILE+1~, N1+2*, N1+3*, N1+4*
, N1+5*, PEWCFILE+1~, F1+2*, F1+3*, F1+4*, F1+5*, F1+6, VPEFILE+1~, VPEADD+10*
DT FEED+4
EDU NVWCFILE~, N1+1*, N1+5, PEWCFILE~, F1+5, VPEFILE~, UVAR+6*, LOU~, LOU+7*, LOU+8*
FIEN FEED+1~, FEED+5*, FEED+6, FEED+7, FEED+8, FEED+13, FEED+15
FLD ASKASQ+1~, ASKASQ+2*, ASK1+2, ASK2
FTIME VPEFILE~, UVAR+2*, UVAR+3, UVAR+4*, LOU~, TIME+9*, TIME+10*
GRP VPEFILE+1~, UVAR+5*
GUIFLAG EVWCFILE~, E1+9, E1+12
IEN ASQM+1~, ASQM+5*, ASQM+6
ITEM VPEFILE+1~
LIEN EVWCFILE+1~, NVWCFILE+1~, PEWCFILE+1~
LL LOU+1~, LOU+2*, LOU+5*, LOU+6*, LOU+11
LOU NVWCFILE~, N1+1*, N1+3, PEWCFILE~, F1+3, VPEFILE~, UVAR+1*, LOU~, LOU+13*
LT LOU+1~, LOU+2*, LOU+5*, LOU+6*, TIME+1
M ASQM+1~, ASQM+4*, ASQM+5
MIEN VMSR+1~, VMSR+2*, VMSR+4
OK CODE+1~, CODE+2*, CODE+3, CODE+5*
PCE ASQFILE+1~, ASQFILE+10*, ASQFILE+12*, ASKASQ~, ASKASQ+2, ASK1+1, ASK1+6, ASQVMSR~, ASQVMSR+2, ASQVMSR+4
, ASQVMSR+5
PEIEN EVWCFILE+1~, NVWCFILE+1~, PEWCFILE+1~
QIEN ASQFILE+1~, ASQFILE+6*, ASQFILE+7, ASQFILE+8
RES EVWCFILE+1~, E1+9*, ASQFILE+1~, ASQFILE+11*, ASQVMSR+4
SEL FEED+1~, FEED+12*, FEED+13, FEED+14, FEED+15, FEED+16, CLEANVWC+1~, VPEFILE+1~, VPEADD+3*, VPEADD+4*
, VPEADD+5
>> SILENT VWC+6
SS EVWCFILE~, EVWCFILE+3, EVWCFILE+6, E1+1, E1+2, E1+11
STG ASQFILE+1~, ASQFILE+8*, ASK1+6
T VPEFILE+1~
TIME NVWCFILE~, N1+1*, N1+4, PEWCFILE~, F1+4, LOU~, TIME+4*, TIME+9
TITLE LOU~, LOU+5, LOU+9, TIME+1
TOT EVWCFILE+1~, EXFILE+3~, EXVCLEAN+5*, EXVCLEAN+6*, EXVADD+9*, EXVADD+10, NVWCFILE+1~, PEWCFILE+1~, VPEFILE+1~, VPEADD+3*
, VPEADD+4*, VPEADD+13*, VPEADD+15*, VPEADD+16, VPEADD+17, LOU+1~, TIME+6*, TIME+7*
TYPE VMSR~, VMSR+2, VMSR+7
U E1+2, ASQFILE+6, ASQFILE+11, ASK1+1, ASK1+2, ASK1+6, ASQVMSR+2, ASQVMSR+4, ASQVMSR+7, ASQM+3
, FEED+2, FEED+3, FEED+8, EXVCLEAN+4, N2+2, F2+2, VPECLEAN+4, VPEADD+14, CODE+5, LOU+5
, LOU+6, LOU+7
VAL ASQVMSR+1~, ASQVMSR+4*, ASQVMSR+5*
VDT ASQM+1~, ASQM+2*, ASQM+4
VIEN VWC~, VWC+1, VWC+3, VMSR~, VMSR+4, ASQM~, ASQM+2, ASQM+3, FEED~, FEED+2
, FEED+5, EXFILE+3~
VMIEN VMSR+1~, VMSR+3*, VMSR+4*, VMSR+5
VPEIEN EVWCFILE+1~, NVWCFILE+1~, PEWCFILE+1~, VPEFILE+1~, VPEADD+9*, VPEADD+13
VWCIEN EVWCFILE+1~, EVWCFILE+6*, E1+1, ASQFILE+1~, ASQFILE+2*, ASQFILE+11, ASK1+2, ASK2, NVWCFILE+1~, NVWCFILE+5*
, N1+2, N2+1, PEWCFILE+1~, PEWCFILE+4*, PEWCFILE+5, F1+1, F2+1, CLEANVWC~, CLEANVWC+2, CLEANVWC+4
, CLEANVWC+5, LOU+1~, LOU+3*, LOU+4, LOU+7
X VWC+2~, VWC+4*, EVWCFILE+1~, E1+7*, E1+10, ASQFILE+1~, ASKASQ+1~, ASQVMSR+1~, ASQVMSR+2*, ASQVMSR+3
, VMSR+1~, VMSR+7*, FEED+1~, FEED+16*, EXFILE+3~, EXVADD+4*, EXVADD+10*, NVWCFILE+1~, N2+6*, PEWCFILE+1~
, F2+6*, CLEANVWC+1~, CLEANVWC+5*, CLEANVWC+8, VPEFILE+1~, VPEADD+7*, VPEADD+17*, VPEADD+18*, LOU+1~
Y VWC+2~, VWC+6, VWC+7, EVWCFILE+1~, EVWCFILE+4*, EVWCFILE+5, EVWCFILE+6, E1+7, E1+8, ASQFILE+1~
, ASKASQ+1~, ASK1+4, ASK1+5, ASK1+6, ASQVMSR+1~, VMSR+1~, VMSR+8, VMSR+9, FEED+1~, FEED+12
, FEED1, FEED1+1, EXFILE+3~, EXVADD+5, EXVADD+6, NVWCFILE+1~, NVWCFILE+3*, NVWCFILE+4, NVWCFILE+5, PEWCFILE+1~
, PEWCFILE+3*, PEWCFILE+4, CLEANVWC+1~, CLEANVWC+8*, VPEFILE+1~, VPEADD+8, VPEADD+9, LOU+1~, LOU+8, LOU+12
, LOU+13, TIME+3, TIME+4
Z FEED+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 |  Local Variables |  All