PXRHS01 ;SLC/SBW - PCE Visit data extract main routine ;6/7/96
Source file <PXRHS01.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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| VISIT(DFN,ENDDT,BEGDT,OCCLIM,CATCODE,EXTRCODE,TIMEORD) | ; Control branching
|
|
| HSDATE() | ; $$() -> switch date
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVSIT("AA" | VISIT+61, VISIT+70, VISIT+75, VISIT+81 |
| ^PX(815 - [#815] | HSDATE+1 |
| ^TMP("PXHSV" | VISIT+68! |
| Name | Line Occurrences |
|---|---|
| $$HSDATE | VISIT+69 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BEGDT | VISIT~, VISIT+64*, VISIT+67, VISIT+69 |
| CATCODE | VISIT~, VISIT+81 |
| CHGIVD | VISIT+62~, VISIT+78*, VISIT+79 |
| DFN | VISIT~, VISIT+61, VISIT+70, VISIT+75, VISIT+81 |
| DT | VISIT+64, VISIT+65 |
| ENDDT | VISIT~, VISIT+65*, VISIT+67, VISIT+69 |
| EXTRCODE | VISIT~, VISIT+81 |
| IBEGDT | VISIT+62~, VISIT+67*, VISIT+79 |
| IENDDT | VISIT+62~, VISIT+67*, VISIT+79 |
| IHSDATE | VISIT+62~, VISIT+69*, VISIT+70 |
| OCCLIM | VISIT~, VISIT+63*, VISIT+70, VISIT+75, VISIT+81 |
| PXBEG | VISIT+62~, VISIT+69*, VISIT+70*, VISIT+73*, VISIT+75 |
| PXCNT | VISIT+62~, VISIT+69*, VISIT+70, VISIT+75, VISIT+81 |
| PXIVD | VISIT+62~, VISIT+73*, VISIT+75*, VISIT+78, VISIT+81 |
| PXSTOP | VISIT+62~, VISIT+69*, VISIT+70 |
| PXVDF | VISIT+62~, VISIT+80*, VISIT+81* |
| TIMEORD | VISIT~, VISIT+81 |
| U | HSDATE+1 |
