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

Package: Outpatient Pharmacy

Routine: PSOTPCL


Information

PSOTPCL ;BIRM/PDW-EDIT TPC INSTITUTION LETTERS

Source Information

Source file <PSOTPCL.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 5 ^DDS  ^DIC  UPDATE^DIE  $$GET1^DIQ  ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Outpatient Pharmacy 2 PSO TPB INSTITUTION LETTERS  PSOTPCLP  

Entry Points

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

External References

Name Field # of Occurrence
^DDS EDIT2+7
^DIC EDIT2+4, SELECT+3
UPDATE^DIE LOCDA+16
$$GET1^DIQ LOCDA+5, LOCDA+6, SEL+7, SELECT+5, CHKINST+3, CHKINST+4, PTCHK+5
^DIR SEL+9, ALL+3, PG, INSTCHK+6, PTCHK+10

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
Routine Call
  • DIE
  • Line Location:
    • LOCDA+16
Routine Call
  • DDS
  • Line Location:
    • EDIT2+7
Routine Call
  • DIC
  • Line Location:
    • EDIT2+4
    • SELECT+3
Routine Call
  • DIR
  • Line Location:
    • SEL+9
    • ALL+3
    • PG
    • INSTCHK+6
    • PTCHK+10

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.91 - [#52.91] PSTINT+1, PTCHK+2
^PS(52.92 - [#52.92] LOCDA+1, SEL+5, PTCHK+3

Label References

Name Line Occurrences
$$CHKINST SEL+6, SELECT+4, INSTCHK+2, CHKINST+3
ALL SEL+10
EDIT2 EDIT2+8
EXIT EDIT2+5
LOCDA PSTINT+1, PTCHK+6
PG ALL+2
PSTINT EDIT2+1
SEL ALL+6
SELECT SEL+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CHK PTCHK+1~*, PTCHK+4*, PTCHK+7, PTCHK+11
DA EDIT2+2!, EDIT2+6*
DDSFILE EDIT2+6*, EXIT!
DIC EDIT2+2!, EDIT2+3*, EXIT!, SELECT+1!, SELECT+2*
DIC("A" EDIT2+3*
DIC("W" EDIT2+3*, SELECT+3*
DIC(0 EDIT2+3*, SELECT+2*
DIE EXIT!
DIR SEL+8!, SEL+9!, ALL+4!, PG!, INSTCHK+6!, PTCHK+10!
DIR("A" ALL+3*, PG*, PTCHK+10*
DIR("B" ALL+3*
DIR(0 SEL+8*, ALL+3*, PG*, INSTCHK+6*, PTCHK+10*
>> DIV SEL+7*, ALL+2*
DIVDA SEL+4!, SEL+5*, SEL+6, SEL+7
DIVNM SEL+4!
DIVX SEL+4!
DLAYGO EDIT2+3*, EDIT2+4!
DR EDIT2+6*, EXIT!
FAC LOCDA+2~, INSTCHK+1~*, INSTCHK+2*, INSTCHK+3, INSTCHK+8, CHKINST+1~*, CHKINST+4*, CHKINST+5, PTCHK+6~
FAC( LOCDA+5*, LOCDA+6*, LOCDA+14
FDA LOCDA+2~
FDA( LOCDA+14*, LOCDA+15*
>> I SEL+5*
>> II ALL+2*
INST SEL+12!, SELECT+1!, ALL+1*, PTCHK+1~, PTCHK+6~
INST( SEL+7*, SELECT+5*, ALL+2, INSTCHK+2
INSTDA INSTCHK+2*, CHKINST~, CHKINST+3, CHKINST+4, PTCHK+1~*, PTCHK+2*, PTCHK+3, PTCHK+5, PTCHK+6
IOF EDIT+2, EXIT+1
>> LOCDA PSTINT+1*, LOCDA+1, LOCDA+5, LOCDA+6, LOCDA+15, PTCHK+6*
>> LOCDA(1 LOCDA+15*
PAR CHKINST+1~, CHKINST+3*
PSOSTOP ALL!, ALL+2, PG+1*, INSTCHK+7*
U LOCDA+13
>> X PG+1, INSTCHK+7
>> XFLD LOCDA+13*, LOCDA+14
XX LOCDA+5*, LOCDA+6*, LOCDA+12*, LOCDA+13, INSTCHK+2*, CHKINST+1~, CHKINST+3*, CHKINST+4*
>> Y EDIT2+5, EDIT2+6, SEL+10, SEL+11, SELECT+3, SELECT+4, SELECT+5, ALL+5
>> YFLD LOCDA+13*, LOCDA+14
>> YY CHKINST+4*
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