©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
APSPEC15 ;IHS/CIA/PLS - APSP ENVIRONMENT CHECK ROUTINE ;18-Jun-2013 10:08;PLS
Source file <APSPEC15.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PRE | ;EP - Pre-init
|
|
| RENXPAR(OLD,NEW) | ; Rename parameter
|
|
| UREGPROT(P,C,ERR) | ;EP-
|
|
| AAPPGRP(FILE,NMSP) | ;EP
|
|
| SETPKGV(PKG,VER) | ;EP
|
|
| CLNNVA | ;EP -
|
|
| REMXPAR(PAR) | ;Remove values stored for a given parameter
|
|
| ENV | ;EP
|
|
| POST | ;EP
; Set Default Med Route for CPRS field of first Pharmacy System to null |
|
| REGPROT(P,C,SEQ,ERR) | ;EP
|
|
| MES(TXT,QUIT) | ;EP
|
|
| CLN50DD | ;EP -
|
| Name | Field # of Occurrence |
|---|---|
| $$FIND1^DIC | RENXPAR+3, RENXPAR+4, REGPROT+4, REGPROT+5, UREGPROT+4, UREGPROT+5, UREGPROT+7, SETPKGV+2 |
| FILE^DIE | RENXPAR+7 |
| UPDATE^DIE | AAPPGRP+4, REGPROT+9, UREGPROT+9, SETPKGV+5, CLNNVA+5 |
| ^DIK | REMXPAR+7 |
| $$GET1^DIQ | ENV+2 |
| EN^DIU2 | CLN50DD+1 |
| $$CJ^XLFSTR | ENV+3, ENV+4 |
| ADD^XPDMENU | POST+6 |
| BMES^XPDUTL | ENV+8, MES+1 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^ORD(101 - [#101] | FIND1^DIC |
| 101.01 | FIND1^DIC |
| ^VA(200 - [#200] | GET1^DIQ |
| ^XTV(8989.5 - [#8989.5] | Classic Fileman Calls |
| ^DIC(9.4 - [#9.4] | FIND1^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(55 - [#55] | CLNNVA+2, CLNNVA+3 |
| ^PS(59.7 - [#59.7] | POST+3, POST+5* |
| ^XPAR(8989.5 | REMXPAR+4, REMXPAR+5, REMXPAR+6 |
| ^XPAR(8989.51 | REMXPAR+2 |
| ^XPD(9.7 - [#9.7] | ENV+7 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AIEN | REGPROT+1~, REGPROT+5*, REGPROT+6, REGPROT+7, UREGPROT+1~, UREGPROT+5*, UREGPROT+6 |
| C | REGPROT~, REGPROT+3, REGPROT+5, UREGPROT~, UREGPROT+3, UREGPROT+5, UREGPROT+7 |
| DA | REMXPAR+1~, REMXPAR+6* |
| DFN | CLNNVA+1~, CLNNVA+2*, CLNNVA+3, CLNNVA+4 |
| >> DIERR | CLNNVA+6 |
| DIK | REMXPAR+1~, REMXPAR+7* |
| >> DIU | CLN50DD+1* |
| >> DIU(0 | CLN50DD+1* |
| DUZ | ENV+2 |
| ENT | REMXPAR+1~, REMXPAR+4*, REMXPAR+5, REMXPAR+6 |
| ERR | AAPPGRP+1~, REGPROT~, REGPROT+3*, REGPROT+6*, UREGPROT~, UREGPROT+3*, UREGPROT+6* |
| FDA | RENXPAR+1~, AAPPGRP+1~, REGPROT+1~, UREGPROT+1~, SETPKGV+1~, CLNNVA+1~, CLNNVA+5 |
| FDA( | RENXPAR+6*, AAPPGRP+3*, REGPROT+7*, REGPROT+8*, UREGPROT+8*, SETPKGV+4*, CLNNVA+4* |
| FIL | RENXPAR+1~, RENXPAR+2*, RENXPAR+3, RENXPAR+4, RENXPAR+6 |
| FILE | AAPPGRP~, AAPPGRP+2, AAPPGRP+3 |
| IEN | RENXPAR+1~, RENXPAR+4*, RENXPAR+5, RENXPAR+6, POST+2~, POST+3*, POST+4, POST+5, AAPPGRP+1~, CLNNVA+1~ , CLNNVA+3*, CLNNVA+4 |
| IENARY | REGPROT+1~, UREGPROT+1~ |
| IENARY(1 | REGPROT+4*, REGPROT+6, REGPROT+7, REGPROT+8, UREGPROT+4*, UREGPROT+6, UREGPROT+7, UREGPROT+8 |
| IENARY(2 | UREGPROT+7*, UREGPROT+8 |
| INT | REMXPAR+1~, REMXPAR+5*, REMXPAR+6 |
| IOM | ENV+3, ENV+4 |
| NEW | RENXPAR~, RENXPAR+3, RENXPAR+6 |
| NMSP | AAPPGRP~, AAPPGRP+2, AAPPGRP+3 |
| NVAERR | CLNNVA+1~ |
| NVAERR("DIERR" | CLNNVA+6 |
| OLD | RENXPAR~, RENXPAR+4 |
| P | REGPROT~, REGPROT+3, REGPROT+4, UREGPROT~, UREGPROT+3, UREGPROT+4 |
| PAR | REMXPAR~, REMXPAR+2 |
| PIEN | REMXPAR+1~, REMXPAR+2*, REMXPAR+3, REMXPAR+4, REMXPAR+5, REMXPAR+6, REGPROT+1~, UREGPROT+1~, SETPKGV+1~, SETPKGV+2* , SETPKGV+3, SETPKGV+4 |
| PKG | SETPKGV~, SETPKGV+2 |
| QUIT | MES~, MES+2 |
| SEQ | REGPROT~, REGPROT+8 |
| TXT | MES~, MES+1 |
| U | POST+5 |
| VER | SETPKGV~, SETPKGV+4 |
| VIEN | REMXPAR+1~ |
| >> X | ENV+2*, ENV+3 |
| >> XPDABORT | ENV+6*, ENV+7*, ENV+8, ENV+9, MES+2* |
| >> XPDDIQ("XPZ1" | ENV+5* |
| >> XPDDIQ("XPZ2" | ENV+5* |
| Name | Field # of Occurrence |
|---|---|
| $T( | ENV+4 |