Routine: PSOSPMB3

Package	Total	Call Graph
Outpatient Pharmacy	4	($$ASKFLD,$$LOCK,$$SECKEY,BACK,EXIT)^PSOSPMA3 ($$VERDATA,$$VERSIONLOCKED,LOADASAP)^PSOSPMU0 PAUSE^PSOSPMU1 ($$CUSSEG,$$DELSTDV,$$GETSEGID,DELCUS,SAVEVER)^PSOSPMU3
VA FileMan	2	$$GET1^DIQ ^DIR
Kernel	1	$$UP^XLFSTR
List Manager	1	FULL^VALM1

Package	Total	Caller Graph
Kernel	1	^ORD(101
Outpatient Pharmacy	1	PSO SPMP3 DELETE CUSTOMIZATION

Name	Comments	DBIA/ICR reference
DELCUS	; Handles the 'Delete Customization' Action
VERINUSE(PSOASVER)	; Verify whether the ASAP Version is in use or not - PSO7772 ; Input: (r) PSOASVER - Source ASAP Version to be cloned (3.0, 4.0, 4.1, 4.2)
LISTASAP(PSOASVER)	; List entire ASAP version from standard node and any custom nodes ; PSOASVER - ASAP Version

Name	Field # of Occurrence
$$GET1^DIQ	DELCUS+33, VERINUSE+5, VERINUSE+6
^DIR	DELCUS+15, DELCUS+70, DELCUS+101
$$ASKFLD^PSOSPMA3	DELCUS+25, DELCUS+45, DELCUS+56, DELCUS+57, DELCUS+86, DELCUS+87, DELCUS+114, LISTASAP+8, LISTASAP+11
$$LOCK^PSOSPMA3	DELCUS+6
$$SECKEY^PSOSPMA3	DELCUS+5
BACK^PSOSPMA3	DELCUS+15, DELCUS+19, DELCUS+29, DELCUS+61, DELCUS+91, DELCUS+116
EXIT^PSOSPMA3	DELCUS+3, DELCUS+4, DELCUS+5, DELCUS+6
$$VERDATA^PSOSPMU0	DELCUS+10, DELCUS+26
$$VERSIONLOCKED^PSOSPMU0	DELCUS+4
LOADASAP^PSOSPMU0	DELCUS+30, DELCUS+31, DELCUS+62, DELCUS+63, DELCUS+92, DELCUS+93, LISTASAP+4
PAUSE^PSOSPMU1	DELCUS+34
$$CUSSEG^PSOSPMU3	DELCUS+53
$$DELSTDV^PSOSPMU3	DELCUS+36
$$GETSEGID^PSOSPMU3	DELCUS+102, DELCUS+103
DELCUS^PSOSPMU3	DELCUS+58, DELCUS+88, DELCUS+115
SAVEVER^PSOSPMU3	DELCUS+26
FULL^VALM1	DELCUS+8
$$UP^XLFSTR	DELCUS+71, DELCUS+102

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7) Line Location: DELCUS+3
Function Call: WRITE	Prompt: !!,"The customization for the ASAP Version '",PSOASVER,"' delimiters will be deleted" Line Location: DELCUS+20
Function Call: WRITE	Prompt: !,"and the standard delimiters will be restored to the following:",! Line Location: DELCUS+21
Function Call: WRITE	Prompt: ?40,"Restoring..." Line Location: DELCUS+26
Function Call: WRITE	Prompt: "OK",$C(7) Line Location: DELCUS+26
Function Call: WRITE	Prompt: !!,"ASAP Version ",PSOASVER," is being used by ",$$GET1^DIQ(5,$$VERINUSE(PSOASVER),.01)," and cannot be deleted.",$C(7) Line Location: DELCUS+33
Function Call: WRITE	Prompt: !!," ASAP Version: ",PSOASVER Line Location: DELCUS+35
Function Call: WRITE	Prompt: !!,"The customization for the ASAP Version '",PSOASVER,"' and all of its custom Segments," Line Location: DELCUS+39
Function Call: WRITE	Prompt: !,"Data Elements and Delimiters will be deleted and the standard definition" Line Location: DELCUS+40
Function Call: WRITE	Prompt: !,"will be restored.",! Line Location: DELCUS+41
Function Call: WRITE	Prompt: !!,"The custom ASAP Version '",PSOASVER,"' and all of its Segments, Data Elements and" Line Location: DELCUS+43
Function Call: WRITE	Prompt: !,"Delimiters will be deleted.",! Line Location: DELCUS+44
Function Call: WRITE	Prompt: !?3,$P(CUSASAP(SEG),"^",1),?12,$P(CUSASAP(SEG),"^",2) Line Location: DELCUS+53
Function Call: WRITE	Prompt: !?3,$P(CUSASAP(SEG,ELM),"^",1),?12,$P(CUSASAP(SEG,ELM),"^",2) Line Location: DELCUS+55
Function Call: WRITE	Prompt: ?40,"Deleting..." Line Location: DELCUS+58
Function Call: WRITE	Prompt: "OK",$C(7) Line Location: DELCUS+58
Function Call: WRITE	Prompt: !!,"ASAP Version ",PSOASVER Line Location: DELCUS+64
Function Call: WRITE	Prompt: ! Line Location: DELCUS+70
Function Call: WRITE	Prompt: !,"Custom Segment not found!",$C(7) Line Location: DELCUS+71
Function Call: WRITE	Prompt: !!,"The following custom children ASAP Segments must be deleted first:",!,$C(7) Line Location: DELCUS+75
Function Call: WRITE	Prompt: !?3,SEG,?12,$P(CUSASAP(SEG),"^",2) Line Location: DELCUS+76
Function Call: WRITE	Prompt: " ",$P(CUSASAP(SEGID),"^",2) Line Location: DELCUS+77
Function Call: WRITE	Prompt: !!,"The customization for the Segment '",SEGID,"' and all of its custom Data Elements" Line Location: DELCUS+80
Function Call: WRITE	Prompt: !,"will be deleted and the standard definition will be restored.",! Line Location: DELCUS+81
Function Call: WRITE	Prompt: !!,"The custom Segment '",SEGID,"' and all of its Data Elements will be deleted.",! Line Location: DELCUS+83
Function Call: WRITE	Prompt: !?3,$P(CUSASAP(SEGID,ELM),"^",1),?12,$P(CUSASAP(SEGID,ELM),"^",2) Line Location: DELCUS+85
Function Call: WRITE	Prompt: ?40,"Deleting..." Line Location: DELCUS+88
Function Call: WRITE	Prompt: "OK",$C(7) Line Location: DELCUS+88
Function Call: WRITE	Prompt: !!,"ASAP Version ",PSOASVER Line Location: DELCUS+94
Function Call: WRITE	Prompt: ! Line Location: DELCUS+101
Function Call: WRITE	Prompt: !,"Custom Data Element not found!",$C(7) Line Location: DELCUS+104
Function Call: WRITE	Prompt: !,"Only the last Custom Data Element in the Segment can be deleted.",$C(7) Line Location: DELCUS+106
Function Call: WRITE	Prompt: " ",$P(CUSASAP(SEGID),"^",2) Line Location: DELCUS+107
Function Call: WRITE	Prompt: !!,"The customization for the Data Element '",$P(STDASAP(SEGID,ELMPOS),"^"),"' will be deleted and the" Line Location: DELCUS+110
Function Call: WRITE	Prompt: !,"standard definition will be restored.",! Line Location: DELCUS+111
Function Call: WRITE	Prompt: !!,"The custom Data Element '",$P(CUSASAP(SEGID,ELMPOS),"^",1),"' will be deleted.",! Line Location: DELCUS+113
Function Call: WRITE	Prompt: ?40,"Deleting..." Line Location: DELCUS+115
Function Call: WRITE	Prompt: "OK",$C(7) Line Location: DELCUS+115
Function Call: WRITE	Prompt: !?3,$P(ALLASAP(SEG),"^",1),?12,$P(ALLASAP(SEG),"^",2) Line Location: LISTASAP+7
Function Call: WRITE	Prompt: ! Line Location: LISTASAP+8
Function Call: WRITE	Prompt: !?3,$P(ALLASAP(SEG,ELM),"^",1),?12,$P(ALLASAP(SEG,ELM),"^",2) Line Location: LISTASAP+10
Function Call: WRITE	Prompt: ! Line Location: LISTASAP+11
Function Call: WRITE	Prompt: ! Line Location: LISTASAP+11
Routine Call	DIR Line Location: DELCUS+15 DELCUS+70 DELCUS+101

