PRCORV ;WISC/DJM/BGJ-IFCAP VRQ REVIEW ROUTINE ;2/17/22 14:19
Source file <PRCORV.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
IFCAP | 4 | PRCO PRINT ENTRY PRCO VENDOR REVIEW PRCO VRQ REVIEW PRCORV1 |
Kernel | 1 | ^ORD(101 |
Name | Comments | DBIA/ICR reference |
---|---|---|
V | ;;5.1;IFCAP;**7,227**;Oct 20, 2000;Build 1
|
|
EN | ; -- main entry point for PRCO VENDOR REVIEW
|
|
HDR | ; -- header code
|
|
INIT | ; -- init variables and list array
|
|
HELP | ; -- help code
|
|
EXIT | ; -- exit code
|
|
EXPND | ; -- expand code
|
|
TERM | ; -- get terminal attributes
|
|
SET(STRING,LINE,COLUMN,CLREND,ON,OFF) | ; -- set array
|
|
NODO | ;COME HERE IF THERE ARE NO VRQs TO REVIEW.
|
|
;PRINTING OF A COMPLETE REVIEW OF VENDOR ENTRY
|
||
PRINT1 | ;ENTER HERE TO PRINT THE REPORT
|
|
PRINT2 | ;PRINT EACH ENTRY SELECTED HERE
|
|
PRINTQ | ||
PRINTQ1 | ||
FIELD(FIELD) | ;FETCH EXTERNAL VALUE OF FIELD
|
Name | Field # of Occurrence |
---|---|
NOW^%DTC | PRINT2+10 |
YX^%DTC | PRINT2+11 |
^%ZIS | TERM+2, PRINT+9 |
^%ZISC | PRINTQ+2 |
ENDR^%ZISS | TERM+3 |
^%ZTLOAD | PRINT+16 |
EN^DIQ1 | PRINT2+3 |
^DIR | NODO+4 |
EN^VALM | EN+8 |
$$SETFLD^VALM1 | INIT+21, INIT+22, INIT+23, INIT+24 |
CLEAR^VALM1 | EXIT+1 |
FULL^VALM1 | PRINT+4 |
CLEAN^VALM10 | INIT+5 |
CNTRL^VALM10 | SET+5 |
SET^VALM10 | INIT+26, SET+2, SET+3, SET+4 |
EN^VALM2 | PRINT+2 |
DISP^XQORM1 | HELP+1 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^PRC(440 - [#440] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("XY" | TERM+5 |
^PRC(440 - [#440] | INIT+10, INIT+17, INIT+18, INIT+20 |
^PRC(440.3 - [#440.3] | INIT+4, INIT+7, INIT+9, INIT+11, INIT+12!, INIT+13!, INIT+15 |
^PRCF(422.2 - [#422.2] | EN+2, EN+3, INIT+32, INIT+33* |
^TMP("PRCORV" | INIT+2!, INIT+27*, EXIT+2!, PRINT1+5 |
^TMP($J | EXIT+1! |
Name | Line Occurrences |
---|---|
$$FIELD | PRINT2+14, PRINT2+15, PRINT2+16, PRINT2+18, PRINT2+19, PRINT2+20, PRINT2+22, PRINT2+23, PRINT2+24, PRINT2+25 , PRINT2+26, PRINT2+28, PRINT2+29, PRINT2+30, PRINT2+32, PRINT2+33, PRINT2+34, PRINT2+35, PRINT2+36, PRINT2+37 , PRINT2+39, PRINT2+40, PRINT2+41, PRINT2+42, PRINT2+43 |
NODO | EN+2, EN+3 |
PRINT2 | PRINT1+8 |
PRINTQ | PRINT+10, PRINT+11, PRINT1+9 |
TERM | EN+7 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | PRINT1+1~ |
%H | PRINT1+1~ |
%I | PRINT1+1~ |
%ZIS | PRINT+1~, PRINT+7* |
%ZIS("A" | PRINT+7* |
%ZIS("B" | PRINT+7* |
%ZIS("S" | PRINT+8* |
AA | PRINT+1~ |
ALT | INIT+1~, INIT+18*, INIT+19 |
CLREND | SET~ |
CNT | INIT+1~ |
COLUMN | SET~, SET+1*, SET+2, SET+3, SET+4, SET+5 |
COUNT | EN+2*, EN+3*, EN+4!, INIT+1~, INIT+6*, INIT+16*, INIT+21, INIT+26, INIT+27, INIT+31 , INIT+33 |
DA | PRINT1+1~, PRINT2+2* |
DIC | PRINT1+1~, PRINT2+2* |
DIQ | PRINT1+1~, PRINT2+2* |
DIQ(0 | PRINT2+2* |
DIR | NODO+5! |
DIR("A" | NODO+3* |
DIR(0 | NODO+2* |
DR | PRINT2+1~, PRINT2+2* |
FIELD | PRINT1+1~, FIELD~, FIELD+2*, FIELD+3 |
FMS | INIT+1~, INIT+17*, INIT+19*, INIT+23 |
IEN | PRINT1+1~, PRINT1+6*, PRINT2+2, FIELD+2 |
IO | PRINT2+5 |
IO("Q" | PRINT+6!, PRINT+11! |
IOF | TERM+2, PRINT+5, PRINT2+6 |
IOP | TERM+2*! |
>> IORVOFF | TERM+4 |
>> IORVON | TERM+4 |
IOST(0 | TERM+2 |
LINE | SET~, SET+2, SET+3, SET+4, SET+5 |
LINENO | INIT+1~, INIT+6*, INIT+25*, INIT+26, INIT+27 |
LIST | INIT+1~, INIT+3*, INIT+8*, INIT+9*, INIT+10, INIT+11, INIT+12, INIT+13, INIT+15, INIT+27 |
LN | EN+6~, INIT+32*, INIT+33 |
NAME | INIT+1~, INIT+3*, INIT+4, INIT+6*, INIT+7*, INIT+9, INIT+10*, INIT+13, INIT+15, INIT+22 |
OFF | SET~, SET+5 |
ON | SET~, SET+5 |
PN | PRINT1+1~, PRINT1+2*, PRINT1+7*, PRINT2+7, PRINT2+13 |
POP | PRINT+1~, PRINT+10 |
PRCO | EN+6~ |
PRCO("RV0" | TERM+4* |
PRCO("RV1" | TERM+4* |
PRCO("XY" | TERM+5* |
PRCOI | PRINT1+1~, PRINT1+2*, PRINT1+4*, PRINT1+5 |
PRCOIN | PRINT1+1~, PRINT1+5*, PRINT1+6 |
PRCORVP | PRINT2+1! |
PRCORVP(440 | FIELD+2 |
SPACE | PRINT1+1~, PRINT2+4*, PRINT2+16, PRINT2+17, PRINT2+24, PRINT2+25, PRINT2+26, PRINT2+27 |
STRING | SET~, SET+2, SET+4, SET+5 |
TAX | INIT+1~, INIT+20*, INIT+24 |
U | EN+3, INIT+17, INIT+18, INIT+20, INIT+33, PRINT1+6 |
VALMAR | EN+6~, SET+3 |
VALMBCK | EN+6~, PRINTQ* |
VALMBG | EN+6~, PRINTQ* |
VALMCNT | EN+6~, INIT+31* |
VALMHDR | EN+6~ |
VALMHDR(1 | HDR+1* |
VALMY | EN+6~, PRINT+3 |
VALMY( | PRINT1+4 |
VDA | INIT+1~, INIT+14*, INIT+15*, INIT+17, INIT+18, INIT+20 |
X | INIT+21*, INIT+22*, INIT+23*, INIT+24*, INIT+26, HELP+1*, TERM+1~, TERM+3*, PRINT1+1~, PRINT2+17* , PRINT2+18*, PRINT2+19*, PRINT2+20*, PRINT2+21, PRINT2+27*, PRINT2+28*, PRINT2+29*, PRINT2+30*, PRINT2+31 |
>> XQORNOD(0 | PRINT+2 |
Y | PRINT1+1~, PRINT2+12 |
>> ZTDESC | PRINT+15* |
>> ZTQUEUED | PRINT2+7, PRINTQ+1 |
>> ZTREQ | PRINTQ+1* |
>> ZTRTN | PRINT+12* |
>> ZTSAVE("VALMY(" | PRINT+13* |
>> ZTSAVE("^TMP(""PRCORV"",$J," | PRINT+14* |