Routine: SCAPMC20

Information

SCAPMC20 ;ALB/REW - Team APIs:APPTTM ; 20 Mar 1996

Source file <SCAPMC20.m>

Package	Total	Call Graph
Scheduling	2	(ERR,INIT)^SCAPMCU1 $$GETPCTM^SCAPMCU2
VA Fileman	1	(FILE,UPDATE)^DIE

Package	Total	Caller Graph
Scheduling	3	SCMCBK1 SCMCDD1 SCMCPM1

Name	Comments	DBIA/ICR reference
ACOUTPT(DFN,SCFIELDA,SCERR)	;add/edit a record in OUTPATIENT PROFILE #404.41 ; input: ; DFN = pointer to PATIENT file (#2) ; SCFIELDA= array of additional fields to be added ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J)]
APTTMQ
MAKEMANY(DFNA,SCOLDASS,SCBADASS,SCNEWASS)	;Not supported for use by PCMM Only ; DFNA - DFN ARRAY ; SCOLDASS - Subset of DFNA that were previously assigned ; SCBADASS - Subset of DFNA that could not be assigned ; SCNEWASS - Subset of DFNA that were newly assigned ; Return: total^new^old^bad ; Note: No input error checking!!
PTPCNOTM(SCOUTA,SCDATE)	;Not Supported For Use by PCMM Only ; SCOUTA - Output array of DFNs that are PC but no Team Now
OKDATA()	;setup/check variables

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	OKDATA+4, PTPCNOTM+6
^SCPT(404.41 - [#404.41]	ACOUTPT+17, PTPCNOTM+4
^TMP("SCMC"	PTPCNOTM+5

Name	Field # of Occurrence
^(	PTPCNOTM+4

Name	Field # of Occurrence
DFN	ACOUTPT~, ACOUTPT+17, ACOUTPT+22, ACOUTPT+25, ACOUTPT+26, ACOUTPT+32, APTTMQ, OKDATA+4, OKDATA+5, MAKEMANY+7~ , MAKEMANY+9, MAKEMANY+10, MAKEMANY+12, MAKEMANY+14, MAKEMANY+18, MAKEMANY+21, PTPCNOTM+2~, PTPCNOTM+3, PTPCNOTM+4, PTPCNOTM+5 , PTPCNOTM+6
DFNA	MAKEMANY~, MAKEMANY+10
SC	ACOUTPT+15~
SC(	ACOUTPT+22, ACOUTPT+26, ACOUTPT+30*
SCBADASS	MAKEMANY~, MAKEMANY+14
SCBADCNT	MAKEMANY+7~, MAKEMANY+8, MAKEMANY+15, MAKEMANY+23
SCBADOUT	MAKEMANY+7~
SCDATE	PTPCNOTM~, PTPCNOTM+6
SCERR	ACOUTPT~, ACOUTPT+23, ACOUTPT+31, ACOUTPT+32, APTTMQ, OKDATA+6
SCESEQ	ACOUTPT+15~, OKDATA+6
SCEXIST	ACOUTPT+14~, ACOUTPT+17, ACOUTPT+18, ACOUTPT+34, APTTMQ
SCFIELDA	ACOUTPT~, ACOUTPT+19, ACOUTPT+21, ACOUTPT+22, ACOUTPT+27, ACOUTPT+29, ACOUTPT+30
SCFLD	ACOUTPT+15~, ACOUTPT+20, ACOUTPT+21, ACOUTPT+22, ACOUTPT+28, ACOUTPT+29, ACOUTPT+30
SCIEN	ACOUTPT+15~, ACOUTPT+32!
SCIEN(1	ACOUTPT+25*, ACOUTPT+32
SCNEWASS	MAKEMANY~, MAKEMANY+18
SCNEWCND	MAKEMANY+7~
>> SCNEWCNT	MAKEMANY+8, MAKEMANY+19, MAKEMANY+23
SCOK	OKDATA+1~, OKDATA+2, OKDATA+3, OKDATA+4, OKDATA+7
SCOLDASS	MAKEMANY~, MAKEMANY+21
SCOLDCNT	MAKEMANY+7~, MAKEMANY+8, MAKEMANY+22, MAKEMANY+23
SCOUTA	PTPCNOTM~, PTPCNOTM+6
SCOUTFLD	MAKEMANY+7~
SCOUTFLD(	MAKEMANY+11*
SCPARM	ACOUTPT+15~, OKDATA+6
SCPARM("PATIENT"	OKDATA+5*
SCPC	PTPCNOTM+2~, PTPCNOTM+4*
SCX	MAKEMANY+7~, MAKEMANY+12*, MAKEMANY+13, MAKEMANY+17
U	APTTMQ, MAKEMANY+17, MAKEMANY+23, PTPCNOTM+6