©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
APSSINI0 ;IHS/CIA/MDM - ScriptPro Interface;26-Jun-2008 15:01;DU
Source file <APSSINI0.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 2 | (FILE,UPDATE,WP)^DIE CLEAN^DILF |
| Kernel | 1 | BMES^XPDUTL |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FDA | ;
; Build FDA Array to define file structure and field values for use by Fileman |
|
| RESET | ;
; Reset working variables to NULL once each record is processed |
|
| MES(MSG,QUIT) | ; Display informational messages
|
|
| NEWSEQ(ARRAY,SQ) | ;
|
|
| EP1 | ;MDM - Main entry point
|
|
| MSG | ; Set up informational messages to display to the screen
|
|
| DESC(REC) | ; Process description text and put it into the file
; If there is no description text then quit |
|
| DATA | ; This module holds the data that will be put into the database.
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| 9009033.31 | WP^DIE |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^APSSCOMD - [#9009033.3] | EP1+33, EP1+34, EP1+35, EP1+59, EP1+63, EP1+87, EP1+99, EP1+123 |
| ^APSSCOMD("B" | EP1+32 |
| Name | Line Occurrences |
|---|---|
| $$NEWSEQ | EP1+49 |
| DESC | EP1+113, EP1+140 |
| FDA | EP1+103, EP1+130 |
| MES | MSG+3, MSG+4, MSG+5, MSG+7 |
| MSG | EP1+75, EP1+111, EP1+138 |
| RESET | EP1+72, EP1+79, EP1+108, EP1+117, EP1+135, EP1+144 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACTION | EP1+28~, EP1+61*, EP1+89*, EP1+125*, RESET+8!, MSG+3, MSG+4, MSG+5 |
| APSSCLC | EP1+27~, EP1+39*, DESC+5, DESC+14* |
| APSSCMD | EP1+28~, EP1+32*, EP1+33, EP1+34, EP1+35, EP1+59, EP1+63, EP1+65, EP1+87, EP1+99 , EP1+101, EP1+123, EP1+128, DESC+3 |
| APSSDAT | EP1+27~, EP1+39*, EP1+41, EP1+43, EP1+45, EP1+46, EP1+50, EP1+51, EP1+52, EP1+53 , DESC+7*, DESC+9* |
| APSSDBEG | EP1+28~, DESC+5*, DESC+7 |
| APSSDEND | EP1+28~, DESC+5*, DESC+7 |
| APSSDESC | EP1+27~, EP1+53*, DESC+2, DESC+5, RESET+7* |
| APSSDIEN | EP1+28~ |
| APSSFLD | EP1+27~, EP1+50*, FDA+5, RESET+4* |
| APSSFMT | EP1+27~, EP1+51*, FDA+6, RESET+5* |
| APSSIEN | EP1+28~, EP1+65*, EP1+67, EP1+101*, EP1+128*, DESC+3*, DESC+17, FDA+2, FDA+3, FDA+4 , FDA+5, FDA+6, FDA+7 |
| APSSLINE | EP1+28~, DESC+7*, DESC+9, DESC+14* |
| APSSSEQ | EP1+27~, EP1+46*, EP1+49*, FDA+4, RESET+3* |
| APSSSIEN | EP1+28~, EP1+63*, EP1+65, EP1+99*, EP1+101, EP1+113, EP1+126*, EP1+128 |
| APSSTAG | EP1+27~, EP1+45*, EP1+49, EP1+59, EP1+63, EP1+87, EP1+92, EP1+94*, EP1+97*, EP1+99 , EP1+123, FDA+2, RESET+2*, MSG+3, MSG+4, MSG+5, MSG+7 |
| APSSTRAN | EP1+27~, EP1+52*, FDA+7, RESET+6* |
| APSSUTAG | EP1+27~, EP1+92*, EP1+97, FDA+3, RESET+8! |
| ARRAY | NEWSEQ~ |
| ARRAY( | NEWSEQ+5 |
| ARY | EP1+29~, EP1+49 |
| ARY( | EP1+35*, EP1+49 |
| ERR | RESET+8!, MSG+2 |
| ERR("ERR" | EP1+72, EP1+108, EP1+135 |
| ERR(1 | EP1+140, MSG+7 |
| FDA | EP1+28~, RESET+8! |
| FDA( | EP1+67*, FDA+2*, FDA+3*, FDA+4*, FDA+5*, FDA+6*, FDA+7* |
| MSG | MES~, MES+1 |
| NSQ | NEWSEQ+1~, NEWSEQ+2*, NEWSEQ+4*, NEWSEQ+5, NEWSEQ+6*, NEWSEQ+7 |
| OFFSET | NEWSEQ+1~, NEWSEQ+3*, NEWSEQ+4 |
| QUIT | MES~, NEWSEQ+1~, NEWSEQ+2*, NEWSEQ+3, NEWSEQ+5*, NEWSEQ+6 |
| REC | DESC~, DESC+3 |
| >> SIEN | EP1+33*, EP1+34, EP1+35 |
| SQ | NEWSEQ~, NEWSEQ+2, NEWSEQ+4, NEWSEQ+6 |
| SSEQ | EP1+29~, EP1+34*, EP1+35 |
| TMP | RESET+8! |
| TMP("WP" | DESC+9* |
| U | EP1+34, EP1+35 |
| Name | Field # of Occurrence |
|---|---|
| $T(DATA+APSSCLC | EP1+39 |
| $T(DATA+APSSLINE | DESC+7 |