Routine: PRSACED6

Information

PRSACED6 ; HISC/FPT-T&A Cross-Edits ;5/9/2012 13:21

Source file <PRSACED6.m>

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Package	Total	Caller Graph
PAID	3	PRSACED PRSACED1 PRSAXMIT

Name	Comments	DBIA/ICR reference
CODES	; Set variables T0 and T1 with 8B code list ; 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67
STUB	; parse out 'stub' variables from 8b record
TYPE	; parse out type of time from 8b record
CD	; calculate/compare cd value

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"THE CD VALUE DID NOT ADD UP CORRECTLY FOR ",$P($G(^PRSPC(DFN,0)),"^",1) Line Location: CD+5

Name	Line Occurrences (* Changed, ! Killed)
^PRSPC - [#450]	CD+5
^PRST(458 - [#458]	STUB+1

Name	Line Occurrences
CD	TYPE+3
TYPE	TYPE+3, TYPE+11, TYPE+14

Name	Field # of Occurrence
>> C0	STUB+12, TYPE+10, CD+1, CD+2
>> C1	STUB+12, TYPE+13, CD+3, CD+4
CD	CD+1, CD+2, CD+4*, CD+5, CD+6!
>> DAYNO	STUB+5*
>> DFN	STUB+1, CD+5
>> DUT	STUB+10*
END	CD+1, CD+2, CD+3, CD+4, CD+6!
EOR	STUB+12, TYPE+1!, TYPE+3, TYPE+5*, TYPE+6, TYPE+7
LOOP	TYPE+1!, TYPE+4, TYPE+5, TYPE+6, TYPE+7, CD+2, CD+4*
>> LVG	STUB+7*
MATCH	TYPE+1!, TYPE+8, TYPE+10, TYPE+11
>> N1	CODES+3*
>> N2	CODES+4*
>> NCODE	STUB+4*
>> NOR	STUB+8*
>> PAY	STUB+9*
>> PPI	STUB+1
RECORD	STUB+1, STUB+2, STUB+3, STUB+4, STUB+5, STUB+6, STUB+7, STUB+8, STUB+9, STUB+10 , STUB+11, STUB+13, TYPE+1!, TYPE+2, TYPE+3, TYPE+4, TYPE+5, TYPE+6, TYPE+7*
>> SSN	STUB+3*
>> STA	STUB+2*
>> T0	CODES+3*, TYPE+9
>> T1	CODES+4*, TYPE+12
>> TL	STUB+6*
TYPE	TYPE+1!, TYPE+2*, TYPE+3, TYPE+9, TYPE+12
VALUE	TYPE+1!, TYPE+3, TYPE+6, TYPE+10, TYPE+13, CD+5
>> Z	TYPE+9, TYPE+10, TYPE+12, TYPE+13