Routine: PSOP452P

Information

PSOP452P ;ALB/RTW - PS RX NUMBERING WARNING POST INSTALL ; 11/24/16 1:54pm

Source file <PSOP452P.m>

Package	Total	Call Graph
Kernel	3	$$LKOPT^XPDMENU MES^XPDUTL RESCH^XUTMOPT
VA FileMan	3	C^%DTC $$FIND1^DIC (,UPDATE,WP)^DIE

Name	Comments	DBIA/ICR reference
TASK	;
MAILGRP	;Need to check for a pre existing mail group called PHARMACY SURPERVISORS if it exists do nothing.

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"ERROR: Option "_PSONM_" not found",! Line Location: TASK+4
Function Call: WRITE	Prompt: !,"The '"_PSONM_"' option is scheduled to run at: " Line Location: TASK+7
Function Call: WRITE	Prompt: !,"The PHARMACY SUPERVISORS Mail Group already exists, nothing created!" Line Location: MAILGRP+3
Function Call: WRITE	Prompt: ! Line Location: MAILGRP+19
Routine Call	DIC Line Location: MAILGRP+2
Routine Call	DIE Line Location: TASK+10
Routine Call	DIE Line Location: MAILGRP+12
Routine Call	DIE Line Location: MAILGRP+15

FileNo	Call Tags
^DIC(19.2 - [#19.2]	Classic Fileman Calls
^XMB(3.8 - [#3.8]	FIND1^DIC, WP^DIE

Name	Line Occurrences (* Changed, ! Killed)
^DIC(19.2 - [#19.2]	TASK+9
^XMB(3.8 - [#3.8]	MAILGRP+13

Name	Line Occurrences
MAILGRP	PSOP452P+10
TASK	PSOP452P+10

Name	Field # of Occurrence
DA	TASK+1~, TASK+10*
DIE	TASK+1~, TASK+10*
DR	TASK+1~, TASK+10*
DT	TASK+6
FDA	MAILGRP+5~, MAILGRP+16!
FDA(	MAILGRP+7, MAILGRP+8, MAILGRP+9, MAILGRP+10, MAILGRP+11*
FDA2	MAILGRP+5~
FDAIEN	MAILGRP+16!
MSG	MAILGRP+5~, MAILGRP+17, MAILGRP+21
PSOAOPTB	TASK+1~, TASK+9*, TASK+10
PSOAOPTN	TASK+1~
PSODESCR	MAILGRP+5~
PSOERR	TASK+1~, TASK+8
PSOIEN	TASK+1~, TASK+3*, TASK+9, MAILGRP+5~
PSOMG	MAILGRP+1~, MAILGRP+2*, MAILGRP+3, MAILGRP+4
PSOMGRP	MAILGRP+5~, MAILGRP+6*, MAILGRP+7
PSOMSG	MAILGRP+1~
PSOMSG(1	MAILGRP+14*
PSONIEN	MAILGRP+1~, MAILGRP+13*, MAILGRP+15
PSONM	TASK+1~, TASK+2*, TASK+3, TASK+4, TASK+7, TASK+8
PSOORG	MAILGRP+5~, MAILGRP+6*, MAILGRP+9, MAILGRP+10
PSORX	MAILGRP+1~, MAILGRP+18, MAILGRP+20, MAILGRP+21, MAILGRP+22
PSOTYPE	MAILGRP+5~, MAILGRP+6*, MAILGRP+8
PSOWHEN	TASK+1~, TASK+6*, TASK+8
X	TASK+1~, TASK+6
>> X1	TASK+6*
>> X2	TASK+6*