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 |  Marked Items |  All
Print Page as PDF
Routine: APCDETP

Package: Patient Care Component

Routine: APCDETP


Information

APCDETP ; IHS/CMI/LAB - DISPLAY/EDIT TREATMENT NOTES ;

Source Information

Source file <APCDETP.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 2 $$FMADD^XLFDT  DISP^XQORM1  
Patient Care Component 2 ^APCDEIN  EN^APCDEKL  
Registration 2 EN^VALM  ($$FTIME,CLEAR,FULL)^VALM1  
VA Fileman 2 PUT^DDSVAL  ^DIC  
IHS Patient 1 $$CONVDAYS^AUPNCIX  
IHS VA Utilities 1 $$VAL^XBDIQ1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Care Component 1 APCDETP1  

Entry Points

Name Comments DBIA/ICR reference
GETTXT ;EP - GENERALIZED TEXT PRINTER
EN ; EP -- main entry point for APCD UPDATE ACTIVITY RECORDS
HDR ;EP -- header code
EOJ ;EOJ CLEANUP
GATHER ;EP - called from APCDUAR
GETPAT ;get patient
GETFRAG
START ; Write Header
INIT ;EP -- init variables and list array
EXIT ; -- exit code
EP1(DFN) ;EP CALLED FROM PROTOCOL
TEXT ;
CMPLDATE(B) ;EP - called from SCREENMAN SCREEN
GETTXT2
ADDTPT ;EP - called from option to add new treatment plan types
EXPND ; -- expand code
HELP ;EP -- help code

External References

Name Field # of Occurrence
^APCDEIN START+6
EN^APCDEKL EOJ+2
$$CONVDAYS^AUPNCIX CMPLDATE+5
PUT^DDSVAL CMPLDATE+7
^DIC GETPAT+3, ADDTPT+12
EN^VALM EN+2, EN+3
$$FTIME^VALM1 GATHER+8, GATHER+15, HDR+1
CLEAR^VALM1 EOJ+1, EN+2, EN+4
FULL^VALM1 START+9, EP1+6
$$VAL^XBDIQ1 GATHER+5, GATHER+11, GATHER+18, GATHER+21
$$FMADD^XLFDT CMPLDATE+6
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?80-$L(X)\2,X
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !
  • Line Location: GETPAT+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !!,"This option is used to add new Treatment Plan Types to the Treatment"
  • Line Location: ADDTPT+1
Function Call: WRITE
  • Prompt: !,"Plan Type table.",!
  • Line Location: ADDTPT+2
Function Call: WRITE
  • Prompt: !,"The following treatment plan types are currently on file:",!
  • Line Location: ADDTPT+3
Function Call: WRITE
  • Prompt: !!,"Enter new treatment plan type",!
  • Line Location: ADDTPT+10
Routine Call
  • VALM
  • Line Location:
    • EN+2
    • EN+3
Routine Call
  • DIC
  • Line Location:
    • GETPAT+3
    • ADDTPT+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] Classic Fileman Calls
