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

Package: Outpatient Pharmacy

Routine: PSOTPCL


Information

PSOTPCL ;BIRM/PDW-EDIT TPC INSTITUTION LETTERS

Source Information

Source file <PSOTPCL.m>

Entry Points

Name Comments DBIA/ICR reference
EDIT ; Manual edit of institution letter information in 52.92
EDIT2
EXIT
PSTINT ;Take institution entries from 52.91 & stuff into 52.92
LOCDA ;Get physical and mailing address
SEL ;Select divisions
; returns arrays
; for testing
SELECT ; select range of divisioins
ALL
PG
INSTCHK() ; check required fields of INST in the array INST(INSTDA)
CHKINST(INSTDA) ; check institution in 52.92 for required edited fields
PTCHK() ; Check file 52.91 for INST fields and 52.92 for INSTUTITONs present

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EDIT+2
Function Call: WRITE
  • Prompt: !," Transitional Pharmacy Care"
  • Line Location: EDIT+3
Function Call: WRITE
  • Prompt: !," Edit Institution Letter Information"
  • Line Location: EDIT+4
Function Call: WRITE
  • Prompt: !!,"(You may add a NEW Institution at this point.)",!
  • Line Location: EDIT2+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: !!,"SELECTION OF INSTITUTION(S)",!
  • Line Location: SEL+3
Function Call: WRITE
  • Prompt: !,"Sorry, data for that institution is incomplete",!
  • Line Location: SELECT+4
Function Call: WRITE
  • Prompt: !,"None Selected - Quitting",!
  • Line Location: ALL+1
Function Call: WRITE
  • Prompt: !!,"You have selected:",!
  • Line Location: ALL+2
Function Call: WRITE
  • Prompt: !,?5,INST(DIV)
  • Line Location: ALL+2
Function Call: WRITE
  • Prompt: !,"Sorry, required field(s) are missing from ",INST(INSTDA)
  • Line Location: INSTCHK+2
Function Call: WRITE
  • Prompt: !,"= = = = ="
  • Line Location: INSTCHK+4
Function Call: WRITE
  • Prompt: !!,"The above institution(s) will need to have their letter information edited",!,"before the letters for that facility can be printed",!
  • Line Location: INSTCHK+5
Function Call: WRITE
  • Prompt: !!,$$GET1^DIQ(4,INSTDA,.01),!," is missing from the TRANSITIONAL RX INSTITUTION LETTERS file #52.92",!,"and is being added."
  • Line Location: PTCHK+5
Function Call: WRITE
  • Prompt: !,"= = = = ="
  • Line Location: PTCHK+8
Function Call: WRITE
  • Prompt: !!,"The above institution(s) will need to have their letter information edited",!,"before the letters for that facility can be printed",!
  • Line Location: PTCHK+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
^PS(52.92 - [#52.92] Classic Fileman Calls,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call