Routine: BOPTSD

Information

BOPTSD ;IHS/ILC/ALG/CIA/PLS - Send All Active Inpatients to Interface;09-Feb-2006 15:35;DU

Source file <BOPTSD.m>

Package	Total	Call Graph
VA Fileman	2	^DIC ^DIR
IHS Omnicell Pyxis Interface	1	(ADT,INIT,NEW)^BOPCAP

Name	Comments	DBIA/ICR reference
ALL	; send all active patients
RUN	;xmit to interface
ONE	; EP - transmit one patient to interface
DONE
LOOP2
LOOP

Name	Line Occurrences
Function Call: WRITE	Prompt: !,LOOP," - ",DFN Line Location: LOOP+2
Function Call: WRITE	Prompt: !,"DONE" Line Location: DONE+0
Function Call: WRITE	Prompt: " *" Line Location: RUN+2
Function Call: WRITE	Prompt: !,"Not a pharmacy patient.",$C(7) Line Location: ONE+5
Routine Call	DIC Line Location: ONE+2
Routine Call	DIR Line Location: ONE+3

Name	Field # of Occurrence
ANS	ONE+1~*
BOPDFN	RUN+1*, ONE+1~
>> BOPN0	LOOP2+1*, LOOP2+3
>> BOPO	LOOP2*, LOOP2+1, LOOP2+2, LOOP2+4
>> BOPQ	RUN+2
CHK	ALL+1*, LOOP, ONE+1~
DFN	LOOP+1, LOOP+2, RUN+1, LOOP2, LOOP2+1, LOOP2+4, ONE+1~, ONE+2, ONE+5
DIC	ONE+1~, ONE+2*
DIC(0	ONE+2*
DIR	ONE+3!
DIR("A"	ONE+3*
DIR("B"	ONE+3*
DIR(0	ONE+3*
>> DIRUT	ONE+3
LOOP	ALL+1, LOOP, LOOP+1, LOOP+2, ONE+1~
>> PSGORD	LOOP2+2*
>> PSGP	LOOP2*
PSPG	RUN+1*, ONE+1~
U	LOOP2+3, LOOP2+4
Y	ONE+1~*, ONE+2, ONE+4