PSOSPMA3 ;BIRM/MFR - ASAP Definitions Listman Actions Handler ;11/11/15
Source file <PSOSPMA3.m>
| Package | Total | Call Graph |
|---|---|---|
| Outpatient Pharmacy | 4 | ($$CLONE,HDR,INIT)^PSOSPML3 ($$ASKMEXPR,$$ELMDIFF,LOADASAP,VERLIST)^PSOSPMU0 (CUSTDEL,STDSEGCU)^PSOSPMU2 ($$CUSSEG,$$GETSEGID,CLONEVER,COPYELM,COPYSEG,DELCUS,SAVEELM,SAVESEG,SAVEVER)^PSOSPMU3 |
| VA FileMan | 2 | ^DIR EN^DIWE |
| Kernel | 1 | $$UP^XLFSTR |
| List Manager | 1 | FULL^VALM1 |
| 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 |
|---|---|---|
| SHOWHID | ; Handles Show/Hide Details
; (PSOSHOW: 1: Show Segment Tree only; 2: Show Segments & Data Elements; 3: Show Data Element Details) |
|
| COPYVER | ; Handles 'Copy ASAP Version' Action
|
|
| CV | ; Loop Prompt
|
|
| EDTDELIM | ; Handles the 'Edit Delimiters' Action
|
|
| CUSSEG | ; Handles the 'Customize Segment' Action
|
|
| CSL | ; Loop Re-Prompt
|
|
| CSE | ; Error Re-Prompt
|
|
| CUSELM | ; Handles the 'Customize Element' Action
|
|
| CEL | ; Loop Re-Prompt
|
|
| CEE | ; Error Re-Prompt
|
|
| ASKFLD(FIELD,DEFAULT,PROMPT) | ; Prompt
|
|
| ASKMEXPR(LEVEL,ELMID,MAXLEN,DEFAULT) | ; Prompt for M SET Expression
|
|
| SECKEY() | ; Checking the Security Key PSO SPMP ADMIN for certain actions
|
|
| LOCK() | ; Try to LOCK the SPMP ASAP RECORD DEFINITION file (#58.4)
|
|
| BACK | ; Unlock ASAP Definition File Go Back to the list
|
|
| EXIT | ; Exit without rebuilding the list
|
| Name | Field # of Occurrence |
|---|---|
| ^DIR | CV+2, CSE+13, CSE+22, CEE+14, CEE+94, ASKFLD+7 |
| EN^DIWE | CEE+42, CEE+116 |
| $$CLONE^PSOSPML3 | CV+7, CEE+70, CEE+83 |
| HDR^PSOSPML3 | SHOWHID+6, BACK+2 |
| INIT^PSOSPML3 | SHOWHID+6, BACK+2 |
| $$ASKMEXPR^PSOSPMU0 | ASKMEXPR+6 |
| $$ELMDIFF^PSOSPMU0 | CEE+60, CEE+62, CEE+77, CEE+79 |
| LOADASAP^PSOSPMU0 | EDTDELIM+7, CSL+1, CSL+2, CSL+3, CEL+1, CEL+2, CEL+3 |
| VERLIST^PSOSPMU0 | CV+3 |
| CUSTDEL^PSOSPMU2 | CEE+70, CEE+83 |
| STDSEGCU^PSOSPMU2 | CSE+18 |
| $$CUSSEG^PSOSPMU3 | CSE+4 |
| $$GETSEGID^PSOSPMU3 | CEE+15 |
| CLONEVER^PSOSPMU3 | CV+9 |
| COPYELM^PSOSPMU3 | CEE+75 |
| COPYSEG^PSOSPMU3 | CEE+69, CEE+130 |
| DELCUS^PSOSPMU3 | CEE+80, CEE+82 |
| SAVEELM^PSOSPMU3 | CEE+89, CEE+131 |
| SAVESEG^PSOSPMU3 | CSE+68 |
| SAVEVER^PSOSPMU3 | EDTDELIM+37 |
| FULL^VALM1 | COPYVER+5, EDTDELIM+5, CUSSEG+6, CUSELM+6 |
| $$UP^XLFSTR | EDTDELIM+26, CSE+16, CSE+32, CEE+16, CEE+17 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(58.4 - [#58.4] | LOCK+1, BACK+1 |
| ^TMP("PSOASDES" | CEE+38!, CEE+41*, CEE+44, CEE+45, CEE+112!, CEE+115*, CEE+118, CEE+119 |
| ^XUSEC("PSO SPMP ADMIN" | SECKEY+1 |
| Name | Line Occurrences |
|---|---|
| $$ASKFLD | CV+8, EDTDELIM+10, EDTDELIM+18, EDTDELIM+25, EDTDELIM+34, CSE+26, CSE+30, CSE+39, CSE+42, CSE+52 , CSE+66, CEE+32, CEE+35, CEE+50, CEE+53, CEE+64, CEE+100, CEE+103, CEE+106, CEE+109 , CEE+127 |
| $$ASKMEXPR | CEE+58, CEE+124 |
| $$LOCK | COPYVER+4, EDTDELIM+4, CUSSEG+5, CUSELM+5 |
| $$SECKEY | COPYVER+3, EDTDELIM+3, CUSSEG+4, CUSELM+4 |
| BACK | COPYVER+6, CV+2, CV+8, CV+11, EDTDELIM+22, EDTDELIM+30, EDTDELIM+32, EDTDELIM+34, EDTDELIM+39, CSE+13 , CEE+14 |
| CEE | CEE+15, CEE+18, CEE+19, CEE+22 |
| CEL | CEE+133 |
| CSE | CSE+15 |
| CSL | CSE+70 |
| CV | CV+4 |
| EXIT | COPYVER+2, COPYVER+3, COPYVER+4, EDTDELIM+2, EDTDELIM+3, EDTDELIM+4, CUSSEG+3, CUSSEG+4, CUSSEG+5, CUSELM+3 , CUSELM+4, CUSELM+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ALLASAP | EDTDELIM+7, EDTDELIM+9, EDTDELIM+17, EDTDELIM+24, EDTDELIM+32, EDTDELIM+36*, EDTDELIM+37, CUSSEG+1~, CSL+3, CSE+18 , CSE+68, CEL+3 |
| ALLASAP( | CSE+16, CSE+17, CSE+32, CSE+33, CSE+35, CSE+43, CSE+44, CSE+45, CSE+50, CSE+51 , CSE+57, CSE+58, CSE+59, CSE+60, CSE+61, CSE+62, CEE+16, CEE+18, CEE+20, CEE+22 , CEE+23, CEE+32, CEE+35, CEE+40, CEE+41, CEE+50, CEE+53, CEE+56, CEE+57, CEE+58 , CEE+114, CEE+115, CEE+122, CEE+123, CEE+124 |
| ASKFLD | ASKFLD+5~, ASKFLD+6*, ASKFLD+9*, ASKFLD+11*, ASKFLD+12*, ASKFLD+13 |
| CLONE | CUSELM+2~, CEE+89 |
| CNT | CUSSEG+2~, CSE+9*, CSE+11*, CUSELM+2~, CEE+10*, CEE+12* |
| CUSASAP | CUSSEG+1~, CSL+2, CSE+18, CUSELM+1~, CEL+2, CEE+62, CEE+77, CEE+83 |
| CUSASAP( | CSE+3, CSE+4, CSE+21, CSE+24*, CSE+26, CSE+27*, CSE+30, CSE+31*, CSE+36*, CSE+39 , CSE+40*, CSE+42, CSE+44, CSE+46*, CSE+49, CSE+50, CSE+51*, CSE+52, CSE+53, CSE+63* , CSE+68, CEE+3, CEE+4, CEE+5, CEE+60, CEE+62, CEE+67, CEE+69, CEE+76, CEE+80! , CEE+81, CEE+82!, CEE+84*, CEE+85*, CEE+86*, CEE+87!*, CEE+88, CEE+93, CEE+100, CEE+103 , CEE+106, CEE+109, CEE+130 |
| CUSELM | CUSELM+1~, CEE+21*, CEE+46, CEE+58, CEE+75, CEE+89, CEE+94, CEE+97, CEE+124, CEE+131 |
| CUSELMS | CUSELM+2~, CEE+6 |
| CUSELMS( | CEE+5*, CEE+10, CEE+11, CEE+12 |
| CUSSEG | CUSSEG+1~, CSE+17*, CSE+18, CSE+19, CSE+21, CSE+22, CSE+24, CSE+26, CSE+27, CSE+30 , CSE+31, CSE+34, CSE+36, CSE+39, CSE+40, CSE+42, CSE+44, CSE+46, CSE+49, CSE+50 , CSE+51, CSE+52, CSE+53, CSE+63, CSE+68 |
| CUSSEGS | CUSSEG+2~, CSE+5 |
| CUSSEGS( | CSE+4*, CSE+9, CSE+10, CSE+11 |
| DEFAULT | ASKFLD~, ASKFLD+6, ASKMEXPR~, ASKMEXPR+6 |
| DEFTYPE | COPYVER+1~, CV+6*, CV+7*, CV+9 |
| DIC | CUSELM+2~, CEE+42!*, CEE+116!* |
| DIR | COPYVER+1~, CUSSEG+1~, CSE+1!, CSE+22!, CUSELM+1~, CEE+1!, CEE+94!, ASKFLD+5~ |
| DIR("?" | CSE+6*, CSE+8*, CSE+10*, CSE+11*, CEE+7*, CEE+9*, CEE+11*, CEE+12* |
| DIR("A" | CV+2*, CSE+12*, CSE+22*, CEE+13*, CEE+94*, ASKFLD+6* |
| DIR("B" | CSE+22*, CEE+94*, ASKFLD+6* |
| DIR(0 | CV+2*, CSE+12*, CSE+22*, CEE+13*, CEE+94*, ASKFLD+6* |
| DIRUT | COPYVER+1~, CV+2, CUSSEG+1~, CSE+13, CSE+21, CUSELM+1~, CEE+14, CEE+93, ASKFLD+5~, ASKFLD+10 , ASKFLD+12 |
| DONE | EDTDELIM+1~, EDTDELIM+9*, EDTDELIM+10, EDTDELIM+15*, EDTDELIM+17*, EDTDELIM+18, EDTDELIM+21*, EDTDELIM+24*, EDTDELIM+25, EDTDELIM+29* , CUSSEG+1~, CSE+29*, CSE+30, CSE+36*, CSE+41*, CSE+42, CSE+46*, CSE+49*, CSE+52, CSE+63* , CEE+121*, ASKFLD+5~, ASKFLD+7*, ASKFLD+9*, ASKFLD+10*, ASKFLD+11* |
| DTOUT | COPYVER+1~, CV+2, CUSSEG+1~, CSE+13, CSE+21, CUSELM+1~, CEE+14, CEE+93, ASKFLD+5~, ASKFLD+10 , ASKFLD+12 |
| DUZ | SECKEY+1 |
| DWPK | CUSELM+2~, CEE+42*, CEE+116* |
| ELM | CUSELM+2~, CEE+4*, CEE+5, CEE+10*, CEE+11, CEE+12 |
| ELMDATA | CUSELM+1~, CEE+27!, CEE+33*, CEE+36*, CEE+46*, CEE+47*, CEE+54*, CEE+60, CEE+62, CEE+70 , CEE+77, CEE+79, CEE+80, CEE+83, CEE+88!*, CEE+89, CEE+92!, CEE+97*, CEE+98*, CEE+101* , CEE+104*, CEE+107*, CEE+110*, CEE+124, CEE+131 |
| ELMDATA("DES" | CEE+45*, CEE+74, CEE+87, CEE+119* |
| ELMDATA("VAL" | CEE+125* |
| ELMDELIM | EDTDELIM+1~, EDTDELIM+9*, EDTDELIM+10, EDTDELIM+13*, EDTDELIM+14, EDTDELIM+32, EDTDELIM+36 |
| ELMID | ASKMEXPR~, ASKMEXPR+6 |
| ELMPOS | CUSELM+1~, CUSELM+2~, CEE+19*, CEE+20, CEE+22, CEE+23, CEE+25*, CEE+26, CEE+32, CEE+35 , CEE+40, CEE+41, CEE+47, CEE+50, CEE+53, CEE+56, CEE+57, CEE+60, CEE+62, CEE+67 , CEE+70, CEE+71, CEE+72, CEE+73, CEE+74, CEE+76, CEE+77, CEE+79, CEE+80, CEE+83 , CEE+84, CEE+85, CEE+86, CEE+87, CEE+88, CEE+91, CEE+93, CEE+98, CEE+100, CEE+103 , CEE+106, CEE+109, CEE+114, CEE+115, CEE+122, CEE+123 |
| ELMREQ | CUSELM+1~, CEE+54*, CEE+60, CEE+62, CEE+72, CEE+77, CEE+79, CEE+85 |
| EOSCHR | EDTDELIM+1~, EDTDELIM+24*, EDTDELIM+25, EDTDELIM+28*, EDTDELIM+32, EDTDELIM+36 |
| FIELD | ASKFLD~, ASKFLD+6 |
| HLPTXT | CUSSEG+2~, CSE+1*, CSE+6, CSE+8, CUSELM+2~, CEE+1*, CEE+7, CEE+9 |
| I | CUSELM+2~, CEE+40*, CEE+41, CEE+44*, CEE+45, CEE+56*, CEE+57, CEE+114*, CEE+115, CEE+118* , CEE+119, CEE+122*, CEE+123 |
| LEVEL | ASKMEXPR~, ASKMEXPR+6 |
| LINE | CUSELM+2~ |
| LITERAL | CUSSEG+2~, CSE+14*, CSE+16 |
| MAXLEN | CUSELM+1~, CEE+51*, CEE+58, CEE+60, CEE+62, CEE+71, CEE+77, CEE+79, CEE+84, ASKMEXPR~ , ASKMEXPR+6 |
| MEXPR | CUSELM+2~, CEE+56*, CEE+57*, CEE+58, CEE+59*, CEE+60, CEE+62, CEE+73, CEE+77, CEE+79 , CEE+86, CEE+121*, CEE+123*, CEE+124 |
| NEWASVER | COPYVER+1~, CV+5*, CV+9, CV+10 |
| NEWELM | CUSELM+1~, CEE+92*, CEE+95*, CEE+131 |
| NEWSEG | CUSSEG+1~, CSE+20*, CSE+23*, CSE+68 |
| OK | CUSSEG+1~, CSE+43*, CSE+45*, CSE+46 |
| PARSEG | CUSSEG+1~, CSE+49*, CSE+50, CSE+51, CSE+56, CSE+57, CSE+58, CSE+59, CSE+60, CSE+61 , CSE+62 |
| POPOUT | CEE+28~*, CEE+30, CEE+32*, CEE+35* |
| PROMPT | ASKFLD~, ASKFLD+6 |
| >> PSOASVER | SHOWHID+3, COPYVER+2, COPYVER+6, CV+1, CV+7, CV+9, CV+10*, EDTDELIM+2, EDTDELIM+6, EDTDELIM+7 , EDTDELIM+37, CUSSEG+3, CSL+1, CSL+2, CSL+3, CSE+4, CSE+18, CSE+68, CUSELM+3, CEL+1 , CEL+2, CEL+3, CEE+69, CEE+70, CEE+75, CEE+80, CEE+82, CEE+83, CEE+89, CEE+130 , CEE+131 |
| >> PSOSHOW | SHOWHID+5*, SHOWHID+6 |
| QUIT | CUSSEG+1~, CSE+55*, CSE+56, CSE+57*, CSE+59*, CSE+61* |
| SEG | CUSSEG+1~, CSE+3*, CSE+4, CSE+9*, CSE+10, CSE+11, CSE+43*, CSE+44, CSE+45, CEE+3* , CEE+4, CEE+5 |
| SEGDELIM | EDTDELIM+1~, EDTDELIM+17*, EDTDELIM+18, EDTDELIM+20*, EDTDELIM+32, EDTDELIM+36 |
| SEGID | CUSELM+1~, CUSELM+2~, CEE+15*, CEE+16, CEE+17*, CEE+18, CEE+19, CEE+20, CEE+22, CEE+23 , CEE+26, CEE+32, CEE+35, CEE+40, CEE+41, CEE+50, CEE+53, CEE+56, CEE+57, CEE+58 , CEE+60, CEE+62, CEE+67, CEE+69, CEE+70, CEE+71, CEE+72, CEE+73, CEE+74, CEE+76 , CEE+77, CEE+79, CEE+80, CEE+81, CEE+82, CEE+83, CEE+84, CEE+85, CEE+86, CEE+87 , CEE+88, CEE+89, CEE+91, CEE+93, CEE+100, CEE+103, CEE+106, CEE+109, CEE+114, CEE+115 , CEE+122, CEE+123, CEE+124, CEE+130, CEE+131 |
| SEGPOS | CUSSEG+1~ |
| SEGREQ | CUSSEG+1~ |
| STDASAP | CUSSEG+1~, CSL+1, CSE+2, CSE+18, CUSELM+1~, CEL+1, CEE+2, CEE+30, CEE+60, CEE+69 , CEE+70, CEE+75, CEE+79, CEE+130 |
| STDASAP( | CSE+18, CSE+19, CEE+26, CEE+71*, CEE+72*, CEE+73*, CEE+74!*, CEE+81, CEE+91 |
| >> VALMBCK | SHOWHID+2*, EXIT+1* |
| >> VALMBG | SHOWHID+6* |
| >> VALMCNT | BACK+2 |
| >> VALMSG | SHOWHID+4*, COPYVER+2*, COPYVER+7*, EDTDELIM+2*, CUSSEG+3*, CUSELM+3*, SECKEY+1*, LOCK+2* |
| VERS | COPYVER+1~, CV+3 |
| VERS( | CV+4, CV+7 |
| X | COPYVER+1~, CV+6*, CV+8*, EDTDELIM+1~, EDTDELIM+10*, EDTDELIM+12, EDTDELIM+13, EDTDELIM+14, EDTDELIM+18*, EDTDELIM+19 , EDTDELIM+20, EDTDELIM+22, EDTDELIM+25*, EDTDELIM+26, EDTDELIM+28, EDTDELIM+30, EDTDELIM+34*, CUSSEG+1~, CSE+13, CSE+14* , CSE+15, CSE+16*, CSE+17, CSE+26*, CSE+27, CSE+30*, CSE+31, CSE+32*, CSE+33, CSE+34 , CSE+35, CSE+36, CSE+37, CSE+39*, CSE+40, CSE+42*, CSE+44, CSE+46, CSE+47, CSE+52* , CSE+53, CSE+57, CSE+59, CSE+61, CSE+63, CSE+64, CSE+66*, CUSELM+1~, CEE+14, CEE+15 , CEE+17*, CEE+19, CEE+21, CEE+32*, CEE+33, CEE+35*, CEE+36, CEE+50*, CEE+51, CEE+53* , CEE+54, CEE+58*, CEE+59, CEE+64*, CEE+100*, CEE+101, CEE+103*, CEE+104, CEE+106*, CEE+107 , CEE+109*, CEE+110, CEE+124*, CEE+125, CEE+127*, ASKFLD+5~, ASKFLD+8, ASKFLD+9, ASKFLD+10, ASKFLD+12 |
| Y | COPYVER+1~, CV+4, CV+5, CUSSEG+1~, CSE+20*, CSE+21, CUSELM+1~, CEE+92*, CEE+93, ASKFLD+5~ , ASKFLD+11 |