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

Package: Patient Care Component Reports

Routine: APCLLT


Information

APCLLT ; IHS/CMI/LAB - VIEW PT RECORD LT ;

Source Information

Source file <APCLLT.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
VA Fileman 5 %XY^%RCR  ^DIC  ^DIE  ^DIK  ^DIR  
Registration 3 EN^VALM  TERM^VALM0  (CLEAR,FULL)^VALM1  
IHS VA Utilities 2 ^XBFMK  EN^XBVK  
Patient Care Component Reports 2 (DIC,DIE,DIR)^APCLLTD  ^APCLLTZ  
Kernel 1 DISP^XQORM1  

Entry Points

Name Comments DBIA/ICR reference
REGISTER ;
MULTIPLE ;EP;UTILTIY TO SELECT MULTIPLE PATIENTS FOR WHICH TO PRINT APCLLT LETTER
HDR ;EP
VARS ;CONVERT VARIABLES
PATIENT ;SELECT INDIVIDUAL PATIENTS TO PRINT LETTER
E11
S1
BACK
PRIMARY ;EP;TO PRINT PROVIDER NAME IN A LETTER
DATE ;EP;TO PRINT LETTER DATE
EXPND ; -- expand code
P1 ;
NOREG ;EP;CREATE LETTER WITHOUT REGISTER
PRINT ;EP;TO PRINT APCLLT LETTER
LINE ;
SELECT ;EP;TO SELECT APCLLT LETTER
HELP ; -- help code
CASE ;EP;TO PRINT PROVIDER NAME IN A LETTER
I8 ;;CASE MANAGER NAME;;16
LAST ;EP;TO PRINT PATIENT NAME IN A LETTER
I1 ;;FIRST NAME;;2
I3 ;;CHART
I2 ;;LAST NAME;;2
I5 ;;DATE
I4 ;;ADDRESS;;2
I7 ;;PHN;;16
I6 ;;PRIMARY PROVIDER NAME;;16
A1
COHORT ;EP;TO ESTABLISH COHORT OF PATIENTS TO PRINT
PATLET ;EP;TO SELECT AND PROCESS PATIENT LETTER
ILIST ;LIST ITEM TEXT
C1
EN ;
ZIS ;EP;TO SELECT DEVICE ON WHICH TO PRINT APCLLT LETTER
INSERT ;EP;TO LIST INSERT ITEMS
CPRINT ;EP;TO PRINT LETTERS FROM LIST OR TEMPLATE
ADD ;EP;TO ADD APCLLT LETTERS
Z(X) ;SET TMP NODE
INTP ;INTERPRET VARIABLES
WHICH ;EP;TO IDENTIFY WHICH LETTER TO USE
FOLLOW ;EP;TO PRINT FOLLOW-UP MESSAGE
PAUSE ;EP
FIRST ;EP;TO PRINT PATIENT NAME IN A LETTER
PHN ;EP;TO PRINT PHN NAME IN A LETTER
VALM(APCLLTVM) ;EP; -- main entry point for list templates
LINIT ;EP;TO CREATE ARRAY OF NAMES OF EXISTING LETTERS
EDIT ;EP;TO EDIT APCLLT LETTER
LIST ;LIST LETTERS
CHART ;EP;TO PRINT PATIENT CHART NUMBER
REG1 ;
PARSE ;DIVIDE UP THE LETTER CONTENT
ITEXT ;;
EXIT ;
TEMPLATE ;SELECT SEARCH TEMPLATE
ADDRESS ;EP;TO PRINT PATIENT'S ADDRESS IN A LETTER
DELETE ;DELETE LETTER

External References

Name Field # of Occurrence
%XY^%RCR PARSE+12
DIC^APCLLTD A1+7
DIE^APCLLTD E11+4
DIR^APCLLTD S1+3
^APCLLTZ ZIS+5
^DIC A1+25, P1+6, TEMPLATE+5, REGISTER+5
^DIE A1+30
^DIK DELETE+5
^DIR A1+18, C1+5, PAUSE+1, REGISTER+9
EN^VALM VALM+7
TERM^VALM0 VALM+5
CLEAR^VALM1 VALM+6, VALM+8, A1, E11, PRINT+2
FULL^VALM1 A1+11
^XBFMK A1+21, A1+29, A1+30
EN^XBVK EN+1, A1+28
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !?16,"------------------------------"
  • Line Location: A1+6
Function Call: WRITE
  • Prompt: !!,"You can associate this letter with a Case Management System letter if you wish."
  • Line Location: A1+12
Function Call: WRITE
  • Prompt: !,"If you tie it to a CMS Register you will be able to pull items such"
  • Line Location: A1+13
