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 | 9 | YTQ PATIENT LOOKUP YTQ SCORE SAVE YTQ WP ALL YTQAPI10 YTQPXRM4 YTQRCAT YTQRCRD YTQRQAD2 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~ |
