Routine: PSGAMSA

Name	Comments	DBIA/ICR reference
ENLOG	;
DIK	;
CLEANUP	; Clean up partial orders having no provider or status.
ENOPC	; outpatient entry point
OUT	;
EN(DFN,PSGORD,PSGORD1,PSGLOG)	; ; PSGLOG: 2 - pre-exchange needs, 3 - extra units dispensed, 4 - returns	ICR #2145 Status: Active Usage: Private
ENPLF(DFN,PSGORD,PSGDRG,PSGX,PSGDRGC,PSGLOG,PSGWARD,PSGPRVR,PSGPLFDT)	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,DFN," ",ON Line Location: CLEANUP+1

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	OUT+2
^PS(55 - [#55]	EN+3, EN+7, ENLOG+1, ENLOG+2, ENLOG+3, ENLOG+4, ENLOG+5*, ENLOG+6, CLEANUP+1, DIK+2!
^PS(57.6 - [#57.6]	ENOPC+1, ENOPC+2, ENOPC+4, ENOPC+5, ENOPC+6, ENOPC+7, ENOPC+8, ENOPC+9, ENOPC+10
^PSDRUG - [#50]	EN+7

Name	Field # of Occurrence
^(	CLEANUP+1
^(0	EN+7, ENOPC+2, ENOPC+4, ENOPC+5, ENOPC+6, ENOPC+7, ENOPC+8, ENOPC+9, ENOPC+10*
^(1	EN+7
^(660	EN+7

Name	Field # of Occurrence
%	EN+2~, ENLOG+3, ENLOG+5
DA	ENPLF+1~
DFN	EN~, EN+3, EN+7, OUT+3, ENPLF~, ENLOG+1, ENLOG+2, ENLOG+3, ENLOG+4, ENLOG+5 , ENLOG+6, CLEANUP+1*, DIK+2
DT	OUT+3, ENOPC+1, ENOPC+2, ENOPC+4, ENOPC+5, ENOPC+6, ENOPC+7, ENOPC+8, ENOPC+9, ENOPC+10
DUZ	ENLOG+5
ECUD	EN+2~, OUT+3*
LOG	EN+2~, ENPLF+1~, ENLOG+3*, ENLOG+4, ENLOG+5, ENLOG+6
ND	EN+2~, ENOPC+2, ENOPC+3, ENOPC+4, ENOPC+5, ENOPC+7, ENOPC+9, ENOPC+10, ENPLF+1~, ENLOG+2 , ENLOG+3, ENLOG+4*
>> ON	CLEANUP+1*, DIK+2
PSGAMSF	EN+2~, EN+3*, OUT+3, ENOPC+4
PSGDRG	EN+2~, EN+7*, OUT+1, OUT+3, ENOPC+1, ENOPC+2, ENOPC+3, ENOPC+4, ENOPC+5, ENPLF~ , ENLOG+5
PSGDRGC	EN+2~, EN+7*, OUT+3, ENOPC+4, ENPLF~, ENLOG+5
PSGLOG	EN~, EN+3, ENPLF~, ENLOG+5
PSGORD	EN~, EN+3, EN+7, OUT+3, ENPLF~, ENLOG+1, ENLOG+2, ENLOG+3, ENLOG+4, ENLOG+5 , ENLOG+6
PSGORD1	EN~, EN+7
PSGPLFDT	ENPLF~, ENLOG+1, ENLOG+3, ENLOG+5
PSGPRVR	EN+2~, EN+7*, OUT+1, OUT+3, ENOPC+1, ENOPC+2, ENOPC+4, ENOPC+5, ENOPC+6, ENOPC+7 , ENPLF~, ENLOG+5
PSGSTRT	EN+2~, EN+3*, OUT+3
PSGWARD	EN+2~, EN+3, EN+6, EN+7*, OUT+1, OUT+3, ENOPC+1, ENOPC+2, ENOPC+4, ENOPC+5 , ENOPC+6, ENOPC+7, ENOPC+8, ENOPC+9, ENPLF~, ENLOG+5
PSGX	EN+2~, EN+3*, EN+7, OUT+3, ENOPC+4, ENPLF~, ENLOG+5
U	CLEANUP+1
VAIN	EN+2~
VAIP	EN+2~, EN+6!
VAIP("D"	EN+6*
VAIP(17	EN+6
VAIP(5	EN+6
>> X	EN+3, OUT+2, ENOPC+2, ENOPC+3, ENOPC+4, CLEANUP+1

Information