Function Call: WRITE
  • Prompt: !,"as Where Followed and Case Manager from the register to insert in your"
  • Line Location: A1+14
Function Call: WRITE
  • Prompt: !,"letter."
  • Line Location: A1+15
Function Call: WRITE
  • Prompt: !
  • Line Location: A1+16
Function Call: WRITE
  • Prompt: !!,"No register selected."
  • Line Location: A1+26
Function Call: WRITE
  • Prompt: !
  • Line Location: S1+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LIST+3
Function Call: WRITE
  • Prompt: !!?5,"APCLLT letters currently on file:"
  • Line Location: LIST+4
Function Call: WRITE
  • Prompt: !!,"NO. LETTER"
  • Line Location: LIST+5
Function Call: WRITE
  • Prompt: ?27,"NO. LETTER"
  • Line Location: LIST+6
Function Call: WRITE
  • Prompt: ?54,"NO. LETTER"
  • Line Location: LIST+7
Function Call: WRITE
  • Prompt: !,"--- --------------------"
  • Line Location: LIST+8
Function Call: WRITE
  • Prompt: ?27,"--- --------------------"
  • Line Location: LIST+9
Function Call: WRITE
  • Prompt: ?54,"--- --------------------"
  • Line Location: LIST+10
Function Call: WRITE
  • Prompt: !
  • Line Location: ADDRESS+2
Function Call: WRITE
  • Prompt: $P(Z,U)
  • Line Location: ADDRESS+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ADDRESS+13
Function Call: WRITE
  • Prompt: $P(Z,U,4),", ",$P($G(^DIC(5,+$P(Z,U,5),0)),U,2)," ",$P(Z,U,6)
  • Line Location: ADDRESS+15
Function Call: WRITE
  • Prompt: !!,"No patients selected."
  • Line Location: C1+11
Function Call: WRITE
  • Prompt: !!,"No register selected."
  • Line Location: REGISTER+6
Function Call: WRITE
  • Prompt: !,"No patients with that status in that register!"
  • Line Location: REG1+5
Function Call: WRITE
  • Prompt: !!,"There are ",APCLCNT," patients in the ",$P(^ACM(41.1,APCLREG,0),U)," register with a status of ",APCLSTAT,".",!!
  • Line Location: REG1+6
Routine Call
  • VALM
  • Line Location:
    • VALM+7
Routine Call
  • DIE
  • Line Location:
    • A1+30
Routine Call
  • DIC
  • Line Location:
    • A1+25
    • P1+6
    • TEMPLATE+5
    • REGISTER+5
Routine Call
  • DIR
  • Line Location:
    • A1+18
    • C1+5
    • PAUSE+1
    • REGISTER+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] Classic Fileman Calls
