Routine: PRC186P

Information

PRC186P ;FW/RB-PRE INSTALL PRC*186 TO PURGE DUPLICATE FILE 443 X-REF ENTRIES ;4-26-94/3:45 PM

Source file <PRC186P.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"MISSING 0 NODE: ",PRCSTS,",",PRCIEN Line Location: 2+3
Function Call: WRITE	Prompt: !,PRCIEN," AC DELETED FOR NOT MATCH ZERO NODE ",PRCSTS,"/",$P(PRCR0,U,7) Line Location: 2+6
Function Call: WRITE	Prompt: !,PRCIEN," 0 NODE SET TO CORRECT 'AC' X-REF DEFINED FOR ",$P(PRCR0,U,7) Line Location: 2+9
Function Call: WRITE	Prompt: !!,PRCIEN Line Location: 2+20
Function Call: WRITE	Prompt: "(NULL)" Condition for execution: $D(^XTMP("PRC186P",1,PRCIEN)) Line Location: 2+20
Function Call: WRITE	Prompt: ?15,$P($G(^PRCS(410,PRCIEN,10)),U,4),?25,PRCA,"/",^XTMP("PRC186P",2,PRCIEN,PRCA) Line Location: 2+20
Function Call: WRITE	Prompt: "(*)" Line Location: 2+21
Function Call: WRITE	Prompt: "(*)" Line Location: 2+23
Function Call: WRITE	Prompt: !!!,"TOTAL 443 'AC' X-REF: ",PRCTT,!!,"MASTER PRCIEN MISSING 0 NODE: ",PRCT1,!!,"DUPE PRCIEN MISSING 0 NODE: ",PRCT2 Line Location: 9+0
Function Call: WRITE	Prompt: !!,"TOTAL INDIVIDUAL DUPLICATES: ",PRCT3,!!,"TOTAL DUPLICATES: ",PRCT4 Line Location: 9+1
Function Call: WRITE	Prompt: !!,"TOTAL 'AC' STATUS NOT MATCH 0 NODE: ",PRCT5,!!,"TOTAL 'AC' STATUS NOT DEFINED, 'AC' X-REF SET: ",PRCT6 Line Location: 9+2