GMRAPET0 ;HIRMFO/RM-VERIFIED ALLERGY TASKS ;11/17/06 10:27
Source file <GMRAPET0.m>
Package | Total | Call Graph |
---|---|---|
Text Integration Utility | 3 | $$CANPICK^TIULP NEW^TIUPNAPI $$WHATITLE^TIUPUTU |
VA FileMan | 2 | NOW^%DTC ^DIC |
Adverse Reaction Tracking | 1 | VAD^GMRAUTL1 |
Kernel | 1 | $$FMTE^XLFDT |
RPC Broker | 1 | $$BROKER^XWBLIB |
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 |
---|---|---|
EN1(GMRADFN,GMRAPA,GMRACT,GMRAOUT) | ;
; ENTRY TO PERFORM ALL OF THE TASKS NECESSARY FOR ; A PROGRESS NOTE TO BE ENTERED BY ART ; INPUT: ; GMRADFN = PATIENT IEN IN THE PATIENT FILE ; GMRAPA = THE IEN IN THE PATIENT ALLERGY FILE ; GMRACT = THE ACTION TO BE ENTERED FOR THIS REACTION ; = "V" VERIFICATION OF A REACTION ; = "S" SIGN OFF OF A REACTION ; = "M" MEDWATCH FORM ENTERD ; = "E" REACTION ENERED IN ERROR ; OUTPUT: ; GMRAOUT = REACTION ALL WAS PASSED ; = 1 USER ABORT OR PN FAIL IN SOME WAY ; = 0 PASSED |
|
EXIT | ; Clean up of variables
|
|
ASK | ; Simple file manager query for a location in file 44
|
|
V | ; Verified Reaction
|
|
S | ; Signed Reaction
|
|
M | ; MedWATCH data entered
|
|
E | ; Reaction Entered in Error
|
|
ADDCOM(TYPE,CNT) | ;Add any comments to progress note - section added in patch 21
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | S+3, M+4 |
CNT | ADDCOM~, ADDCOM+3*, ADDCOM+4*, ADDCOM+5* |
DIC | ASK+1~, ASK+3* |
DIC("A" | ASK+3* |
DIC("S" | ASK+3* |
DIC(0 | ASK+3* |
>> DTOUT | ASK+7 |
>> DUOUT | ASK+7 |
DUZ | V+4, S+3, M+4 |
ENTRY | ADDCOM+1~, ADDCOM+2*, ADDCOM+5 |
GMRACT | EN1~, EN1+29, EN1+40, ASK+4 |
GMRACW | EN1+27~, EN1+34*, EN1+37, EN1+50 |
GMRADFN | EN1~, EN1+42, EN1+50 |
>> GMRADT | EN1+50, V+3*, V+6, V+8, S+3*, S+8, S+10, M+4*, M+5, M+7 , E+4*, E+5, E+9 |
GMRADUZ | EN1+50, EXIT+1!, V+3*, V+4*, S+3*, M+4*, E+4* |
GMRAER | E+1~, E+3*, E+4 |
GMRAHLOC | EN1+27~, EN1+43*, EN1+50, EXIT+1!, ASK+8* |
GMRAI | V+1~, V+7*, V+8, S+1~, S+4*, S+5, S+6*, S+7, S+10, E+1~ , E+8*, E+9 |
GMRALOC | EN1+27~, EN1+41*, EN1+42, EN1+43, EXIT+1! |
GMRAOUT | EN1~, EN1+29*, EN1+37*, EN1+40, EN1+49, EN1+52*, ASK+7*, E+3* |
GMRAPA | EN1~, ASK+4, V+2, S+4*, M+2, E+2, E+3, ADDCOM+2, ADDCOM+5 |
GMRAPA( | S+4 |
GMRAPA(0 | V+2*, V+3, V+5, M+2*, M+6, E+2*, E+5, E+7 |
GMRAPN | EN1+26!, EN1+28*, EN1+50*, EN1+52, EN1+53 |
GMRAREAC | S+1~, S+4* |
GMRAXBOS | EN1+27~, EN1+28*, EN1+50, EN1+52, EN1+53 |
SUB | ADDCOM+1~, ADDCOM+5* |
TYPE | ADDCOM~, ADDCOM+2 |
U | ASK+4, V+3, V+8, S+4, S+10, M+7, E+4, E+9 |
X | ASK+2*, M+1~ |
>> Y | ASK+8 |
Name | Field # of Occurrence |
---|---|
$T(NEW^TIUPNAPI | EN1+37 |