Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call