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

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

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

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ
^PS(52.92 - [#52.92]	Classic Fileman Calls, GET1^DIQ

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

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

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOTPCL

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

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

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*

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed