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* |