WVRPST ;HCIOFO/JR,FT-Sexual Trauma Summary ;4/11/01 09:16
Source file <WVRPST.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 |
---|---|---|
Womens Health | 1 | WV SEXUAL TRAUMA SUMMARY |
Name | Comments | DBIA/ICR reference |
---|---|---|
GET | ; Get data for report
|
|
EXIT | ;
|
|
; Print counts
|
||
HEAD | ; Print the report header
|
|
NOT(WVDFN) | ;Screen out patients for Inactive & Dead
|
Name | Field # of Occurrence |
---|---|
^%ZIS | WVRPST+13 |
HOME^%ZIS | WVRPST+16 |
^%ZISC | EXIT+1 |
^%ZTLOAD | WVRPST+16 |
$$GETSTAT^DGMSTAPI | GET+17 |
$$GET1^DIQ | NOT+2 |
CMGR^WVMSTL | WVRPST+11 |
$$PERSON^WVUTL1 | PRINT+18 |
STOPCHK^WVUTL10 | GET+13 |
$$RUNDT^WVUTL1A | HEAD+3 |
$$VET^WVUTL1A | GET+19 |
DIRZ^WVUTL3 | PRINT+20 |
$$REPEAT^XLFSTR | GET+7, GET+8 |
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 |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^WV(790 - [#790] | GET+9, NOT+4 |
Name | Field # of Occurrence |
---|---|
^( | GET+9 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> %ZIS | WVRPST+13* |
IO | GET+1 |
IO("Q" | WVRPST+13!, WVRPST+16! |
IO("S" | PRINT+20 |
IOF | WVRPST+8, PRINT+20, HEAD+1 |
IOST | PRINT+1 |
POP | WVRPST+13, EXIT+4!, PRINT+20 |
TEST | NOT+1~, NOT+2*, NOT+3, NOT+4*, NOT+5 |
U | GET+15, GET+16, GET+17, NOT+4 |
WV0 | GET+9*, GET+15, GET+16, EXIT+2! |
WVBOTH | GET+3*, GET+35*, EXIT+2!, PRINT+15 |
WVCIVCNT | GET+3*, GET+21*, EXIT+2!, PRINT+14 |
WVCNALL | GET+3*, GET+18*, EXIT+2!, PRINT+12 |
WVCRT | EXIT+2!, PRINT+1*, PRINT+20 |
WVCST | GET+16*, GET+23, GET+24, GET+25, GET+29, GET+30, GET+31, GET+35, EXIT+2! |
WVCSTNV | EXIT+2! |
WVCSTNV("D" | GET+5*, GET+31*, PRINT+10 |
WVCSTNV("N" | GET+5*, GET+30*, PRINT+10 |
WVCSTNV("U" | GET+5*, GET+32*, PRINT+10 |
WVCSTNV("Y" | GET+5*, GET+29*, PRINT+10 |
WVCSTV | EXIT+2! |
WVCSTV("D" | GET+4*, GET+25*, PRINT+9 |
WVCSTV("N" | GET+4*, GET+24*, PRINT+9 |
WVCSTV("U" | GET+4*, GET+26*, PRINT+9 |
WVCSTV("Y" | GET+4*, GET+23*, PRINT+9 |
WVDASH | GET+8*, EXIT+2!, PRINT+6, PRINT+11, HEAD+4 |
WVDFN | GET+3*, GET+9*, GET+14, GET+17, GET+19, EXIT+2!, NOT~, NOT+2, NOT+4 |
WVE | WVRPST+10*, GET+2, GET+15, EXIT+3!, PRINT+17, PRINT+18 |
WVET | GET+19*, GET+20, GET+21, GET+22, GET+28, GET+34, EXIT+3! |
WVETCNT | GET+3*, GET+20*, EXIT+3!, PRINT+13 |
WVJRNOW | EXIT+3! |
WVLINE | GET+7*, EXIT+3!, PRINT+4, PRINT+8 |
WVLINL | EXIT+3! |
WVMGR | WVRPST+10*, GET+15, EXIT+3!, PRINT+18 |
WVMST | GET+17*, GET+35, GET+36, GET+37, EXIT+3! |
WVMSTV | EXIT+3! |
WVMSTV("D" | GET+6*, GET+37*, PRINT+5 |
WVMSTV("N" | GET+6*, GET+36*, PRINT+5 |
WVMSTV("U" | GET+6*, GET+38*, PRINT+5 |
WVMSTV("Y" | GET+6*, GET+35*, PRINT+5 |
WVPOP | WVRPST+10*, WVRPST+12, EXIT+3!, PRINT+19* |
WVTAB | EXIT+3! |
WVZSTOP | GET+3*, GET+10*, GET+13, EXIT+3! |
X | EXIT+4! |
Y | EXIT+4! |
>> ZSTOP | GET+9 |
>> ZTDESC | WVRPST+14* |
>> ZTQUEUED | GET+13 |
>> ZTRTN | WVRPST+14* |
>> ZTSAVE("WVE" | WVRPST+15* |
>> ZTSAVE("WVMGR" | WVRPST+15* |
>> ZTSTOP | GET+13, GET+41 |