^AUPNTP - [#9000094] PUT^DDSVAL
^AUTTTPL - [#99999.21] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNTP - [#9000094] GATHER+5, GATHER+8, GATHER+13, GATHER+15, CMPLDATE+3
^AUPNTP("AA" GATHER+3
^AUPNTP("AC" GATHER+2
^AUTTTPL - [#99999.21] ADDTPT+7
^AUTTTPL("B" ADDTPT+4, ADDTPT+5
^DPT - [#2] EP1+2, EP1+3, HDR+1
^VA(200 - [#200] GATHER+5

Label References

Name Line Occurrences
EN START+9, EP1+5
EOJ START+1, START+10
EXIT START+9
GATHER INIT+1
GETFRAG GETTXT2
GETPAT START+8
GETTXT2 GETTXT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A CMPLDATE+2~, CMPLDATE+3*, CMPLDATE+4, CMPLDATE+6
>> APCDAT GETPAT+1*, GETPAT+5*
APCDCOL EXIT+1!
>> APCDD GATHER+3*
>> APCDDISP EN+2
APCDE GATHER+3*, GATHER+4, GATHER+5, GATHER+8, GATHER+11, GATHER+13, GATHER+15, GATHER+18, GATHER+21, EXIT+1!
>> APCDEC GETTXT2*, GETTXT2+1
APCDEL EXIT+1!
>> APCDETP("C" GETTXT+3!, GETFRAG+1*, GETFRAG+2
>> APCDETP("DLT" GETTXT+1*, GETTXT+3!, GETTXT2+1*
>> APCDETP("F" GETTXT+3!, GETTXT2+1, GETFRAG*, GETFRAG+2*
>> APCDETP("ICL" GETTXT+1, GETTXT2, GETTXT2+1*
>> APCDETP("ILN" GETTXT+1*, GETTXT+3!, GETTXT2+1*, GETFRAG, GETFRAG+1
>> APCDETP("LGTH" GETTXT+1
>> APCDETP("NRQ" GETTXT+2*
>> APCDETP("Q" GETTXT+2*
>> APCDETP("TXT" GETTXT+2*, GETTXT+3!, GETFRAG*, GETFRAG+1, GETFRAG+2*
APCDETXT EXIT+1!
APCDETXT( GETTXT2*, GETTXT2+1*
APCDGNUM EXIT+1!
APCDLINE GATHER+1*, GATHER+4*, GATHER+6, GATHER+7*, GATHER+9, GATHER+10*, GATHER+12, GATHER+14*, GATHER+16, GATHER+17*
, GATHER+19, GATHER+20*, GATHER+22, INIT+2, EXIT+1!
APCDPTP GATHER+1!, HDR+2!, EXIT+1!
APCDPTP( GATHER+6*, GATHER+9*, GATHER+12*, GATHER+16*, GATHER+19*, GATHER+22*
APCDPTP("IDX" GATHER+4*
APCDPTP(1 GATHER+2*, HDR+2
APCDQUIT GATHER+1!
APCDRCNT GATHER+1*, GATHER+2*, GATHER+4*, GATHER+5, HDR+2*, EXIT+1!
>> APCDTP CMPLDATE+3
APCDTPN EXIT+1!
>> APCDX GATHER+5*, GATHER+6, GATHER+8*, GATHER+9, GATHER+11*, GATHER+12, GATHER+15*, GATHER+16, GATHER+18*, GATHER+19
, GATHER+21*, GATHER+22
APCHSPAT EP1+4~
APCHSTYP EP1+4~
B CMPLDATE~, CMPLDATE+1, CMPLDATE+5
C ADDTPT+4*, ADDTPT+6*, ADDTPT+13!, CMPLDATE+2~, CMPLDATE+5*, CMPLDATE+6
D CMPLDATE+2~, CMPLDATE+6*, CMPLDATE+7
>> DA CMPLDATE+7
DFN START+8*, START+9, GETPAT+1*, GETPAT+5*, EP1~, EP1+1, EP1+2, EP1+3, GATHER+2, GATHER+3
, HDR+1
DIADD ADDTPT+12*!
DIC GETPAT+3*!, ADDTPT+11!, ADDTPT+12*!
DIC(0 GETPAT+3*, ADDTPT+12*
DLAYGO ADDTPT+12*!
IOF START+2
J START+3*, START+4!, ADDTPT+6*, ADDTPT+7, ADDTPT+8, ADDTPT+13!
U EP1+3, GATHER+5, GATHER+8, GATHER+13, GATHER+15, HDR+1, ADDTPT+7, CMPLDATE+3
VALMCC EN+1*, EXIT+2!
>> VALMCNT INIT+2*
VALMHDR EP1+7!, EXIT+2!
VALMHDR(1 HDR+1*
VALMHDR(2 HDR+2*, HDR+3*
X START+3*, START+4!, EP1+8!, HELP+1*, GETTXT2*, ADDTPT+4*, ADDTPT+5, ADDTPT+13!
Y GETPAT+4, GETPAT+5, EP1+8!, ADDTPT+5*, ADDTPT+7, ADDTPT+13!

Marked Items

Name Field # of Occurrence
$T(TEXT+J START+3
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 |  Marked Items |  All