Routine: SCMCCV5

Information

SCMCCV5 ;ALB/JAM;Allow edits of invalid .03 field in 404.52;12/1/99@1055

Source file <SCMCCV5.m>

Package	Total	Call Graph
Scheduling	2	$$PRTP^SCAPMC $$USEUSR^SCMCTPU
VA Fileman	2	^DIE ^DIR

Package	Total	Caller Graph
Scheduling	1	SD53A204

Name	Comments	DBIA/ICR reference
DSP(DIEN)	;Display record from file 404.52 for DIEN entry
EDIT	;Entry point for cnahes to .03 field in file 404.52
LSTIEN	;Display a list of .03 entries stored in ^TMP("PCMM PRACTITIONER",$J
REP
PROCESS	;Get list of invalid .03 field in file 404.52, select and then edit
HDR(FL)	;Print header for list of invalid entries in file 404.52
GETIEN()	;Select IEN from FILE 404.52
TPHIS(SCIEN)	;Display complete position history for team position
LST()	;Returns list of invalid entries from file #404.52 for field .03

Name	Line Occurrences
Function Call: WRITE	Prompt: "No Entries found" Line Location: PROCESS+4
Function Call: WRITE	Prompt: !,?20,"To Edit, enter an IEN number from the displayed list" Line Location: LSTIEN+9
Function Call: WRITE	Prompt: @IOF Line Location: HDR+1
Function Call: WRITE	Prompt: !,?23,$S(FL:"LIST OF",1:"EDITING")_" INVALID PRACTITIONER ENTRY",!! Line Location: HDR+2
Function Call: WRITE	Prompt: ?20,"IEN",?27,"Effective Date",?44,"Team",?68,"Status",! Line Location: HDR+4
Function Call: WRITE	Prompt: ?20,"---",?27,"--------------",?44,"----",?68,"------",! Line Location: HDR+5
Function Call: WRITE	Prompt: ?20,DIEN,?27,SCDT,?44,$E(SCTP,1,20),?68,SCSTA,! Line Location: DSP+6
Function Call: WRITE	Prompt: !?25,"TEAM POSITION HISTORY" Line Location: TPHIS+6
Function Call: WRITE	Prompt: !?10,"Effective Date",?30,"Staff",?54,"Status",! Line Location: TPHIS+7
Function Call: WRITE	Prompt: ?10,$P(SCY,U,4),?30,$E(SCNAM,1,20),?54,$P(SCY,U,2) Line Location: TPHIS+12
Function Call: WRITE	Prompt: " ***" Condition for execution: SCNAM="" Line Location: TPHIS+13
Function Call: WRITE	Prompt: ! Line Location: TPHIS+13
Routine Call	DIE Line Location: REP+2
Routine Call	DIR Line Location: REP+9 GETIEN+4 LSTIEN+7 TPHIS+10

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DSP+3
^SCTM(404.52 - [#404.52]	DSP+3, TPHIS+2, LST+12, LST+13
^SCTM(404.57 - [#404.57]	DSP+4
^TMP("PCMM PRACTITIONER"	EDIT+5!, PROCESS+2!, LSTIEN+4, LST+14, LST+16, LST+17
^USR(8930.3 - [#8930.3]	LST+15
^VA(200 - [#200]	LST+14

Name	Field # of Occurrence
C	TPHIS+1~, TPHIS+3, TPHIS+9, TPHIS+10
DA	EDIT+5!, REP+1!*, REP+6!
DIE	EDIT+5!, REP+1!*
DIEN	DSP~, DSP+2, DSP+3, DSP+6
DIR	REP+6!, REP+9!, GETIEN+1~
DIR("?"	REP+8, GETIEN+2
DIR("A"	REP+7, GETIEN+2, LSTIEN+6*
DIR("B"	REP+7*
DIR(0	REP+7, GETIEN+3, LSTIEN+6, TPHIS+10
DIROUT	EDIT+5!, REP+6!, REP+10
DIRUT	REP+6!, GETIEN+4
DR	EDIT+5!, REP+1!, REP+2*!
DTOUT	EDIT+5!, REP+3, REP+6!, REP+10
DUOUT	EDIT+5!, REP+3, REP+6!, REP+10
FL	HDR~, HDR+2, HDR+3
FND	PROCESS+1~, PROCESS+3*, PROCESS+4
IEN	LSTIEN+1~, LSTIEN+2, LSTIEN+4, LSTIEN+8, LST+10~, LST+11, LST+12, LST+13, LST+14, LST+16
IOF	HDR+1
IOSL	LSTIEN+5
PRAC	LST+10~, LST+13*, LST+14, LST+15
SCDAT	DSP+1~, DSP+3*, DSP+4, DSP+5
SCDT	DSP+1~, DSP+3*, DSP+6
SCEND	EDIT+1~, EDIT+3, EDIT+4, PROCESS+4, PROCESS+6, REP+3
SCIEN	PROCESS+1~, PROCESS+6*, REP, REP+1, TPHIS~, TPHIS+2
SCNAM	TPHIS+1~, TPHIS+9*, TPHIS+11, TPHIS+12, TPHIS+13
SCSTA	DSP+1~, DSP+5*, DSP+6
SCSTP	LSTIEN+1~, LSTIEN+2, LSTIEN+4, LSTIEN+5, LSTIEN+9, TPHIS+1~, TPHIS+3, TPHIS+8, TPHIS+10
SCTP	DSP+1~, DSP+4*, DSP+6
SCX	TPHIS+1~, TPHIS+4, TPHIS+5, TPHIS+8, TPHIS+9
SCY	TPHIS+1~, TPHIS+9*, TPHIS+12
TP	TPHIS+1~, TPHIS+2*, TPHIS+4
U	DSP+3, DSP+4, DSP+5, TPHIS+2, TPHIS+9, TPHIS+12, LST+13
X	EDIT+5!, GETIEN+1~, GETIEN+5, GETIEN+6
Y	EDIT+5!, REP+4, REP+9, GETIEN+1~, LSTIEN+5, LSTIEN+7, DSP+3*, TPHIS+10
ZDATE	TPHIS+1~
ZDATE("BEGIN"	TPHIS+3*
ZDATE("END"	TPHIS+3*
ZDATE("INCL"	TPHIS+3*
ZERROR	TPHIS+1~, TPHIS+5
ZLIST	TPHIS+1~
ZLIST("ALL"	TPHIS+8, TPHIS+9