FileNo	Call Tags
^DIC(5 - [#5]	GET1^DIQ
^PS(58.41 - [#58.41]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^PS(58.41 - [#58.41]	VERINUSE+4

Name	Line Occurrences
$$VERINUSE	DELCUS+32, DELCUS+33
LISTASAP	DELCUS+51

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ALLASAP	LISTASAP+3~, LISTASAP+4
ALLASAP(	LISTASAP+6, LISTASAP+7, LISTASAP+9, LISTASAP+10
ALLVDLMS	DELCUS+2~, DELCUS+10*, DELCUS+11, DELCUS+22, DELCUS+23, DELCUS+24, DELCUS+48, DELCUS+49, DELCUS+50
CHILDREN	DELCUS+2~, DELCUS+72!
CHILDREN(	DELCUS+73*, DELCUS+76
CHILDREN(""	DELCUS+72, DELCUS+74
CNT	DELCUS+2~, DELCUS+45, DELCUS+52, DELCUS+53, DELCUS+55, DELCUS+56, DELCUS+67, DELCUS+68, DELCUS+84, DELCUS+85* , DELCUS+86, DELCUS+97, DELCUS+99, LISTASAP+6, LISTASAP+7, LISTASAP+8, LISTASAP+10, LISTASAP+11
CUSASAP	DELCUS+1~, DELCUS+31, DELCUS+63, DELCUS+93
CUSASAP(	DELCUS+52, DELCUS+53, DELCUS+54, DELCUS+55, DELCUS+67, DELCUS+68, DELCUS+71, DELCUS+73, DELCUS+76, DELCUS+77 , DELCUS+84, DELCUS+85, DELCUS+97, DELCUS+98, DELCUS+99, DELCUS+102, DELCUS+104, DELCUS+105, DELCUS+107, DELCUS+113 , DELCUS+115
CUSTYPE	DELCUS+1~, DELCUS+7, DELCUS+16, DELCUS+19, DELCUS+29, DELCUS+61, DELCUS+91
DELSTDV	DELCUS+2~, DELCUS+36*, DELCUS+38, DELCUS+42, DELCUS+46, DELCUS+47, DELCUS+48, DELCUS+49, DELCUS+50, DELCUS+51 , DELCUS+52, DELCUS+58
DIR	DELCUS+1~, DELCUS+9!, DELCUS+65!, DELCUS+95!
DIR("?"	DELCUS+14, DELCUS+65, DELCUS+66, DELCUS+68, DELCUS+69, DELCUS+95, DELCUS+96, DELCUS+99, DELCUS+100*
DIR("A"	DELCUS+9, DELCUS+69, DELCUS+100*
DIR(0	DELCUS+9, DELCUS+12, DELCUS+13, DELCUS+69, DELCUS+100*
DIRUT	DELCUS+1~, DELCUS+15, DELCUS+70, DELCUS+101
DONE	DELCUS+1~, DELCUS+70, DELCUS+77, DELCUS+78, DELCUS+101, DELCUS+107, DELCUS+108
DTOUT	DELCUS+1~, DELCUS+15, DELCUS+70, DELCUS+101
ELM	DELCUS+1~, DELCUS+54, DELCUS+55, DELCUS+84, DELCUS+85, DELCUS+98, DELCUS+99, LISTASAP+9, LISTASAP+10
ELMID	DELCUS+1~
ELMPOS	DELCUS+1~, DELCUS+103*, DELCUS+104, DELCUS+105, DELCUS+109, DELCUS+110, DELCUS+113, DELCUS+115
I	DELCUS+1~
J	DELCUS+1~
PSOASVER	DELCUS+3, DELCUS+4, DELCUS+10, DELCUS+12, DELCUS+13, DELCUS+20, DELCUS+26, DELCUS+30, DELCUS+31, DELCUS+32 , DELCUS+33, DELCUS+35, DELCUS+36, DELCUS+39, DELCUS+43, DELCUS+51, DELCUS+53, DELCUS+58, DELCUS+62, DELCUS+63 , DELCUS+64, DELCUS+88, DELCUS+92, DELCUS+93, DELCUS+94, DELCUS+115, VERINUSE~, VERINUSE+5, VERINUSE+6, LISTASAP~ , LISTASAP+4
SEG	DELCUS+1~, DELCUS+52, DELCUS+53, DELCUS+54, DELCUS+55, DELCUS+67, DELCUS+68, DELCUS+73, DELCUS+76, DELCUS+97* , DELCUS+98, DELCUS+99, LISTASAP+6*, LISTASAP+7, LISTASAP+9, LISTASAP+10
SEGID	DELCUS+1~, DELCUS+70, DELCUS+77, DELCUS+79, DELCUS+80, DELCUS+83, DELCUS+84, DELCUS+85, DELCUS+88, DELCUS+103* , DELCUS+104, DELCUS+105, DELCUS+107, DELCUS+109, DELCUS+110, DELCUS+113, DELCUS+115
STATE	VERINUSE+3~, VERINUSE+4*, VERINUSE+5, VERINUSE+6
STDASAP	DELCUS+1~, DELCUS+30, DELCUS+32, DELCUS+37, DELCUS+42, DELCUS+62, DELCUS+92
STDASAP(	DELCUS+72, DELCUS+79, DELCUS+105, DELCUS+109, DELCUS+110
STDVDLMS	DELCUS+2~, DELCUS+10*, DELCUS+11, DELCUS+22, DELCUS+23, DELCUS+24, DELCUS+46, DELCUS+48, DELCUS+49, DELCUS+50
STOP	DELCUS+1~, DELCUS+45, DELCUS+52, DELCUS+54, DELCUS+56, DELCUS+67, DELCUS+84, DELCUS+86, LISTASAP+6, LISTASAP+8 , LISTASAP+9, LISTASAP+11*
>> VALMSG	DELCUS+3, DELCUS+4
VERINUSE	VERINUSE+3~, VERINUSE+4, VERINUSE+5, VERINUSE+6*, VERINUSE+7
VERLST	DELCUS+1~
X	DELCUS+1~, DELCUS+15, DELCUS+25, DELCUS+57, DELCUS+70, DELCUS+71, DELCUS+72, DELCUS+73, DELCUS+77, DELCUS+87 , DELCUS+101, DELCUS+102, DELCUS+103, DELCUS+114
Y	DELCUS+1~, DELCUS+16

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOSPMB3

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: