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

Package: Outpatient Pharmacy

Routine: PSOTPCLP


Information

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

Source Information

Source file <PSOTPCLP.m>

Entry Points

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

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

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