Routine: PSOSPMDL

Information

PSOSPMDL ;BIRM/SJA - State Prescription Monitoring Program - Delete unexported batch ;09/20/20

Source Information

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
VA FileMan	3	^DIK $$GET1^DIQ ^DIR
List Manager	1	FULL^VALM1
Outpatient Pharmacy	1	INIT^PSOSPML1

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Kernel	1	^ORD(101
Outpatient Pharmacy	1	PSO SPMP1 DELETE BATCH

Entry Points

Name	Comments	DBIA/ICR reference
EN	; - entry point for the PSO SPMP1 DELETE BATCH protocol
DEL(BATCH)	; delete selected batch(es)
ENTER	;
BACK	; go back to the list
END

External References

Name	Field # of Occurrence
^DIK	DEL+6
$$GET1^DIQ	EN+10
^DIR	EN+6, DEL+5, ENTER+1
INIT^PSOSPML1	BACK+1
FULL^VALM1	EN+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN+3
Function Call: WRITE	Prompt: !!,"Nothing to be deleted!",$C(7) Line Location: EN+5
Function Call: WRITE	Prompt: ! Line Location: EN+6
Function Call: WRITE	Prompt: !!,?3,"Nothing selected to delete",! Line Location: EN+7
Function Call: WRITE	Prompt: !!,"Batch #",BATCH," may not be deleted; it has been exported to the state.",$C(7) Line Location: EN+11
Function Call: WRITE	Prompt: !! Line Location: DEL+2
Function Call: WRITE	Prompt: !,"No action taken for batch #",BATCH Line Location: DEL+5
Function Call: WRITE	Prompt: !,"Deleting batch #",BATCH," ...",! Line Location: DEL+6
Routine Call	DIR Line Location: EN+6 DEL+5 ENTER+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("PSOSPML1"	EN+5, EN+10

Label References

Name	Line Occurrences
BACK	EN+13
DEL	EN+12
END	EN+5, EN+7
ENTER	EN+5, EN+11, DEL+5, DEL+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	EN+1~
BATCH	EN+2~, EN+10*, EN+11, EN+12, DEL~, DEL+4, DEL+5, DEL+6
DA	DEL+6*!
DIC	EN+1~, EN+6!
DIK	DEL+6*!
DIR	EN+1~, EN+7!, DEL+1!, DEL+2!, DEL+5!, ENTER+1!
DIR("A"	EN+6, DEL+3, DEL+4, ENTER+1
DIR("B"	DEL+2*
DIR(0	EN+6, DEL+2, ENTER+1*
DIRUT	EN+1~, DEL+1!
DTOUT	EN+1~, EN+7, DEL+1!
DUOUT	EN+1~, EN+7
EXPORT	EN+2~, EN+10*, EN+11, EN+12
II	EN+2~, EN+9*, EN+10, EN+11
SELECT	EN+2~, EN+8*, EN+9, EN+10, EN+11
>> VALMBCK	END*
>> VALMBG	EN+6
>> VALMCNT	BACK+1
>> VALMLST	EN+6
X	EN+1~
Y	EN+1~, EN+7, EN+8, DEL+5

Customize PDF page

Package: Outpatient Pharmacy