Routine: SDCO3

Information

SDCO3 ;ALB/RMO - Provider - Check Out;08 DEC 1992 4:05 pm

Source file <SDCO3.m>

Package	Total	Call Graph
Scheduling	6	$$CLINIC^SDAMU BLD^SDCO $$PR^SDCO31 $$REQ^SDM1A GETPRV^SDOE $$NEW^SDPCE
PCE Patient Care Encounter	1	$$INTV^PXAPI
VA Fileman	1	^DIR

Package	Total	Caller Graph
Scheduling	9	SDCO0 SDCO2 SDCO4 SDCO6 SDCO7 SDCO9 SDCOAM SDCODEL SDCOM
Integrated Billing	4	IBTOBI4 IBTRE5 IBTRED0 IBTRV2

Name	Comments	DBIA/ICR reference
PRASK(SDOE)	;Ask Provider on Check Out ; Input -- SDOE Outpatient Encounter IEN ; Output -- 0=No, 1=Yes/Required, 2=Yes/Not Required
EN	;Entry point for SDCO PROVIDER protocol ; Input -- SDOE
EDITOK(SDOE,SDMODE)	; -- ok to edit? ; input: SDOE := ien of 409.68 [required] ; SDMODE := 1 -- interactive ; 0 -- silent [required]
EDITOKQ
SET(SDOE)	;Set-up Provider Array for Outpatient Encounter ; Input -- SDOE Outpatient Encounter IEN ; Output -- SDPRY Provider Array Subscripted by a Number ; SDCNT Number of Array Entries	ICR #403 Status: Retired Usage: Private
OLDMSG	; -- display message to user
ENQ
SETQ
LIST(SDPRY)	;List Provider Array ; Input -- SDPRY Provider Array Subscripted by a Number ; Output -- List Provider Array	ICR #403 Status: Retired Usage: Private
PRASKQ

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: LIST+4
Function Call: WRITE	Prompt: !?2,I," ",$$PR^SDCO31(+$P(SDPRY(I),"^",2)) Line Location: LIST+5
Function Call: WRITE	Prompt: !!,">>> Editing and deleting old encounters not allowed.",! Line Location: OLDMSG+1
Routine Call	DIR Line Location: OLDMSG+5

Name	Line Occurrences (* Changed, ! Killed)
^SCE - [#409.68]	EN+10, PRASK+4, EDITOK+8

Name	Field # of Occurrence
DIR	EDITOK+7~, OLDMSG+2~
DIR("A"	OLDMSG+4*
DIR(0	OLDMSG+3*
I	LIST+3~, LIST+5*
SDCL	PRASK+3~, PRASK+4*, PRASK+6, PRASK+9
>> SDCNT	SET+7, SET+10, SET+11
SDHL	EN+9~
SDMODE	EDITOK~, EDITOK+9
SDOE	EN+6, EN+10, PRASK~, PRASK+4, SET~, SET+6, EDITOK~, EDITOK+8
SDOE0	PRASK+3~, PRASK+4*, PRASK+5, PRASK+8
SDOK	EDITOK+7~, EDITOK+8*, EDITOK+9, EDITOKQ
SDORG	PRASK+3~, PRASK+4*, PRASK+6, PRASK+10
SDPRVS	SET+4~
SDPRVS(	SET+8, SET+9
SDPRY	SET+5!, LIST~
SDPRY(	SET+11*, LIST+5
SDVA200	SET+4~, SET+9*, SET+11
SDVISIT	EN+9~, EN+10*, EN+11
SDVPRV	SET+4~, SET+7, SET+8, SET+9, SET+11
U	EN+10, EDITOK+8
>> VALMBCK	EN+3, EN+12
>> X	EN+11*
Y	PRASK+3~, PRASK+8, PRASK+9, PRASK+10*, PRASKQ