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

Package: Outpatient Pharmacy

Routine: PSOTPRP1


Information

PSOTPRP1 ;BIR/MR - Report of Patients with TPB and Non-TBP Active Rx's ;12/03/03

Source Information

Source file <PSOTPRP1.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
VA Fileman 3 ^DIC  $$GET1^DIQ  ^DIR  
Outpatient Pharmacy 1 $$ACTIVE^PSOTPCUL  
Registration 1 DEM^VADPT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSO TPB PATIENT RX REPORT  

Entry Points

Name Comments DBIA/ICR reference
SORT ;- Sort the Data by Institution,Patient Name
EN ;
END
RPT ;- Print the Report
STMP ;- Set Temporary Global (^TMP)
DEV
PRINT ;- Read TMP global and Print Report
PAT ; - Selection of PATIENTS to print on the Report
HDR ; - Prints the Header

External References

Name Field # of Occurrence
^%ZIS DEV
^%ZTLOAD DEV+6
^DIC EN+14, PAT+6
$$GET1^DIQ PRINT+14, PRINT+15, STMP+3, STMP+5, STMP+22
^DIR HDR+4
$$ACTIVE^PSOTPCUL STMP+19
DEM^VADPT STMP+8
$$FMTE^XLFDT HDR+7
$$NOW^XLFDT HDR+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report prints entries from the TPB ELIGIBILITY file (#52.91)."
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"If multiple Institutions are selected, and some Institutions have data and"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,"some don't, only those Institutions that have data will print on the report.",!
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,?5,"You may select a single or multiple INSTITUTIONS,"
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !,?5,"or enter ^ALL to select all INSTITUTIONS.",!
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !!,?5,"You may select a single or multiple PATIENTS,"
  • Line Location: PAT+2
Function Call: WRITE
  • Prompt: !,?5,"or enter ^ALL to select all PATIENTS.",!
  • Line Location: PAT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !!?30,"*** NO DATA TO PRINT ***"
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,PAT
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !,PAT
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: ?$S(TYPE=0:30,1:42),RXEXT,?54,$E(OINAM,1,26),!
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !,"TOTAL ",INS,": ",PATCNT," Patient(s) ",VARXCNT," VA Prescriptions"
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: TPBRXCNT," TPB Prescriptions."
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: @IOF,!,"REPORT OF PATIENTS WITH TPB AND NON-TBP RX's ON FILE",?70,"Page: ",$J(PAG,3)
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,?48,"Run Date: "_$$FMTE^XLFDT($$NOW^XLFDT())
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,X
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,"PATIENT (LAST4SSN)",?30,"VA RX#",?42,"TPB RX#",?54,"DRUG"
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !,X
  • Line Location: HDR+11
Routine Call
  • DIC
  • Line Location:
    • EN+14
    • PAT+6
Routine Call
  • DIR
  • Line Location:
    • HDR+4
Routine Call
  • %ZIS
  • Line Location:
    • DEV

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
^PSDRUG - [#50] GET1^DIQ
^PSRX - [#52] GET1^DIQ
^PS(52.91 - [#52.91] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.91 - [#52.91] SORT+5
^PS(55 - [#55] STMP+14, STMP+16
^PSRX - [#52] STMP+16
^TMP("PSOTPB" END!, SORT+1!, PRINT+2, PRINT+6, PRINT+9, PRINT+11, PRINT+12, STMP+25*, STMP+28!

Label References

Name Line Occurrences
DEV PAT+7
END EN+16, EN+17, PAT+8, PAT+9, DEV, DEV+1, PRINT+2
HDR PRINT+3, PRINT+7, PRINT+13
PAT EN+15
PRINT SORT+4
RPT DEV+8
STMP SORT+5, SORT+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV!*
DFN EN+2~, SORT+1*, SORT+5*, SORT+8*, STMP+3, STMP+14, STMP+16
DIC EN+10~, EN+13*, PAT+1~, PAT+4*
DIC("A" EN+13*, PAT+4*
DIC("B" EN+14!, PAT+6!
DIC("S" PAT+5*
DIC(0 EN+13*, PAT+4*
DIR HDR+1~
DIR("A" HDR+4*
DIR(0 HDR+4*
>> DIRUT PRINT+6, PRINT+7, PRINT+9, PRINT+11, PRINT+12, PRINT+13, PRINT+19, HDR+2
DRGIEN EN+2~, PRINT+14*, PRINT+15
>> DTOUT EN+16, PAT+8
DUOUT EN+15!, EN+16, PAT+7!, PAT+8
I EN+10~, PAT+1~
INS EN+2~, PRINT+5*, PRINT+6*, PRINT+9, PRINT+11, PRINT+12, PRINT+20, STMP+3*, STMP+4, STMP+5
, HDR+8
INSNAM EN+2~, STMP+5*, STMP+25, STMP+28
INST EN+3~, HDR+8
IO("Q" DEV+1, DEV+2!
IOF HDR+6
IOP DEV!
IOSL PRINT+13, HDR+3
IOST HDR+2
OINAM EN+2~, PRINT+15*, PRINT+16
PAG EN+3~, PRINT+1*, HDR+1*, HDR+2, HDR+6
PAT EN+3~, PRINT+5*, PRINT+9*, PRINT+10, PRINT+11, PRINT+12, PRINT+13
PATCNT EN+3~, PRINT+8*, PRINT+18*, PRINT+20
PATNAM EN+3~, STMP+8*, STMP+10*, STMP+25, STMP+28
PATSSN EN+3~, STMP+9*, STMP+10
POP EN+2~, DEV!
PSOAINS EN+3~, EN+10*, EN+15*, STMP+4
PSOAPT EN+3~, PAT+1*, PAT+7*, SORT+4
PSOINS EN+10!, EN+15!, EN+17, DEV+5
PSOINS( EN+14*, STMP+4
PSOPAT EN+3~
PSOPT PAT+1!, PAT+7!, PAT+9, DEV+5
PSOPT( PAT+6*, SORT+8
RX EN+2~, PRINT+5*, PRINT+12*, PRINT+14, PRINT+15
RXEXT EN+2~, PRINT+14*, PRINT+16
RXIEN EN+2~, STMP+16*, STMP+19, STMP+22, STMP+25
SEQ EN+2~, STMP+13*, STMP+14*, STMP+16
TPBRXCNT EN+2~, PRINT+8*, PRINT+17*, PRINT+21, STMP+13*, STMP+23*, STMP+28
TYPE EN+2~, PRINT+5*, PRINT+11*, PRINT+12, PRINT+16, PRINT+17, STMP+22*, STMP+23, STMP+25
U STMP+8, STMP+9
VADM EN+2~
VADM(1 STMP+8
VADM(2 STMP+9
VAR DEV+2~, DEV+4*
VARXCNT EN+3~, PRINT+8*, PRINT+17*, PRINT+20, STMP+13*, STMP+23*, STMP+28
X EN+10~, EN+15, PAT+1~, PAT+7, HDR+1~, HDR+9*, HDR+11
Y EN+3~, EN+14, EN+17, PAT+6, PAT+9
>> ZTDESC DEV+3*
ZTDTH DEV+2!
ZTIO DEV+2!
>> ZTRTN DEV+2*
ZTSAVE DEV+2!
ZTSAVE( DEV+4*
ZTSAVE("PSOINS(" DEV+5*
ZTSAVE("PSOPT(" DEV+5*
ZTSK DEV!, DEV+2!, DEV+6!
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