YTQAPI11 ;ASF/ALB - MHAx API ; 8/9/10 10:34am
Source file <YTQAPI11.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 |
---|---|---|
Mental Health | 8 | YTQ PATIENT LOOKUP YTQ SCORE SAVE YTQ WP ALL YTQAPI10 YTQPXRM4 YTQRCAT YTQRCRD YTSCORE |
Name | Comments | DBIA/ICR reference |
---|---|---|
SCORSAVE(YSDATA,YS) | ;save results to 601.92
; input: AD as administration ID ; output: DATA vs ERROR |
|
SSEN | ;scorsave entry
; patch 123 remove this, put in 2 other calls. |
|
SCALES | ;from copy
|
|
RULES | ;from copy
|
|
FULLWP(YSDATA,YS) | ;first line of all WPS
|
|
FINDP(YSDATA,YS) | ; patient lookup
; input: ; VALUE = value to lookup ; NUMBER= maximum number to find ; Lookup uses multiple index lookup of File #2 ; output: ; [DATA]^number of records returned ; DFN^patient name^DOB^PID^Gender |
Name | Field # of Occurrence |
---|---|
FIND^DIC | FINDP+13 |
IX^DIK | SCALES+6, SCALES+12, SCALES+20, RULES+9, RULES+21 |
CLEAN^DILF | FINDP+14 |
$$VFIELD^DILFD | FULLWP+7 |
$$VFILE^DILFD | FULLWP+6 |
$$GET1^DIQ | SSEN+6 |
$$DOB^DPTLK1 | FINDP+19 |
$$SSN^DPTLK1 | FINDP+21 |
$$NEW^YTQLIB | SCALES+2, SCALES+8, SCALES+14, RULES+3, RULES+13 |
LOADANSW^YTSCORE | SSEN+4 |
SCOREINS^YTSCORE | SSEN+9 |
UPDSCORE^YTSCORE | SSEN+11 |
RPC Name | Call Tags |
---|---|
YTQ WP ALL | FULLWP |
YTQ SCORE SAVE | SCORSAVE |
YTQ PATIENT LOOKUP | FINDP |
FileNo | Call Tags |
---|---|
^DPT - [#2] | FIND^DIC |
^YTT(601.82 - [#601.82] | Classic Fileman Calls |
^YTT(601.84 - [#601.84] | GET1^DIQ |
^YTT(601.86 - [#601.86] | Classic Fileman Calls |
^YTT(601.87 - [#601.87] | Classic Fileman Calls |
^YTT(601.91 - [#601.91] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^TMP("DILIST" | FINDP+15, FINDP+16, FINDP+17, FINDP+29! |
^TMP("YSDATA" | FINDP+12!, FINDP+15*, FINDP+28* |
^TMP($J | SSEN+7*, SSEN+10*, SCALES+19, RULES+8, RULES+18, RULES+20, FULLWP+5!, FULLWP+6*, FULLWP+7*, FULLWP+8* , FULLWP+12* |
^YTT( | FULLWP+9, FULLWP+10, FULLWP+12 |
^YTT(601.82 - [#601.82] | RULES+12, RULES+15*, RULES+16*, RULES+18*, RULES+20* |
^YTT(601.83 - [#601.83] | RULES+1, RULES+2, RULES+4*, RULES+5*, RULES+6*, RULES+8*, RULES+14* |
^YTT(601.84 - [#601.84] | SCORSAVE+8 |
^YTT(601.86 - [#601.86] | SCALES+1, SCALES+3*, SCALES+4*, SCALES+5* |
^YTT(601.87 - [#601.87] | SCALES+7, SCALES+9*, SCALES+10*, SCALES+11* |
^YTT(601.91 - [#601.91] | SCALES+13, SCALES+15*, SCALES+16*, SCALES+17*, SCALES+18, SCALES+19* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | SCORSAVE+5~, SCALES+6*, SCALES+12*, SCALES+20*, RULES+9*, RULES+21* |
DIERR | FINDP+9~, FINDP+14 |
DIK | SCORSAVE+3~, SCALES+6*, SCALES+12*, SCALES+20*, RULES+9*, RULES+21* |
DSSN | FINDP+9~, FINDP+23*, FINDP+25*, FINDP+26 |
>> G | RULES+11 |
>> G1 | RULES+2*, RULES+4, RULES+7 |
>> G2 | RULES+12*, RULES+15, RULES+17, RULES+19 |
IEN71 | SSEN+5~, SSEN+6*, SSEN+7, SSEN+9 |
N | RULES+1*, RULES+2, FULLWP+4~, FULLWP+7*, FULLWP+8*, FULLWP+11*, FULLWP+12 |
NODE | FINDP+9~, FINDP+17*, FINDP+19*, FINDP+21, FINDP+24, FINDP+26*, FINDP+28 |
PLID | FINDP+9~, FINDP+24*, FINDP+25*, FINDP+26 |
SSN | FINDP+9~, FINDP+21*, FINDP+23, FINDP+25 |
U | SCALES+4, SCALES+5, SCALES+10, SCALES+11, SCALES+16, SCALES+17, SCALES+18, SCALES+19, RULES+5, RULES+6 , RULES+7, RULES+8, RULES+11, RULES+14, RULES+16, RULES+17, RULES+18, RULES+19, RULES+20, FULLWP+12 , FINDP+15, FINDP+19, FINDP+24, FINDP+26, FINDP+28 |
YS | SCORSAVE~, SSEN+4, SSEN+11, FULLWP~, FINDP~ |
YS("AD" | SCORSAVE+6 |
YS("FIELD" | FULLWP+7 |
YS("FILEN" | FULLWP+6 |
YS("NUMBER" | FINDP+11 |
YS("VALUE" | FINDP+10 |
YSAD | SCORSAVE+3~, SCORSAVE+6*, SCORSAVE+7, SCORSAVE+8, SSEN+6 |
YSDATA | SCORSAVE~, SSEN+4, SSEN+9, SSEN+11, FULLWP~, FULLWP+5*, FINDP~, FINDP+12* |
YSDATA(1 | SCORSAVE+7*, SCORSAVE+8*, SCORSAVE+10* |
YSDATA(2 | SCORSAVE+7*, SCORSAVE+8* |
>> YSECNEW | RULES+8 |
YSFIELD | FULLWP+4~, FULLWP+7*, FULLWP+10, FULLWP+12 |
>> YSFILE | RULES+3, RULES+9 |
YSFILEN | FULLWP+4~, FULLWP+6*, FULLWP+7, FULLWP+9, FULLWP+10, FULLWP+12 |
YSG | SCORSAVE+3~ |
>> YSISRNEW | RULES+3*, RULES+4, RULES+5, RULES+6, RULES+9, RULES+14 |
>> YSKEYNEW | SCALES+14*, SCALES+15, SCALES+16, SCALES+17, SCALES+18, SCALES+19, SCALES+20 |
>> YSKEYOLD | SCALES+13*, SCALES+15 |
YSN | FULLWP+4~, FULLWP+8*, FULLWP+9*, FULLWP+10, FULLWP+12, FINDP+9~, FINDP+15*, FINDP+28* |
YSN1 | FULLWP+4~, FULLWP+10*, FULLWP+12 |
>> YSNEWNUM | SCALES+5, RULES+6 |
YSNUMBER | FINDP+9~, FINDP+11*, FINDP+13 |
>> YSOLDNUM | SCALES+1, RULES+1 |
>> YSQX | SCALES+18*, SCALES+19, RULES+7*, RULES+8, RULES+17*, RULES+18, RULES+19*, RULES+20 |
YSRNEW | SCORSAVE+3~ |
>> YSRULNEW | RULES+13*, RULES+14, RULES+15, RULES+16, RULES+18, RULES+20, RULES+21 |
>> YSRULOLD | RULES+11*, RULES+12 |
>> YSSGNEW | SCALES+2*, SCALES+3, SCALES+4, SCALES+5, SCALES+6, SCALES+11 |
>> YSSGOLD | SCALES+1*, SCALES+3, SCALES+7 |
>> YSSLNEW | SCALES+8*, SCALES+9, SCALES+10, SCALES+11, SCALES+12, SCALES+17 |
>> YSSLOLD | SCALES+7*, SCALES+9, SCALES+13 |
YSVALUE | FINDP+9~, FINDP+10*, FINDP+13 |
YSX | FINDP+9~, FINDP+16*, FINDP+17 |
Z | SCORSAVE+5~ |