GMRCCP ;SLC/JFR - utilities for clinical procedures; 10/07/04 15:24
Source file <GMRCCP.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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CPLIST(GMRCPT,GMRCPR,GMRCRET) | ;return list of patient CP requests
; Input: ; GMRCPT = patient DFN (required) ; GMRCPR = ien from file 702.01 (optional) ; if just one procedure ; desired; defaults to all ; GMRCRET= global array in which to (required) ; return results |
|
| LOADAR(IEN,GMRCAR,CNT) | ;set up array and return data for given file 123 ien
|
|
| CPROC(PROC) | ;is orderable procedure mapped to Clinical Procedures
|
|
| CPLINK(PROC) | ;check "AC" x-ref to see if PROC is linked to entry in 123.3
; PROC - ien from 702.01 |
|
| CPLINKS(NAMES,PROC) | ;return list of procedure names linked to a CP
; Input ; PROC - ien from PROCEDURE DEFINITION (#702.01) - (required) ; Output: ; NAMES - passed by reference ; returned as array of GMRC PROCEDUREs linked to PROC ; in format; ; NAMES(x)=GMRC PROCEDURE name^GMRC PROCEDURE ien ; NAMES(1)="EKG^21" ; NAMES(2)="EKG PORTABLE^32" ; if not currently linked, returned as: ; NAMES(1)="-1^not currently linked" |
|
| CPDOC(GMRCDA,TIUDA,ACTION) | ;update file 123 entry with CLIN PROC DOC
; Input: ; GMRCDA = ien from file 123 ; TIUDA = ien from file 8925 ; ACTION = 1 - associate stub record ; = 2 - partial results ready ; = 3 - retract record |
|
| CPACTM(GMRCDA) | ;return actions available for a CP request
|
|
| CPINTERP(GMRCTIU,GMRCUSER) | ;is user an interpreter for TIU doc GMRCTIU
|
|
| CPPAT(GMRCDA,GMRCDFN) | ;is patient object of given request?
; Input: ; GMRCDA = ien from file 123 ; GMRCDFN = patient DFN |
|
| MCCNVT(GMRCMOD,GMRCMC,GMRCTIU) | ;convert MC pointer to TIU pointer in file 123
|
| Name | Field # of Occurrence |
|---|---|
| FILE^DIE | MCCNVT+20, MCCNVT+25, MCCNVT+32 |
| $$GET1^DIQ | LOADAR+7, LOADAR+8, LOADAR+9, CPACTM+17 |
| $$VALID^GMRCAU | CPINTERP+15 |
| MSG^GMRCP | CPDOC+32 |
| EN^GMRCT | CPDOC+26 |
| GET^GMRCTIU | CPDOC+25 |
| ROLLBACK^GMRCTIU1 | CPDOC+38 |
| $$EXTDATA^MDAPI | CPLIST+19, CPLIST+24, CPACTM+13 |
| $$PATCH^XPDUTL | CPACTM+11 |
| FileNo | Call Tags |
|---|---|
| ^ORD(100.01 - [#100.01] | GET1^DIQ |
| ^ORD(101 - [#101] | GET1^DIQ |
| ^MDS(702.01 - [#702.01] | GET1^DIQ |
| ^TIU(8925 - [#8925] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^GMR(123 - [#123] | CPLIST+18, CPLIST+23, CPLIST+26, LOADAR+2, LOADAR+3, LOADAR+4, LOADAR+6, CPDOC+14, CPDOC+23, CPDOC+26 , CPDOC+30, CPDOC+36, CPACTM+12, CPACTM+13, CPACTM+14, CPINTERP+11, CPINTERP+13, CPPAT+8, MCCNVT+14, MCCNVT+18 , MCCNVT+23, MCCNVT+28, MCCNVT+29 |
| ^GMR(123.3 - [#123.3] | CPROC+1, CPLINK+2, CPLINKS+14, CPLINKS+15 |
| Name | Line Occurrences |
|---|---|
| LOADAR | CPLIST+20, CPLIST+27 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACTION | CPDOC~, CPDOC+15, CPDOC+18, CPDOC+21, CPDOC+35 |
| CNT | LOADAR~, LOADAR+10 |
| COUNT | CPLIST+13~, CPLIST+14*, CPLIST+20*, CPLIST+27* |
| CPDOC | CPACTM+10~, CPACTM+14*, CPACTM+15, CPACTM+16, CPACTM+17 |
| EXTDTA | CPACTM+10~, CPACTM+13*, CPACTM+15, CPACTM+16 |
| FDA | MCCNVT+13~, MCCNVT+30! |
| FDA(1 | MCCNVT+19*, MCCNVT+24*, MCCNVT+31* |
| GMRC | LOADAR+1~ |
| GMRC(0 | LOADAR+4*, LOADAR+5, LOADAR+8, LOADAR+9 |
| GMRCACT | MCCNVT+13~, MCCNVT+27*, MCCNVT+28*, MCCNVT+29, MCCNVT+31 |
| GMRCADUZ | CPDOC+13~, CPDOC+27, CPDOC+32 |
| GMRCAR | LOADAR~, LOADAR+10 |
| GMRCCP | LOADAR+1~, LOADAR+7*, LOADAR+10 |
| GMRCCPA | CPDOC+22~, CPDOC+24* |
| GMRCCPI | LOADAR+1~, LOADAR+6*, LOADAR+7, LOADAR+10 |
| GMRCDA | CPLIST+13~, CPLIST+17*, CPLIST+18*, CPLIST+20, CPLIST+25*, CPLIST+26*, CPLIST+27, CPDOC~, CPDOC+14, CPDOC+23 , CPDOC+25, CPDOC+26, CPDOC+30, CPDOC+31, CPDOC+36, CPDOC+38, CPACTM~, CPACTM+12, CPACTM+13, CPACTM+14 , CPINTERP+10~, CPINTERP+11*, CPINTERP+12, CPINTERP+13, CPPAT~, CPPAT+8 |
| GMRCDFN | CPDOC+28~, CPDOC+30*, CPDOC+32, CPPAT~, CPPAT+8 |
| GMRCDT | LOADAR+1~, LOADAR+5*, LOADAR+10 |
| GMRCERR | MCCNVT+13~, MCCNVT+21, MCCNVT+30! |
| GMRCIEN | MCCNVT+13~, MCCNVT+14*, MCCNVT+15, MCCNVT+16, MCCNVT+18, MCCNVT+19, MCCNVT+23, MCCNVT+24, MCCNVT+28, MCCNVT+29 , MCCNVT+31, MCCNVT+34 |
| GMRCINT | CPINTERP+10~, CPINTERP+15*, CPINTERP+16 |
| GMRCMC | MCCNVT~, MCCNVT+12, MCCNVT+14, MCCNVT+18, MCCNVT+23, MCCNVT+29 |
| GMRCMOD | MCCNVT~, MCCNVT+11, MCCNVT+16 |
| GMRCPR | CPLIST~, CPLIST+16, CPLIST+18, CPLIST+19, CPLIST+22*, CPLIST+23*, CPLIST+24, CPLIST+26, CPLINKS+12~, CPLINKS+13* , CPLINKS+14*, CPLINKS+15 |
| GMRCPT | CPLIST~, CPLIST+15, CPLIST+18, CPLIST+26 |
| GMRCREF | CPDOC+28~, CPDOC+31*, CPDOC+32 |
| GMRCRET | CPLIST~, CPLIST+15, CPLIST+20, CPLIST+27 |
| GMRCRIEN | MCCNVT+13~, MCCNVT+18*, MCCNVT+19 |
| GMRCSRV | CPINTERP+10~, CPINTERP+13*, CPINTERP+14, CPINTERP+15 |
| GMRCTIU | CPINTERP~, CPINTERP+11, MCCNVT~, MCCNVT+17, MCCNVT+19, MCCNVT+31 |
| GMRCUR | LOADAR+1~, LOADAR+8*, LOADAR+10 |
| GMRCUSER | CPINTERP~, CPINTERP+15 |
| I | CPLINKS+12~, CPLINKS+13*, CPLINKS+15, CPLINKS+16* |
| IEN | LOADAR~, LOADAR+2, LOADAR+3, LOADAR+4, LOADAR+6, LOADAR+10 |
| MSG | CPDOC+28~, CPDOC+29*, CPDOC+32 |
| NAMES | CPLINKS~ |
| NAMES( | CPLINKS+15* |
| NAMES(1 | CPLINKS+17* |
| PROC | CPROC~, CPROC+1, CPLINK~, CPLINK+2, CPLINKS~, CPLINKS+14 |
| QVAL | CPDOC+13~, CPDOC+17*, CPDOC+18, CPDOC+19*, CPDOC+21, CPDOC+33*, CPDOC+35, CPDOC+37*, CPDOC+39* |
| STS | LOADAR+1~, LOADAR+9*, LOADAR+10 |
| TIUDA | CPDOC~, CPDOC+16, CPDOC+23, CPDOC+25, CPDOC+31, CPDOC+36, CPDOC+38 |
| U | LOADAR+5, LOADAR+8, LOADAR+9, LOADAR+10, CPROC+1, CPLINKS+15, CPDOC+26, CPDOC+30, CPINTERP+13, CPPAT+8 , MCCNVT+23, MCCNVT+29 |
