Routine: SDAMBAE3

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

SDAMBAE3 ;ALB/BOK/MJK - ADD/EDIT CON'T ;7/8/91 12:18 ;

Source Information

Source file <SDAMBAE3.m>

Call Graph

Call Graph Total: 1

Package	Total	Call Graph
CPT HCPCS Codes	1	($$CPT,$$CPTD)^ICPTCOD

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: 1

Package	Total	Caller Graph
Scheduling	1	CLINIC STOP CODE

Entry Points

Name	Comments	DBIA/ICR reference
DUP	; -- inp transform to check for duplicate CPTs in ^DD(409.51,21:25,0) ; variable '%' is passed and defined as the piece beinging edited
DUPQ
DUPMES	;
SCREEN	; -- screen logic for 409.51 proc fields ; finds status for effective date DA(1)	ICR #1993 Status: Retired Usage: Private
ID	; -- DIC("W") logic for amb proc look-ups	ICR #1993 Status: Retired Usage: Private

External References

Name	Field # of Occurrence
$$CPT^ICPTCOD	DUPMES+1, SCREEN+2, ID+2, ID+10
$$CPTD^ICPTCOD	ID+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?2,*7,"WARNING: '",$P(SDX,U,3),"' has already been entered for this",!?11,"patient on this VISIT DATE(Entry #",C,").",!!?11,"Procedure will be added again." Line Location: DUPMES+2
Function Call: WRITE	Prompt: ?4,$P(SDICPT1,U,3) Line Location: ID+4
Function Call: WRITE	Prompt: !?10," INACTIVE " Line Location: ID+5
Function Call: WRITE	Prompt: !?10,SDICPT(SDIX) Line Location: ID+8
Function Call: WRITE	Prompt: !?9 Line Location: ID+10

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SDV - [#409.5]	DUP+3
^SDV("AP"	DUP+3

Label References

Name	Line Occurrences
DUPMES	DUP+3
DUPQ	DUP+3

Naked Globals

Name	Field # of Occurrence
^("PR"	DUP+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DUP+3
C	DUP+3*, DUPQ!, DUPMES+2
>> D	ID+2
>> DA	DUP+3
>> DA(1	DUP+3, SCREEN+2
>> I	DUP+3*
SDICPT	ID+1~, ID+8*
SDICPT(	ID+8
SDICPT1	ID+1~, ID+2*, ID+3, ID+4, ID+5
SDIX	ID+1~, ID+8*
SDX	DUPMES+1~*, DUPMES+2, DUPMES+3!
U	DUP+3, DUPMES+2, SCREEN+2, ID+4, ID+5
>> X	DUP+3, DUPMES+1
>> Y	DUP+3*, SCREEN+2, ID+2, ID+8, ID+10