Routine: SDCO20

Information

SDCO20 ;ALB/RMO - Process One Classification - Check Out;30 DEC 1992 1:10 pm

Source file <SDCO20.m>

Package	Total	Call Graph
VA Fileman	4	FILE^DICN ^DIE (,IX1)^DIK ^DIR
Scheduling	2	$$VAL^SDCODD COMDT^SDCODEL

Package	Total	Caller Graph
Scheduling	2	SDAPICO1 SDCO2

Name	Comments	DBIA/ICR reference
FILEQ
NEWQ
VAL(SDCTI,SDCT0,SDATA)	;Get Outpatient Classification
ONEQ
NEW(SDCTI,SDOE)	;Add a New Outpatient Classification ; Input -- SDCTI Appointment Outpatient Type file IEN ; SDOE Outpatient Encounter file IEN ; Output -- Outpatient Classification file IEN
ONE(SDCTI,SDATA,SDOE,SDCOQUIT)	;Process One Classification ; Input -- SDCTI Outpatient Classification Type IEN ; SDATA Null or 409.42 IEN^Internal Value^1=n/a^1=unedt ; SDOE Outpatient Encounter file IEN ; Output -- SDCOQUIT User entered '^' or timeout
REASK
VALQ
FILE(SDCNI,SDCNV)	;File Outpatient Classification ; Input -- SDCNI Outpatient Classification IEN ; SDCNV Outpatient Classification Value ; Output -- File Outpatient Classification

Name	Line Occurrences (* Changed, ! Killed)
^DG(43 - [#43]	REASK+6
^SCE - [#409.68]	ONE+15, VAL+2
^SD(409.41 - [#409.41]	ONE+6, REASK+3
^SDD(409.42 - [#409.42]	NEW+7*

Name	Field # of Occurrence
DA	ONE+9, FILE+4~, FILE+6, NEW+4~, NEW+7*
DD	NEW+4~
DIC	NEW+4~, NEW+5*
DIC(0	NEW+5*
DIE	FILE+4~, FILE+6*
DIK	ONE+9, NEW+4~, NEW+5
DINUM	NEW+4~
DIR	VAL+1~
DIR("?"	REASK+4*
DIR("A"	REASK*
DIR("B"	REASK+1*
DIR(0	REASK+2, REASK+3
DIRUT	REASK+8!, REASK+9, VALQ!
DLAYGO	NEW+4~, NEW+5*
DO	NEW+4~
DR	FILE+4~, FILE+6*
DTOUT	REASK+6, VALQ!
DUOUT	REASK+8!, VALQ!
SDATA	ONE~, ONE+7, ONE+9, ONE+11, ONE+12, ONE+13, ONE+15, ONE+16, VAL~, REASK+1 , REASK+6
SDCNI	FILE~, FILE+5, FILE+6, NEW+4~, NEW+6, NEW+7, NEWQ
SDCNV	FILE~
SDCOQUIT	ONE~, ONE+14*
SDCT0	ONE+5~, ONE+6*, ONE+8, ONE+12, ONE+13, ONE+15, VAL~, REASK, REASK+1, REASK+2 , REASK+6
SDCTI	ONE~, ONE+6, ONE+12, ONE+13, VAL~, VAL+2, REASK+1, REASK+3, REASK+4, FILE+5 , NEW~, NEW+5
SDOE	ONE~, ONE+15, VAL+2, FILE+5, NEW~, NEW+7
SDVAL	ONE+5~, ONE+13*, ONE+14, ONE+16
X	FILE+4~, NEW+4~, NEW+5*
Y	VAL+1~, VAL+3, REASK+6, REASK+7, REASK+9, VALQ+1, NEW+4~, NEW+6