^APCLLET - [#9001004.6] Classic Fileman Calls
^ACM(41.1 - [#9002241.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UPPERCASE" INTP+3
^ACM(41 - [#9002241] CASE+2, PHN+2, REG1+2, REG1+3, REG1+4
^ACM(41.1 - [#9002241.1] REG1+6
^APCLLET - [#9001004.6] PRINT+6, PRINT+7, PARSE+4, PARSE+5, LIST+16
^APCLLET("B" LINIT+12, LINIT+14, LIST+13, LIST+15
^AUPNPAT - [#9000001] CHART+1, PRIMARY+1
^DD("DD" DATE+3
^DIBT( TEMPLATE+8
^DIC(5 - [#5] ADDRESS+15
^DPT - [#2] FIRST+1, LAST+1, ADDRESS+1
^TMP($J EXIT+3!, LINIT+2!, ILIST+1!, Z+2*, COHORT+6, C1!, C1+11, P1+9*, TEMPLATE+8*, CPRINT+2
, REG1+2!, REG1+3*, REG1+4*, REG1+5
^VA(200 - [#200] PRIMARY+2, CASE+3, PHN+3

Label References

Name Line Occurrences
@( INTP+9
A1 ADD+2, WHICH+2
BACK A1+9, A1+19, A1+20, A1+26, EDIT+3, E11+6, INSERT+3, DELETE+2, DELETE+6
C1 COHORT+3
E11 ADD+3
EXIT VALM+9, ADD+1, EDIT+1
INTP PRINT+8
LINE PARSE+8
LIST SELECT+2
P1 PATIENT+2
PARSE E11+5
PATIENT C1+8
PAUSE C1+11, REG1+7
PRINT CPRINT+2
REGISTER C1+10
S1 EDIT+2, DELETE+1
SELECT PATLET+1, COHORT+1
TEMPLATE C1+9
VALM EN+3, NOREG+4, INSERT+2
VARS PARSE+7
Z LINIT+6, LINIT+9, LINIT+19, ILIST+7, ILIST+10, ILIST+19, ILIST+21, ILIST+23, ILIST+25, ILIST+27
, ILIST+29, ILIST+31, ILIST+33, ILIST+35, ILIST+37, ILIST+39, ILIST+41
ZIS PATLET+4, COHORT+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %X PARSE+10*
>> %Y PARSE+11*
A PRINT+4~, ILIST+14, ILIST+15*, ILIST+18
APCL LIST+2~, LIST+12*, LIST+13*, LIST+15, LIST+20, LIST+25
>> APCLBROW COHORT+5*
>> APCLCNT REG1+2*, REG1+3*, REG1+4*, REG1+6
APCLLT NOREG+1~
APCLLT("NOREG" NOREG+2*
APCLLT("STATUS" FOLLOW+1*
APCLLTJ S1, LINIT+2!, LINIT+10*, LINIT+15*, LINIT+17, LINIT+20, LIST+11*, LIST+19*, LIST+20, LIST+21
, LIST+22, LIST+23, LIST+24
>> APCLLTJB PATLET+3*, COHORT+6, C1+1*, P1+9, TEMPLATE+8, CPRINT+2, REG1+2, REG1+3, REG1+4, REG1+5
APCLLTLD EXIT+1!, ADD+3, A1+1!, A1+8*, A1+30, S1+5*, E11+1, PRINT+1, PRINT+6, PRINT+7
, PARSE+4, PARSE+5, PARSE+11, PATLET+2, DELETE+3, COHORT+2
APCLLTOT EXIT+1!, SELECT+1!
APCLLTQT VALM+2, EXIT+1!, SELECT+1!, S1+4*, EDIT+3!, DELETE+2!, COHORT+4, C1+7*, PATIENT+1!, PATIENT+2
, PATIENT+3!, P1+8*
APCLLTTP PARSE+1~, PARSE+9, LIST+1!
APCLLTTP( S1+4, S1+5, LINIT+20*, LINE+3*, LINE+7*, LINE+11*, LIST+20*
APCLLTVM EN+2*, EN+3, NOREG+3*, NOREG+4, VALM~, VALM+7, INSERT+1*, INSERT+2
APCLLTX LIST+2~, LIST+14*, LIST+15*, LIST+16, LIST+20
APCLLTY LIST+2~, LIST+16*, LIST+17, LIST+18
APCLLTZ LIST+2~
APCLREG VALM+3!, A1+17*, A1+27*, A1+30, LIST+18, CASE+1, CASE+2, PHN+1, PHN+2, C1+10!
, REGISTER+1!, REGISTER+7*, REG1+2, REG1+6
>> APCLRTN ZIS+1*, COHORT+7*
>> APCLSTAT REGISTER+11*, REG1+3, REG1+4, REG1+6
>> APCLXCNT PRINT+3, CPRINT+1*, CPRINT+2*
>> APCLZDIC A1+24*, REGISTER+4*
APCLZZZ INTP+1~, INTP+5*, ADDRESS+3, ADDRESS+7, ADDRESS+11, ADDRESS+14
B PRINT+4~
C PRINT+4~
D PRINT+4~
DA A1+18!, A1+30*, E11+1*, DELETE+3*, REGISTER+9!
>> DFN PRINT+1, FIRST+1, LAST+1, CHART+1, ADDRESS+1, PRIMARY+1, CPRINT+1*, CPRINT+2*
DIC A1+3*, A1+23*, P1+1~, P1+2*, P1+7!, TEMPLATE+1~, TEMPLATE+2*, TEMPLATE+6!, REGISTER+1!, REGISTER+3*
DIC("A" A1+4*, A1+23*, P1+5*, REGISTER+3*
DIC("DR" A1+5*
DIC("S" A1+24*, P1+4*, TEMPLATE+4*, REGISTER+4*
DIC(0 A1+2*, A1+5, A1+22*, WHICH+1*, P1+3*, TEMPLATE+3*, REGISTER+2*
>> DIE A1+23*, A1+30*, E11+2*, REGISTER+3*
>> DIK DELETE+4*
DIR A1+18!, C1+2~, C1+6!, PAUSE+1!, REGISTER+9!
DIR("A" A1+18*, S1+1*, C1+4*, PAUSE+1*, REGISTER+9*
DIR("B" A1+18*, REGISTER+9*
DIR(0 A1+18*, S1*, C1+3*, PAUSE+1*, REGISTER+9*
>> DIRUT A1+19, PAUSE+1*, REGISTER+10
>> DLAYGO A1+5*
>> DR A1+30*, E11+3*
DT A1+5, DATE+2
>> DUOUT PAUSE+1
DUZ A1+5
DUZ(2 CHART+1
I INTP+6*, PARSE+1~, VARS+1~, VARS+3*, LINE+4*
IO PRINT+2
IO(0 PRINT+2
IOF PRINT+3, LIST+3
IOST PRINT+2
J INTP+6*, INTP+7, INTP+10, ILIST+2~, ILIST+12*, ILIST+17, PARSE+1~, PARSE+3*, VARS+1~, VARS+3*
, VARS+7, LINE+2*, LINE+3, LINE+6*, LINE+7, LINE+11*
K INTP+1~, INTP+7*, INTP+9, PARSE+1~, VARS+1~, LINE+4*, LINE+5, LINE+9, LINE+10
U LIST+18, LIST+20, FIRST+1, LAST+1, CHART+1, ADDRESS+4, ADDRESS+5, ADDRESS+8, ADDRESS+9, ADDRESS+12
, ADDRESS+15, PRIMARY+1, PRIMARY+2, CASE+2, CASE+3, PHN+2, PHN+3, REG1+3, REG1+4, REG1+6
>> VALMBCK BACK*
>> VALMCC VALM+4*
>> VALMCNT LINIT+3*, ILIST+4*, Z+1*, Z+2
VALMHDR HDR+1!
VALMHDR(1 HDR+2*
X HELP+1*, PRINT+4~, PRINT+5*, PRINT+6*, PRINT+7, INTP+1~, INTP+2*, LINIT+1~, LINIT+4!, LINIT+5*
, LINIT+6, LINIT+7!, LINIT+8*, LINIT+9, LINIT+16!, LINIT+17*, LINIT+18*, LINIT+19, ILIST+2~, ILIST+5!
, ILIST+6*, ILIST+7, ILIST+8!, ILIST+9*, ILIST+10, ILIST+16!, ILIST+17*, ILIST+18*, ILIST+19, ILIST+20*
, ILIST+21, ILIST+22*, ILIST+23, ILIST+24*, ILIST+25, ILIST+26*, ILIST+27, ILIST+28*, ILIST+29, ILIST+30*
, ILIST+31, ILIST+32*, ILIST+33, ILIST+34*, ILIST+35, ILIST+36*, ILIST+37, ILIST+38*, ILIST+39, ILIST+40*
, ILIST+41, PARSE+1~, PARSE+3*, PARSE+4*, PARSE+5, VARS+1~, VARS+5, VARS+6*, VARS+7, Z~
, Z+2, REG1+2*, REG1+3, REG1+4
Y A1+8, A1+9, A1+20, A1+26, A1+27, S1+4, S1+5, PRINT+4~, PRINT+7*, PRINT+8
, PRINT+9, INTP+2, INTP+4, INTP+5, INTP+6, INTP+11*, LINIT+11*, LINIT+12*, LINIT+14, LINIT+18
, ILIST+2~, PARSE+1~, PARSE+5*, PARSE+6, PARSE+7, VARS+3, VARS+7*, LINE+1, LINE+3, LINE+4
, DATE+1~, DATE+2*, DATE+4, C1+7, C1+8, C1+9, C1+10, P1+8, P1+9, TEMPLATE+7
, TEMPLATE+8, REGISTER+6, REGISTER+7, REGISTER+11
Z PRINT+4~, INTP+10, LINIT+13*, LINIT+14*, LINIT+20, ILIST+2~, PARSE+1~, PARSE+2*, VARS+1~, VARS+5*
, LINE+5, LINE+7, LINE+8*, LINE+9*, LINE+10*, LINE+11, FIRST+1*, FIRST+2*, LAST+1*, LAST+2*
, CHART+1*, ADDRESS+1*, ADDRESS+4, ADDRESS+5, ADDRESS+8, ADDRESS+9, ADDRESS+12, ADDRESS+15, ADDRESS+16*, PRIMARY+1*
, PRIMARY+2*, PRIMARY+3*, CASE+2*, CASE+3*, CASE+4*, PHN+2*, PHN+3*, PHN+4*, DATE+4*
>> ZTDESC ZIS+2*
>> ZTRTN ZIS+1*
>> ZTSAVE("ACM*" ZIS+3*
>> ZTSAVE("DFN" ZIS+4*
ZZ INTP+1~, INTP+4*, INTP+8*, INTP+10*, INTP+11, ILIST+2~, ILIST+3*, ILIST+13, PARSE+1~, PARSE+2*
, VARS+2*, VARS+4, ADDRESS+16*

Marked Items

Name Field # of Occurrence
$T(@K INTP+8
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 |  Marked Items |  All