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: PSOTPCLP

Package: Outpatient Pharmacy

Routine: PSOTPCLP


Information

PSOTPCLP ;BIRM/PDW-PRINT PATIENT LETTERS ;AUG 5,2003

Source Information

Source file <PSOTPCLP.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  (,KILL)^%ZTLOAD  $$FMTE^XLFDT  
Outpatient Pharmacy 3 $$CHKTEMP^PSOBAI  ($$CHKINST,$$INSTCHK,SEL)^PSOTPCL  LOADTMP^PSOTPCLW  
VA Fileman 3 ^DIC  ($$GET1,D)^DIQ  ^DIR  
Registration 2 $$BADADR^DGUTL3  (ADD,DEM)^VADPT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSO TPB PRINT LETTERS  

Entry Points

Name Comments DBIA/ICR reference
LOAD
DIVISION ;print by division
HEADER ; print letter header
PATIENT ; print by patients
DEQUE ; DEQUE/PRINT LETTERS
CCADD ; Get Confidential Correspondence Address if one is active
; and has the category "all other".
GETDIV(DIVDA) ; GET DIVISIONAL DATA
SORTPAT ; sort by patient
DSPPAT(DFN) ; Display Division and expire date
PATSEL ; Select one or more patients
DEVICE ;
LST
PRTLET ; pull DIVDAs and DFNs from ^TMP($J,"TPBLET",
EXIT ;
GET1(FILE,FLIEN,FLDX) ; "Variable^FLD" load variable = FILE,FLD
PRINT ; select options
LETTER(DFN) ; print letter , division variables information must be present
DIV
GETPAT(DFN) ;GET PATIENT DATA

External References

Name Field # of Occurrence
^%ZIS DEVICE+2
^%ZISC EXIT+1
^%ZTLOAD DEVICE+9
KILL^%ZTLOAD EXIT+2
$$BADADR^DGUTL3 GETPAT+14
^DIC PATSEL+3
$$GET1^DIQ PRINT+6, PRINT+10, PATSEL+3, PATSEL+5, PATSEL+9, PATSEL+11, PATSEL+14, PATSEL+16, DSPPAT+2, DSPPAT+3
, DSPPAT+5, DEQUE+5, DEQUE+8, PRTLET+18, GETPAT+2, DIV+1, GET1+1, LOAD
D^DIQ PRTLET+13, GETPAT+8
^DIR PRINT+12, DIVISION+2, LST+2, LST+5
$$CHKTEMP^PSOBAI GETPAT+14
$$CHKINST^PSOTPCL PRINT+9, PATSEL+15, PRTLET+4
$$INSTCHK^PSOTPCL PRINT+7
SEL^PSOTPCL DIVISION+5
LOADTMP^PSOTPCLW PRTLET+1
ADD^VADPT GETPAT+4
DEM^VADPT GETPAT+4
$$FMTE^XLFDT DSPPAT+4, DSPPAT+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"None Selected - Quitting",!
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !,"No Selection Made - Quitting",!
  • Line Location: DIVISION+6
Function Call: WRITE
  • Prompt: !!,"Sorry, ",PTNM," died ",XX,!
  • Line Location: PATSEL+6
Function Call: WRITE
  • Prompt: !,"Sorry, ",PTNM,"'s eligibility expired ",EXPDT,!
  • Line Location: PATSEL+12
Function Call: WRITE
  • Prompt: !!,"Sorry, ",$$GET1^DIQ(52.91,DFN,7)," is missing required fields.",!!
  • Line Location: PATSEL+16
Function Call: WRITE
  • Prompt: !,"No Patients Selected - Quitting",!
  • Line Location: LST+0
Function Call: WRITE
  • Prompt: !!,"You have selected:",!
  • Line Location: LST+1
Function Call: WRITE
  • Prompt: !
  • Line Location: LST+5
Function Call: WRITE
  • Prompt: ?32,$E(DIVNM,1,15)
  • Line Location: DSPPAT+2
Function Call: WRITE
  • Prompt: ?50,"Inact ",EXPDT
  • Line Location: DSPPAT+4
Function Call: WRITE
  • Prompt: ?66,"Prt ",PRTDT
  • Line Location: DSPPAT+6
Function Call: WRITE
  • Prompt: !,"Queueing is recommended",!
  • Line Location: DEVICE+1
Function Call: WRITE
  • Prompt: !!,"Tasked with "_ZTSK
  • Line Location: DEVICE+10
Function Call: WRITE
  • Prompt: @IOF,!!,?10,"SUMMARY of TPB LETTER PRINTING ",SRDT
  • Line Location: PRTLET+14
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRTLET+15
Function Call: WRITE
  • Prompt: !!,"NO DATA TO PRINT",!!
  • Line Location: PRTLET+16
Function Call: WRITE
  • Prompt: !,?5,$$GET1^DIQ(52.92,DIVDA,.01),?40,DIVCNT(DIVDA)
  • Line Location: PRTLET+18
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTLET+19
Function Call: WRITE
  • Prompt: !,^(LN)
  • Line Location: LETTER+5
Function Call: WRITE
  • Prompt: ?30,"PHARMACY SERVICE",!,?30,DIVNM
  • Line Location: LETTER+6
Function Call: WRITE
  • Prompt: !,?30,MADD1
  • Line Location: LETTER+8
Function Call: WRITE
  • Prompt: !,?30,MCITY,", ",MSTATE," ",MZIP
  • Line Location: LETTER+10
Function Call: WRITE
  • Prompt: !,?30,ADD1
  • Line Location: LETTER+11
Function Call: WRITE
  • Prompt: !,?30,CITY,", ",STATE," ",ZIP
  • Line Location: LETTER+13
Function Call: WRITE
  • Prompt: !,^(LN)
  • Line Location: LETTER+14
Function Call: WRITE
  • Prompt: " ",PHN1
  • Line Location: LETTER+15
Function Call: WRITE
  • Prompt: ", or ",PHN2
  • Condition for execution: $L(PHN2)
  • Line Location: LETTER+15
Function Call: WRITE
  • Prompt: ".",!
  • Line Location: LETTER+15
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LN>1
  • Line Location: LETTER+16
Function Call: WRITE
  • Prompt: ^(LN)
  • Line Location: LETTER+16
Function Call: WRITE
  • Prompt: !!!!,?4,SIG1
  • Line Location: LETTER+17
Function Call: WRITE
  • Prompt: !,?4,SIG2
  • Condition for execution: $L(SIG2)
  • Line Location: LETTER+17
Function Call: WRITE
  • Prompt: !,?4,SIG3
  • Condition for execution: $L(SIG3)
  • Line Location: LETTER+17
Function Call: WRITE
  • Prompt: !
  • Line Location: LETTER+18
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !!,?(80-$L(DIVNM))\2,DIVNM
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,?(80-$L(ADD1))\2,ADD1
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,?(80-$L(XX))\2,XX
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !,?4,SRNM,?65,SRDT,!,?4,PADD1
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !,?4,VAPA(3)
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !!!
  • Line Location: HEADER+10
Routine Call
  • DIC
  • Line Location:
    • PATSEL+3
Routine Call
  • DIR
  • Line Location:
    • PRINT+12
    • DIVISION+2
    • LST+2
    • LST+5
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^PS(52.91 - [#52.91] Classic Fileman Calls,  GET1^DIQ
^PS(52.92 - [#52.92] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(5 - [#5] CCADD+10
^PS(52.91 - [#52.91] DEQUE+4, DEQUE+6, SORTPAT+4, PRTLET+11*, LOAD
^PS(52.92 - [#52.92] PRINT+5, PRINT+8
^TMP($J PRINT+2!, DEQUE+1!, DEQUE+11*, SORTPAT+1!, SORTPAT+8*, PRTLET+3, PRTLET+6, PRTLET+8, LETTER+5, LETTER+14
, LETTER+16, EXIT+9!

Label References

Name Line Occurrences
DEVICE PRINT+13, PATIENT+4, DIVISION+7
DIV PRTLET+5
DIVISION PRINT+15
DSPPAT LST+2
EXIT PRINT+3, PRINT+17, PATIENT+3, DIVISION+6, DEVICE+4, PRTLET+16, PRTLET+20
GET1 GETDIV+3, GETDIV+5
GETDIV DIV, DIV+1
GETPAT LETTER+2
HEADER LETTER+4
LETTER PRTLET+10
PATIENT PRINT+14
PATSEL PATIENT+2, LST+6
PRTLET DEQUE+12, SORTPAT+9
SORTPAT DEQUE+2

Naked Globals

Name Field # of Occurrence
^( LETTER+5, LETTER+14, LETTER+16
^(0 DEQUE+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEVICE+2*
ADD1 LETTER+11, HEADER+4, GETDIV+1!, EXIT+3!
ADD2 LETTER+12, HEADER+5, GETDIV+1!, EXIT+3!
>> CC CCADD+7*
CHK EXIT+3!
CITY LETTER+13, HEADER+6, GETDIV+1!, EXIT+3!
>> DA0 SORTPAT+4*
DFN PATSEL+3*, PATSEL+5, PATSEL+7, PATSEL+9, PATSEL+11, PATSEL+12, PATSEL+14, PATSEL+16, PATSEL+17, LST+2*
, DSPPAT~, DSPPAT+2, DSPPAT+3, DSPPAT+5, DEQUE+4*, DEQUE+5, DEQUE+6, DEQUE+8, DEQUE+11, SORTPAT+3*
, SORTPAT+4, SORTPAT+8, PRTLET+7*, PRTLET+8*, PRTLET+10, PRTLET+11, LETTER~, LETTER+2, GETPAT~, GETPAT+2
, GETPAT+14, LOAD*
>> DIC PATSEL+2*
>> DIC("W" PATSEL+2*, PATSEL+3*
>> DIC(0 PATSEL+2*
DIR PRINT+12!, DIVISION+1!, LST+3!, LST+5!
DIR("A" LST+3*, LST+5*
DIR("B" LST+5*
DIR(0 PRINT+12*, DIVISION+1*, LST+3*, LST+5*
DIV EXIT+3!
DIVCNT PRTLET+2!, PRTLET+16, EXIT+3!
DIVCNT( PRTLET+4*, PRTLET+9*, PRTLET+17, PRTLET+18
DIVDA PRINT+5*, PRINT+6, PRINT+8*, PRINT+9, PRINT+10, PATSEL+14*, PATSEL+15, DEQUE+3*, DEQUE+4, DEQUE+11
, SORTPAT+4*, SORTPAT+8, PRTLET+3*, PRTLET+4, PRTLET+6, PRTLET+8, PRTLET+9, PRTLET+17*, PRTLET+18, DIV
, DIV+1, GETDIV~, GETDIV+3, GETDIV+5, EXIT+3!
DIVDA2 DIV+1*, EXIT+3!
DIVNM DSPPAT+1~, DSPPAT+2*, LETTER+6, HEADER+3, GETDIV+1!, EXIT+3!
DIVX EXIT+3!
DT PATSEL+10, PRTLET+11, PRTLET+13, LETTER+3, GETPAT+8
EXPDT PATSEL+11*, PATSEL+12, DSPPAT+1~, DSPPAT+3*, DSPPAT+4*, LETTER+3, GETPAT+1!, GETPAT+2*, EXIT+4!
EXPDTI PATSEL+9*, PATSEL+10, DEQUE+6*, DEQUE+7, SORTPAT+4*, SORTPAT+5, EXIT+4!
FAC EXIT+4!
FDA EXIT+4!
FILE GET1~, GET1+1, EXIT+4!
FLD GET1+1*, EXIT+4!
FLDX GETDIV+3*, GETDIV+5*, GET1~, GET1+1, EXIT+4!
FLIEN GET1~, GET1+1, EXIT+4!
I LST+2*, EXIT+5!
INST PRINT+5!, PRINT+8!, DIVISION+5!, DIVISION+6, DEVICE+5*, EXIT+5!
INST( PRINT+6*, PRINT+10*, DEQUE+3
IO LETTER+1, HEADER+1
IO("Q" DEVICE+4
IOF PRTLET+14, HEADER+2
LN LETTER+5*, LETTER+14*, LETTER+16*, EXIT+5!
LOCDA EXIT+5!
LTPDTI DEQUE+6*, DEQUE+9, DEQUE+10, SORTPAT+4*, SORTPAT+6, SORTPAT+7, EXIT+5!
MADD1 LETTER+7, LETTER+8, GETDIV+1!, EXIT+5!
MADD2 LETTER+9, GETDIV+1!, EXIT+5!
MCITY LETTER+10, GETDIV+1!, EXIT+5!
>> MSTATE LETTER+10
MZIP LETTER+10, GETDIV+1!, EXIT+5!
>> PADD1 GETPAT+11*, GETPAT+15*, CCADD+11*, HEADER+9
>> PADD2 GETPAT+11*, GETPAT+15*, CCADD+11*, HEADER+9
>> PADD3 GETPAT+11*, GETPAT+15*, CCADD+11*, HEADER+9
PAR EXIT+5!
PARAM PRINT+11!, DEVICE+5*, EXIT+5!
PARAM("LP" PRINT+13*, PATIENT+1*, DIVISION+3*, DEQUE+9, DEQUE+10, SORTPAT+6, SORTPAT+7
PARAM("SORT" PRINT+13*, PATIENT+1*, DIVISION+4*, DEQUE+2
PARDIV DIV+1, GETDIV+1!, EXIT+6!
PATLST PRINT+11!, PRINT+13*, PATIENT+3, PATSEL+1!, LST*, DEVICE+5*, EXIT+6!, LOAD!
PATLST( PATSEL+3*, PATSEL+7!, PATSEL+12!, PATSEL+17!, LST+2, SORTPAT+2, SORTPAT+3, LOAD*
PATNM LST+2*, EXIT+6!
>> PCITY GETPAT+12*, GETPAT+15*, CCADD+12*, HEADER+10
PHN1 LETTER+15, GETDIV+1!, EXIT+6!
PHN2 LETTER+15, GETDIV+1!, EXIT+6!
POP DEVICE+3, EXIT+6!
PRTDT DSPPAT+1~, DSPPAT+5*, DSPPAT+6*, EXIT+6!
PSOBADR GETPAT+13~, GETPAT+14*
PSOSTOP PRINT+7, EXIT+6!
PSOTEMP GETPAT+13~, GETPAT+14*, GETPAT+15
>> PSTATE GETPAT+15*
PTLNM GETPAT+5*, EXIT+6!
PTNM PATSEL+3*, PATSEL+6, PATSEL+7, PATSEL+12, PATSEL+17, DEQUE+5*, DEQUE+11, SORTPAT+2*, SORTPAT+3, SORTPAT+8
, PRTLET+6*, PRTLET+8, GETPAT+1!, GETPAT+2*, GETPAT+5, EXIT+6!
>> PTSTAT CCADD+12*
PTSTATE GETPAT+1!, GETPAT+12*, CCADD+10*, HEADER+10, EXIT+7!
PTXNM GETPAT+5*, EXIT+7!
>> PZIP GETPAT+12*, GETPAT+15*, CCADD+12*, HEADER+10
SEX GETPAT+9*, EXIT+7!
SIG1 LETTER+17, GETDIV+1!, EXIT+7!
SIG2 LETTER+17, GETDIV+1!, EXIT+7!
SIG3 LETTER+17, GETDIV+1!, EXIT+7!
SRANAME GETPAT+1!, GETPAT+6*, GETPAT+7*
>> SRCCADD CCADD+9*
SRDT PRTLET+13*, PRTLET+14, GETPAT+8*, HEADER+9, EXIT+7!
SRNAME EXIT+7!
SRNM GETPAT+1!, GETPAT+10*, HEADER+9
STATE LETTER+13, HEADER+6, GETDIV+1!, EXIT+7!
TITLE GETPAT+1!, GETPAT+7*, EXIT+7!
>> TMP( PRINT+2!
U PRTLET+11, GETPAT+12, CCADD+7, CCADD+12
VADM GETPAT+1!, EXIT+8!
VADM(1 GETPAT+6, GETPAT+10
VADM(5 GETPAT+7, GETPAT+9
VAPA GETPAT+1!, EXIT+8!
VAPA(1 GETPAT+11
VAPA(12 CCADD+4
VAPA(13 CCADD+11
VAPA(14 CCADD+11
VAPA(15 CCADD+11
VAPA(16 CCADD+12
VAPA(17 CCADD+10, CCADD+12
VAPA(18 CCADD+12
VAPA(2 GETPAT+11
VAPA(22 CCADD+7
VAPA(3 GETPAT+11, HEADER+9
VAPA(4 GETPAT+12
VAPA(5 GETPAT+12
VAPA(6 GETPAT+12
VAR GET1+1~*, EXIT+8!
>> X LST+2, GETPAT+6*
XFLD EXIT+8!
XX PRINT+7*, PATSEL+5*, PATSEL+6, PATSEL+15*, DEVICE+7*, PRTLET+4*, CCADD+7*, CCADD+8, HEADER+6*, HEADER+7
, EXIT+8!
>> Y PRINT+13, PRINT+14, PRINT+15, DIVISION+2, DIVISION+3, PATSEL+3, LST+6, PRTLET+13*, GETPAT+6*, GETPAT+7
, GETPAT+8*, HEADER+8*
YFLD EXIT+8!
YY EXIT+8!
ZIP LETTER+13, HEADER+6, GETDIV+1!, EXIT+8!
ZTDESC DEVICE+6*, EXIT+8!
>> ZTRTN DEVICE+6*
>> ZTSAVE( DEVICE+7*
ZTSK DEVICE+4!, DEVICE+10, EXIT+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