Routine: MCPOS0C

Information

MCPOS0C ;HIRMFO/RMP,DAD-ASTM file update ;7/24/96 08:39

Source file <MCPOS0C.m>

Name	Comments	DBIA/ICR reference
START(FILE)	;DESIGNED TO CREATE MCPMVA - Medicine View ASTM subfile
TMP(FILE,REC)	;FOR EVERY Template with ASTM pointers in the SUB OR ; SUBSUBfile structure GET ASTM ID's
STUFF(ROUTINE,TFILE)	;ROUTINE is set to "MCPMVA"
SCODE(STEMP,SDA,FILE)	;
ASTM(ENTRY)	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,";;",$P(^MCAR(FILE,REC,0),U)_"^"_TMP Line Location: START+10